رفتن به فرم بعدی

[Blacky]

من تازه امروز نصبش کردم


روی Next که کلیک میکنیم میخوام بره فرم بعدی
البته اگه پسوورد رو درست بزنه
نمیدنم کدشو چی بنویسم

Private Sub Text1_Change()
If Text1.Text = "123456" Then
؟؟؟؟؟؟؟؟؟؟

End If

End Sub

[Atthar]

یعنی صفحه ی بعدی یه فرم جداگانه هست؟
میتونی از این روش استفاده کنی:
form2.show
quit me
دقیقا اسم کامندها رو یادم نیست یه چیز تو این مایه ها هست.از چنین روشی میتونی استفاده کنی. البته باید راه پدر و مادر دارتری وجود داشته باشه! اما من مبتدی هستم.

[iMohsen]

form1.hide
form2.show

form1 فرمي هست كه هم اكنون در اون هستيم ...
form2 فرمي كه قراره بعد از ورود پسورد نمايش داده بشه ...

[iMohsen]

ميتوني از اين دستور هم استفاده كني :
unload me
اما استفاده از اين دستور باعث ميشه همه متغير ها يي كه تو اون فرم بودند از حافظه خارج و غير قابل دسترسي بشن
quit me رو من نميدونم اما فكر ميكنم شبيه unload باشه ...

[Blacky]

خب ببین اینو که میذارم درست میشه

ولی همین که پسوورد رو درست میزنه میره صفحه بعد

میخوام بزنه بعد نکست که زد اگه درست بود بره صفحه بعد

Private Sub Command1_Click()

End Sub


Private Sub Next_Click()

End Sub

Private Sub Text1_Change()
If Text1.Text = "123456" Then
Form1.Hide
Form2.Show



End If

End Sub

[iMohsen]

آخه توي رويداد change نوشتي ...!
اين يعني ...
دستوراتي كه نوشتي زماني كه متن داخل تكست باكش تغيير كرد اجرا بشن ..

تو بايد دستورات رو در رويداد click از دكمه next بنويسي ...

[SherlockHolmes]

بلکی جان!!
روی متد OnChnaged کدت رو نوشتی!
باید رو آن Onclicked دکمه کدت رو بنویسی!!

[Blacky]

پس کدوم متغیر پسوورد رو چک میکنه؟

[iMohsen]

اينجا داري برابري رو چك ميكني ديگه ...
If Text1.Text = "123456" Then

[Blacky]

بعد از Then نمیخواد هیچی بنویسیم؟

[Blacky]

الان که میزنم اگه پسوورد غلط هم باشه میره صفحه بعد

[iMohsen]

براي چك كردن تساوي ...و تاييد شرط


if text1.text="mohsen" then
form1.hide
form2.show
else
f=msgbox("error","incorrect pasword")
end if



فكر كنم هويجور باشه ..! :soot:

[Blacky]

در 118 مشهد که با اکسس نوشته یه همچین حالتی رو این شکلی درست کرده

Private Sub Button4_Click()
If password.Value = "1383" Then
Me.password.Value = ""
DoCmd.Close A_FORM, "1"
DoCmd.Close
DoCmd.OpenForm "main"
Else: Me.password.SetFocus
End If
End Sub

Private Sub Button5_Click()
DoCmd.Close
End Sub

Private Sub Form_Open(Cancel As Integer)
End Sub

[Blacky]

f = MsgBox("error", "incorrect pasword")

ازین ارور میگیره

نمیخوام هم یه حرف رو که غلط بزنی زپرت مسیج بده میخوام اگه هم هر چی زد وقتی نکست زد ارور بده یا مثلا نکست عیر فعال بشه

خلاصه بگم برای سریال نامبر نرم افزار میخوام

[iMohsen]

اون 118 كه نوشتي ..يكم پيچونده ..

خوب ميتوني مسيج رو ننويسي ..
به جاش اينو بنويس ..
next.enabled = true
و دكمه نكست رو پيش فرض غير فعال كن ..

[Blacky]

آقا اگه صلاح میدونی منم دام گیج میشه من که رفتن به صفحه بعدی رو هم فهمیدم بریم سر برنامکه ساندویچی

[iMohsen]

آقا اگه صلاح میدونی منم دام گیج میشه من که رفتن به صفحه بعدی رو هم فهمیدم بریم سر برنامکه ساندویچی

كجاش گيجت كرده ...؟
بگو تا توضيح بدم ...!

- شما پيش فرض دكمه Next رو غير فعال ميكنيد (از پنجره propertis)
- تا زماني كه كلمه مورد نظر شما در تكست باكس تايپ نشده دكمه غير فعال است
- پس از ورود كلمه صحيح دكمه فعال و امكان عبور از اين مرحله وجود ميدارد است ! :d

حالا مرحله بعد چيه ؟ :soot:

[Blacky]

میدونی توی وی بی فکر میکنم یه پروژه رو دنبالکنیم بهتر باشه

سوال هم اگه پیش آمد خب مجانیه تاپیک میزنیم :soot: :soot: :soot: :soot: :soot: