خوب امیر اینم سورسش ببینم چیکار میکنه هاااااااااااااا
Private Sub cmdSearch_Click()
Dim a As Variant
Dim l As Variant
a = txtKalame
a = "kalame='" + a + "'"
Debug.Print a
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst a
If Data1.Recordset.NoMatch = True Then
a = MsgBox("˜áãå ãæÑÏ äÙÑ íÏÇ äÔÏ.", vbOKOnly + vbInformation)
txtKalame.Text = ""
txtMani.Text = ""
Else
For l = 1 To 7
Beep
Next l
txtKalame.Text = Data1.Recordset.Fields("kalame")
txtMani.Text = Data1.Recordset.Fields("mani")
End If
End Sub
موفق باشی!
+ نوشته شده در چهارشنبه سی و یکم مرداد 1386ساعت 7:34 توسط مصطفی
|
