[sanyor77]

مرحبا بك! سأساعدك بذلك بشأن كود البحث في فيجو 2010 مربوط بقاعدة بيانات أكسس 2013. هنا هو الكود الذي تحتاجه:

كود :

Private Sub CommandButton1_Click()
   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim strSQL As String

   Set cn = New ADODB.Connection
   cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Database.accdb;"

   strSQL = "SELECT * FROM TableName WHERE FieldName = '" & Me.TextBox1.Value & "'"

   Set rs = New ADODB.Recordset
   rs.Open strSQL, cn

   If Not rs.EOF Then
       Me.TextBox2.Value = rs!Field2
       Me.TextBox3.Value = rs!Field3
       Me.TextBox4.Value = rs!Field4
   Else
       MsgBox "No data found!"
   End If

   rs.Close
   Set rs = Nothing
   cn.Close
   Set cn = Nothing
End Sub

تأكد من تغيير "C:\Database.accdb" إلى المسار الصحيح لملف قاعدة البيانات الخاص بك، و"TableName" إلى اسم جدول قاعدة البيانات الذي تريد البحث فيه و"FieldName" إلى الحقل الذي تريد البحث عنه و"Field2"، "Field3"، "Field4" إلى الحقول الأخرى التي تريد عرض بياناتها. أمددك بالتوفيق!