sevigol
دوشنبه 18 شهریور 1387, 14:58 عصر
Dim Response As Integer
Adodc1.Recordset.MoveFirst
While Not (Adodc1.Recordset.EOF)
If Adodc1.Recordset.Fields("UserName") = Trim(Text1.Text) Then
If Adodc1.Recordset.Fields("Password") = Val(Text2.Text) Then
Form4.Show
Else
MsgBox "ÑãÒ ÚÈæÑ ÇÔÊÈÇå ãí ÈÇÔÏ", vbCritical, "ÎØÇ"
Text2.Text = Empty
End If
Else
MsgBox "äÇã ßÇÑÈÑí ÇÔÊÈÇå ãí ÈÇÔÏ", vbCritical, "ÎØÇ"
Text1.Text = Empty
Adodc1.Recordset.RecordCount
End If
Wend
End Sub
سلام اين كل كد من هست
اگر حلقه نذارم فقط دومين ركورد را اجازه ورود ميده در صورتي كه من ميخوام به ازاي همه كاربر ها چك كنه؟چكار بايد انجام بدم
Adodc1.Recordset.MoveFirst
While Not (Adodc1.Recordset.EOF)
If Adodc1.Recordset.Fields("UserName") = Trim(Text1.Text) Then
If Adodc1.Recordset.Fields("Password") = Val(Text2.Text) Then
Form4.Show
Else
MsgBox "ÑãÒ ÚÈæÑ ÇÔÊÈÇå ãí ÈÇÔÏ", vbCritical, "ÎØÇ"
Text2.Text = Empty
End If
Else
MsgBox "äÇã ßÇÑÈÑí ÇÔÊÈÇå ãí ÈÇÔÏ", vbCritical, "ÎØÇ"
Text1.Text = Empty
Adodc1.Recordset.RecordCount
End If
Wend
End Sub
سلام اين كل كد من هست
اگر حلقه نذارم فقط دومين ركورد را اجازه ورود ميده در صورتي كه من ميخوام به ازاي همه كاربر ها چك كنه؟چكار بايد انجام بدم