استفسار مهم

السلام عليكم

اولا يجب تعريف الحقل id على انه index في قاعدة البيانات

بطريقة DAO

'DAO
Dim db As Database
Dim rs As Recordset

db = DBEngine.OpenDatabase(App.Path & "db1.mdb")
Set rs = db.OpenRecordset("members")
If Not rs.BOF Then rs.MoveFirst
rs.Index = "id"
rs.Seek "=", 8
If rs.NoMatch Then
    MsgBox "السجل غير موجود"
Else
    MsgBox "السجل موجود"
End If

الف الف شكر

والله يعطيك العافية

بس لو كان شرطين بدل شرط

في طريقة ADO ايش الحل

السلام عليكم

طريقة ADO :

'ADO
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"

Set rs = New ADODB.Recordset
rs.Open "members", cn, adOpenDynamic, adLockOptimistic, adCmdTableDirect
If Not rs.BOF Then rs.MoveFirst

rs.Index = "id"
rs.Seek 8

If rs.EOF Then
   MsgBox "السجل غير موجود"
Else
   MsgBox "السجل موجود"
End If

و في حالة البحث باكتر من حقل في السجل ، يجب اولاً انشاء فهرس (Index) لحقلين وتسمية هذا الفهرس بأي اسم ولنفرض ان الاسم هو idx ، وفي جملة seek نكتب Array تم بين القوسين نكتب الاشياء التي نريد البحث عنها مثل (8, "a") .

هذا مثال يوضح ذلك :

'ADO
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"

Set rs = New ADODB.Recordset
rs.Open "members", cn, adOpenDynamic, adLockOptimistic, adCmdTableDirect
If Not rs.BOF Then rs.MoveFirst

rs.Index = "idx"
rs.Seek Array(8, "a")

If rs.EOF Then
   MsgBox "السجل غير موجود"
Else
   MsgBox "السجل موجود"
End If

الف شكر

وجزاك الله خير