السلام عليكم أعضاء المنتدى الكرام أذكر طريقة تكملة البيانات تلقائيا في الفورم انطلاقا من نفس الجدول بحيث هناك طريقتين:
طريقة الاولى عن طريق ما يسمى recordset
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Clients WHERE idClient= " & Me.nomClien, dbOpenDynaset)
Me.Societé = rs!Societé
Me.Adresse = rs!Adresse
Me.Tel = rs!Tel
Me.Email = rs!Email
Me.Ville = rs!Ville
rs.Close
Set rs = Nothing
أما الطريقة الثانية فهية عن طريق Dlookup
If DLookup("idClient", "Clients", "idClient=" & Me.nomClien) Then
Me.Ville = DLookup("Ville", "Clients", "idClient=" & Me.nomClien)
Me.Societé = DLookup("Societé", "Clients", "idClient=" & Me.nomClien)
Me.Adresse = DLookup("Adresse", "Clients", "idClient=" & Me.nomClien)
Me.Tel = DLookup("Tel", "Clients", "idClient=" & Me.nomClien)
Me.Email = DLookup("Email", "Clients", "idClient=" & Me.nomClien)
End If
سأرفق الملف لفهم أكثر
كما أطلب من أساتذتنا الكرام هل هناك طريقة أخرى تقوم بهذا العمل بغرض التعلم لان هناك دائم طرق كثير للوصل الى الهدف في أكسس وشكرا لكم .
test.accdb