عدم رفتن به صفحه اصلی بعد از وارد کردن رمز(کد کاربری و رمز عبور)

[mojtabaaaa]

کد:

Private Sub CommandButton1_Click()
If TextBox1.Text = Sheet5.Cells(2, 2) And TextBox2.Text = Sheet5.Cells(2, 3) Or TextBox1.Text <> Empty And TextBox2.Text = "123" Then
Unload Me
Main_Form.Show
End If
TextBox1.Text = Empty
TextBox2.Text = Empty
End Sub 

لطفا کد فوق را ویرایش فرمایید

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[DOLFIN]

سلام
کد مشکلی نداره.ممکنه نام شیت ها یا ادرس سلول ها یا نام فرم مورد نظر اشتباه باشه اگر این ها درست بود فایل رو قرار بدید تا بررسی بشه.موفق باشید

[~M*E*H*D*I~]

کد:

Private Sub CommandButton1_Click()
If TextBox1.Text = Sheet5.Cells(2, 2) And TextBox2.Text = Sheet5.Cells(2, 3) Or TextBox1.Text <> Empty And TextBox2.Text = "123" Then
Unload Me
Main_Form.Show
End If
TextBox1.Text = Empty
TextBox2.Text = Empty
End Sub 

لطفا کد فوق را ویرایش فرمایید

شما گفتی اگر رمز درست بود Main_Form.Show رو نمایش بده ، خب چه اتفاقی میفته ؟

[mojtabaaaa]

با سلام
Main_Form.Show به صورت هایلایت زرد رنگ میشه البته اون فرم مولتی پیچ هست

[mokaram]

مشکل تو همون فرم اصلی هست لطفا فایل را پیوست بفرمایید تا بررسی بشه