این کدی که ازش اشکال می گیره :cry:
s = Text1.Text
If s = "" Then
GoTo 10
End If
s = "home tel ='" + s + "'"
Data1.Recordset.FindFirst s
If Data1.Recordset.NoMatch Then
e = MsgBox("رکورد مورد نظر پیدا نشد", vbOKOnly + 48, "خطا")
GoTo 10
End If
Label3.Caption = Data1.Recordset.Fields("Name")
Label4.Caption = Data1.Recordset.Fields("family")
Label5.Caption = Data1.Recordset.Fields("home tel")
Label6.Caption = Data1.Recordset.Fields("job tel")
Label7.Caption = Data1.Recordset.Fields("fax")
Label8.Caption = Data1.Recordset.Fields("mobile")
10
قسمتی هم که می گه اشکال داره اینه:
Data1.Recordset.FindFirst s
من همین کد رو(به غیر از قسمت مربوط به فیلد دیتا بیس)برای موبایل و فکس استفاده می کنم اشکال جود نداره ولی برای تلفن محل کار و منزل .... :cry: :cry: :cry: :cry: