مشكلة في قاعدة البيانات

اخي الفاضل : ابو ادم

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

تأكد اولا انك معطي الصلاحيات للتقارير للمستخدمين

ثانيا استبدل الأكواد الخاصة بالمعاينة والطباعة للتقارير بهذه الأكواد في النموذج الرئيسي

للمعاينة

Private Sub IntUse_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[T R No] =" & Me![T R No]
DoCmd.OpenReport "Int useTd", acViewPreview, , stLinkCriteria
End Sub

Private Sub ExtUse_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[T R No] =" & Me![T R No]
DoCmd.OpenReport "Ext useTD", acViewPreview, , stLinkCriteria
End Sub

للطباعة

Private Sub أمر97_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[T R No] =" & Me![T R No]
DoCmd.OpenReport "Int useTd", acViewPrint, , stLinkCriteria
End Sub

Private Sub أمر98_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[T R No] =" & Me![T R No]
DoCmd.OpenReport "Ext useTD", acViewPrint, , stLinkCriteria
End Sub

بالتوفيق

أختي الكريمة / أم عهود

الشكر الجزيل لك ، ساعدل هذه الأكواد التي أشرتي إليها ، علما بأنني قمت بعد مشاركتي اليوم بمحاولة أخرى وهي فتح محرر الفيجوال بيسك وعملت Compile وأصلحت بعض الأخطاء وجربتها الان علي جهازي وتحسن الأداء وأقوم إن شاء الله غدا ان سمحت الظروف بتطبيق التعديلات بالعمل على الأجهزة

مع فائق تقديري لك أختنا

مرة أخرى الشكر والتقدير ، لدي الان طلبين إن أمكن واذا لم يخالف قواعد المشاركة (ذلك انني قمت برفع البرنامج) وهما

1) قمت بعمل عدم امكانية التحرير على النموذج الرئيسي بعد الادخال باليوم التالي ولكن اريد تعديلا على الكود بحيث لاينطبق ذلك على مربع الخاص البحث بالنموذج الرئيسي(مربع تحرير وسرد93)

2) إضافة جدول يكون هيستوري لمن قام بالتعديل ويوجد من قام بالادخال فقط ولكن عند التعديل يظهر المستخدم الذي قام بالتعديل هو الاخير ولكن اريد حفظ حق الذي انشأ السجل

مع الشكر

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