مشخص کردن type

[ms-ninja]

با عرض سلام و خسته نباشید
70095
من سورس رو نوشتم الان یک شرط میخوام در قسمت ............ بزارم


Private Sub Command1_Click()
If Adodc1.Recordset.Fields("user") = Text1.Text And Adodc1.Recordset.Fields("Password") = Text2.Text Then
If.......... then
Cpanel.Show
login.Hide
Else
Search.Show
login.Hide
End If
Else
MsgBox "not found"
End If

End Sub



که اگه type برابر 1 بود بره به فرم 2 و اگه صفر بود بره به فرم 3

ار دبیرستان دیگه لای VB رو باز نکردم ، باید دوباره شروع کنم

با تشکر

[moos111]

با عرض سلام

دوست عزیز از کد زیر استفاده کن


Private Sub Command1_Click()
If Adodc1.Recordset.Fields("user") = Text1.Text And Adodc1.Recordset.Fields("Password") = Text2.Text Then
If Adodc1.Recordset.Fields("type") = "1" then Cpanel.Show :login.Hide
If Adodc1.Recordset.Fields("type") = "0" then Search.Show :login.Hide
Else
MsgBox "not found"
End If
End Sub

[M-NINJA]

سلام

یک نگاه به سورس من میندازین

نمیدونم چرا اررور میده

[M-NINJA]

من مشکلم رو حل کردم:تشویق:

سمپل رو هم میزارم شاید بدرد کسی بخوره:چشمک: