۰۹-شهریور-۱۳۸۷, ۱۱:۴۶:۴۴
[/align]با سلام من یه فرم دار كه میخواهم كاربر با دادن username ,password به فرم بعدی دسترسی داشته باشه
هر كدی قرار میدم مشكلداره ممكنه كمكم كنید
مشكل اینجاست كه شرط if مشكل داره اما نمي دونم كجاش
End Sub
هر كدی قرار میدم مشكلداره ممكنه كمكم كنید
Private Sub Command1_Click()
Dim Response As Integer
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Database Path;Persist Security Info=False"
.RecordSource = "SElECT * from Table1 where username = '" & Trim(Text1.Text) & "' AND password = '" & Trim(Text2.Text) & "'"
' Refresh
End With
if text1.text=usrename and text2.text=password then form 4.show
else exit sub
End If
Dim Response As Integer
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Database Path;Persist Security Info=False"
.RecordSource = "SElECT * from Table1 where username = '" & Trim(Text1.Text) & "' AND password = '" & Trim(Text2.Text) & "'"
' Refresh
End With
if text1.text=usrename and text2.text=password then form 4.show
else exit sub
End If
مشكل اینجاست كه شرط if مشكل داره اما نمي دونم كجاش
End Sub