ويش المشكلة في هذا الكود

اقتباس

للعلم ID هو عمود معرفه سابقا على انه نص في قاعدة البينات

وقمت بتغير الى رقم حاليا

اذا عليك أزالة علامات التنصيص = '" & iID & "'

ثاني شي أنت استخدمت كلمة محجوزة مثل date

جرب الكود بهذه الطريقة بعد أن تعيد التسمية في الحقول

	findRs.Open "Select * FROM tblCome Where ID=" & iID & " AND gDate ='" & _
				Format(gNow, "dd/mm/yyyy") & "'", CN, adOpenStatic, adLockPessimistic

السلام عليكم

اذا عليك أزالة علامات التنصيص = '" & iID & "'

ثاني شي أنت استخدمت كلمة محجوزة مثل date

كلام جميل

الله يعطيك الف الف عافية اخي العزيز

HnHn

واسف على التأخير في شكرك

وعندي بعد سؤال بسيط لك او لاي من الاخوة الراغبين في المساعدة

هذا الكود هو للبحث

Private Sub cmbFind_Click()

	If Len(Trim(txtFindText.Text)) = 0 Then
		MsgBox "الرجاء ادخال نص البحث", vbInformation, "البحث"
		txtFindText.SetFocus
		Exit Sub
	End If

	Call Full
	Call SelectField

	If fRs.State = adStateOpen Then fRs.Close
	Select Case sFull
		Case "Full"
			fRs.Open "Select * From Details Where  " & sField & " = '" & Trim(txtFindText.Text) & "'", CN, adOpenStatic, adLockPessimistic
		Case "StartWith"
			fRs.Open "Select * From Details Where " & sField & " Like '" & Trim(txtFindText.Text) & "%'", CN, adOpenStatic, adLockPessimistic
		Case "Contain"
			fRs.Open "Select * From Details Where  " & sField & " Like '%" & Trim(txtFindText.Text) & "%'", CN, adOpenStatic, adLockPessimistic
		Case "EndWith"
			fRs.Open "Select * From Details Where  " & sField & " Like '%" & Trim(txtFindText.Text) & "'", CN, adOpenStatic, adLockPessimistic
	End Select

	Set flxFind.DataSource = fRs

	With flxFind
		.TextArray(0) = "الرقم"
		.TextArray(1) = "الاسم"
		.TextArray(2) = "رقم البطاقة"
		.TextArray(3) = "مسمى الوظيفة"
		.TextArray(4) = "المرتب"
		.TextArray(5) = "رقم الهاتف"
	End With

	Call AutoResize
 lblFindRes.Caption = "عدد النتائج:" & fRs.RecordCount & "نتيجة"

	If fRs.RecordCount = 0 Then
		MsgBox "لا يوجد نتائج", vbInformation, "البحث"
	End If
End Sub

دائما عند عمل بحث يعطيني مشكلة وهو عدم اتصال بالبينات مع معرفتي اني قمت بتأكد من ذالك لكن ما في فايدة فتظهر عندي رسالة

وهي كالتالي

الصورة في المرفق