يرجى الاهتمام

جرب هذا الحل ...

تفضل..

الحقل.zip

تفضل اخي الكريم ،،، هذا ملف اعتقد للاستاذ الفاضل / ابو عقيل ،،، قريب من طلبك ،،، عسى ان يفي بالغرض إن شاء الله

الفواتير.rar

عفوا اخي / fahad ،،، يبدو اننا كتبنا المشاركة في وقت واحد ......

كلانا واحد اخي الكريم ... :rolleyes:

جميعنا في خدمة هذا المنتدى ....

حياك الله ،،، اخي الكريم / fahad ....

اشكركم اخوتي على الاهتمام ، وفعلا هذا هو المطلوب كما اشار الأخ عبدالمانع لكن سؤالى هو دون ان يستند النموذج على جدول اي ليس بطريقة record source وانما عن طريق الكود وللتوضيح أكثر كود مشابه لهذا

dim rs as record set , sql as string,db as database

set db = currentdb

sql = "select * from master where...."

me!b = المطلوب

لأنني استخدم الكود في برامجي

اكرر شكري ثانية لعل وعسى ان أجد المطلوب

تحياتي للأخ فهد والأخ عبدالمانع

أخي الكريم ..

من النافذة البرمجية : من قائمة Tools اختر References

أضف أي إصدار من الإصدارات التالية للمرجع ADOX

Microsoft ADO Ext. 2.1 for DDL and Security

Microsoft ADO Ext. 2.5 for DDL and Security

Microsoft ADO Ext. 2.6 for DDL and Security

Microsoft ADO Ext. 2.7 for DDL and Security

Microsoft ADO Ext. 2.8 for DDL and Security

ثم إليك الكود :

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim clm As New ADOX.Column
Dim tblName As String

Dim Rec As New ADODB.Recordset
' أخذ اسم الجدول الذي به الحقل
cat.ActiveConnection = CurrentProject.Connection
For Each tbl In cat.Tables
    For Each clm In tbl.Columns
        If clm.Name = Me.a Then
            tblName = tbl.Name
        End If
    Next clm
Next tbl
        
Set cat = Nothing
' معرفة قيمة الحقل
Me.b = DLookup(Me.a, tblName)

صباح الخير - اشكر كل من ساهم بحل هذا الموضوع

فعلا تم تجربة كوك الأخ أحمد الحربي والنتيجة 100% تحياتي وبارك الله بكم على هذا المجهود