كيف يمكن جعل السجل بعد طباعته للقراءة فقط ثم
كيف يمكن جعل نفس السجل قابل للتعديل بواسطة كلمة سر
كيف أجعل السجل للقراءة فقط ، بعد الطباعة
مغلق
بان تضيف حقل من نوع نعم/لا فى الجدول يعبر هل تم الطباعة أم لا ، و تغير القيمة بعد الطباعة فى كود الطباعة ، و تختبرها عند محاولة الطباعة ثانية
كنت قد سئلت السؤال التالي: كيف يمكن جعل السجل بعد طباعته للقراءة فقط ثم كيف يمكن جعل نفس السجل قابل للتعديل بواسطة كلمة سر فكان الجواب :
بان تضيف حقل من نوع نعم/لا فى الجدول يعبر هل تم الطباعة أم لا ، و تغير القيمة بعد الطباعة فى كود الطباعة ، و تختبرها عند محاولة الطباعة ثانية
السؤال
هلا ساعدتني بكتابة الكود :حيث يمكنك أفتراض اسم الجدول الذي تريد
و أكون شــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــاكر جــــــــــــــــــــــــــــــداً
اولا يرجي اتباع قواعد طرح الاسئلة ، و عدم فتح موضوع جديد لنفس السؤال ، و الاكمال فى نفس الموضوع ( راجع الموضوع المثبت أعلي المنتدي )
( تم دمج الموضوعان )
Private Sub Command3_Click()
If DLookup("[yess]", "table1", "[id]=" & Me.id) = -1 Then
MsgBox "you have printed this record before"
Exit Sub
Else
DoCmd.SetWarnings False
Dim stDocName As String
stDocName = "report1"
DoCmd.OpenReport stDocName, acViewPreview, , "[id]=" & Me.id
DoCmd.RunSQL "UPDATE Table1 SET Table1.yess = -1 WHERE (((Table1.id)=" & [Forms]![Form1]![id] & "));"
DoCmd.SetWarnings True
End If
End Subحيث yess هو اسم الحقل الذي أسجل فيه تمت الطباعة من خلال الزر ام لا
و لتنفيذ الامر علي الطباعة مباشرة بدلا من ال preview
استبدل acViewPreview ب acnormal
مع تحياتي
هذا هو المثال ،
و هنا أسجل القيمة فى جدول منفصل اسمه table1 ، و بالطبع يمكن التسجيل فى حقل فى نفس الجدول المبني عليه التقرير
و لكن وضعتها فى جدول منفصل لربما تستخدم مع تقارير أخري بنفس الرقم
فوظفها كيف تشاء
هذا الموضوع مغلق.