[mosa2000]

Private Sub Command2_Click()
Dim gFind As String, gBookMark As Variant
gFind = InputBox("Find What : ", "Search")
If Trim(gFind) = "" Then Exit Sub
'End If
gBookMark = rs.Bookmark
rs.Find "[الاسم] = '" & Trim(gFind) & "'", 0, adSearchForward, 1
Exit Sub
Call openconnection
With rs
.ActiveConnection = con
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "select * from [دليل الاسواق]"
End With
End Sub
اخي انا لدي قاعدة بيانات في اكسس2007 جربت هذا الكود ولم يعمل ارجوا المساعدة في حل المشكلة