[ تمت الإجابة ]أظهار بيانات العميل الحالي في التقرير

تفضل اخي الكريم

ستجد الكود تحت زر الأمر الخاص بمعاينة التقرير

Invoice_Nama_up.rar

بارك الله فيكي يا أستاذتي على الأهتمام ، يبدو أني لم أشرح الموضوع بشكل صيح المطلوب هو

عندي برنامج فاتورة خاص متكون من أربع جداول الأول هو رأس الفاتورة والثاني تفاصيل الفاتورة والثالث بيانات العميل ،والرابع هو الأصناف حيث أن جدول الفاتورة فيه قائمة منسدلة بأسماء العملاء طبعاً مأخوذ من جدول العملاء ، المطلوب هو عند أختيار أسم العميل ، يظهر في التقرير بيانات العميل كاملة من أسم ورقم هاتف وفاكس وغيره ....والتقرير المطلوب أجراء التطبيق عليه بأسم Table1

تفضل اخي الكريم

الملف بعد التعديل

Invoice_Nama_up2.rar

شكراً جزيلاً أختي الفاضلة ، ممكن أن تشرحي لي كيف تمت العملية لأن هدفي هو التعلم ، وشرفٌ لي أن تقومي بالرد على موضوعي

اخي الفاضل

هل يوجد مشكلة في فهم هذا الكود

Private Sub CmdView_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[To]=" & "'" & Me![To] & "'"
DoCmd.OpenReport "Table1", acViewPreview, , stLinkCriteria
End Sub

فهذا من اسهل وابسط الأكواد حيث لا يوجد به شيء معقد

اول سطر :

قمنا بإستخدام التصريح Dim لرابط وهمي يسمى stLinkCriteria وجعلناه من نوع نص String

ثاني سطر

الرابط الوهمي stLinkCriteria جعلناه يساوي حقل الإسم ( لأنه نصي في النموذج والتقرير ) والحقل في التقرير اسمه TO وفي النموذج ايضا TO بمعنى اننا ربطنا بين الأثنين فعندما نفتح التقرير يتم مطابقة نفس الأسم في النموذج والتقرير ويفتح التقرير على نفس الأسم الموجود في النموذج المفتوح .

ثالث سطر

نقوم بفتح التقرير Table1 بدالة OpenReport في وضع المعاينة acViewPreview مع الأخذ بعين الإعتبار حقل الربط stLinkCriteria بين الحقلين ( حقل الإسم ) TO بين النموذج والتقرير

ونفس الكلام ينطبق على التقرير في وضع الطباعة acViewNormal

لا أرى ان هذا الكود يحتاج الى شرح .

السلام عليكم ورحمة الله وبركاته

أولا جمعة مباركة على جميع المسلمين ، بارك الله فيكي على هذا الشرح المفصل.

ثانياً أنا سألت لأني مبتدأ، ولم أتوقع أن العملية تتم بهذا الشكل.

أسأل الله أن يجعل ذلك في ميزان حسناتك .

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة