این کارو کردم از خطی که نوشتی rs.FindFirst s ایراد میگیرهنقل قول:
Printable View
این کارو کردم از خطی که نوشتی rs.FindFirst s ایراد میگیرهنقل قول:
[HTML]Private Sub Command3_Click()
Dim s As String
''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''
Set db = OpenDatabase("C:\Documents and Settings\amir\Desktop\s2.mdb")
Set rs = db.OpenRecordset("12", dbOpenDynaset)
s = InputBox("Family")
s = "2='" + s + "'"
rs.FindNext s
If rs.NoMatch Then
'Beep
MsgBox ("No Match")
Else
Call print2(rs)
End If
db.Close
End Sub[/HTML]
اینم از ائن یکی همون طور که گفتم ارور میده از قسمته .......
[HTML] Private Sub print2(rs)
Form10.Show
Form10.Text1.Text = rs("Name")
Form10.Text2.Text = rs("Famili")
Form10.Text3.Text = rs("Mobile")
Form10.Text4.Text = rs("Manzel")
Form10.Text5.Text = rs("Adress")
Form10.Text6.Text = rs("radif")
End Sub[/HTML]
خب عناصر توی دیتا بیس چی داری؟؟
اولا باید همشونو ربط بدی به هم
اینا رو که میدونی
بله همه رو به هم ربط دادمنقل قول:
دوست عزیز یه سورس پیدا کردم ولی مشکل میخورم
این اون سورس هست [HTML]Dim a As Integer
a = Val(InputBox("For Search Enter Studentfamili : ", "Search"))
With Data1.Recordset
.FindFirst "2 = " & a
If .NoMatch Then
MsgBox "Not Find This Student", vbOKOnly + vbExclamation, "Not Find"
End If
End With[/HTML]
میتونی برنامتو بفرستی واسم ؟ ببینم چطوره
شاید خودم واست ردیفش کردم
یا فقط قسمت سرچ رو واسم بفرست
کامل بفرستی بهتره
بدلیل محدودیتم نمیتونم ولی اینو بگم که طرف یه سری فیلد رو پر میکنه اعم از نامو نام خانوادگی و.......نقل قول:
بعد من یه سرچ میخوام اگر زد فامیل اکبری تمام اکبری ها رو تو خود اون فیل د ها نشون بده مثلا طرف فامیلیش اکبری هست شماره موبایل 02655564545 وقتی جستو جو کرد اکبری رو بقیه داده هایی که با اکبری ذخیره شدن رو تو فید هاشون نمایش بده مثل موبایل تکه کد بالا رو امتحان کن برای یکی دو بار جواب میده
کدی که من دادم هم همین کارو میکنه منتها من دقیقا متوجه مشکلت نشدم
البته این کد بعضی وقتها جواب نمیده ها
فکر کنم برای من از اون وقت ها هست