(تمت الاجابة) ممكن مساعدة فى طباعة التقرير

[فرهاد كريم]

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

تحية طيبة للجميع

اساتذة فى برنامج لدية تقرير و اريد وضع زر لطباعة التقرير بحيث يتم طباعة التقرير مرة واحدة فقط

مثلا ( اذا قمت بالضغط على زر طباعة يتم طباعة التقرير مرة واحدة و بعدها يتم قفل زر الطباعة و تفتح زر طباعة مرة اخرى بكلمة مرور )

Sample.rar

تم تعديل سبتمبر 3, 2011 بواسطه فرهاد كريم

[أبو آدم]

أخي العزيز

فكرة جميلة

التطبيق المرفق تفصيل للأخ فرهاد هدية العيد

جرب ووافني بالنتيجة

...........

NA_PasswordToRe-PrintReport.rar

[فرهاد كريم]

ماشاء الله عليك استاذى العزيز والله هذا هو المطلوب اشكرك جزيل شكر

لكن استاذى العزيز لديه طلبين

1 ) هل يمكن ان تكون كلمة مرور بشكل نجمة

2 ) وهل يمكن جعل زرطباعة التقرير يطلب كلمة مرور دائما

اشكرك مرة اخرى ان شاء الله موفق

[أبو آدم]

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

تفضل ....

http://www.officena....showtopic=37919

والله من وراء القصد

[أبو آدم]

أما بخصوص زر يطلب كلمة مرور دائما لطباعة التقرير ، فنقوم بانشاء زر الأمر ونضع في حدث عند النقر الكود التالي :

Private Sub Command4_Click()

On Error GoTo Err_Command4_Click

	Dim stDocName As String

	Dim strPasswd


	strPasswd = InputBox("Enter Password To Print The Report", "Restricted Report")

	If strPasswd = "" Or strPasswd = Empty Then

    	MsgBox "No Input Provided", vbInformation, "Required Data"

    	Exit Sub

	End If

	If strPasswd = "123" Then

    	DoCmd.OpenReport "Report", acViewPreview

	Else

    	MsgBox "Sorry, you do not have access to this Report", _

       		vbOKOnly, "Important Information"

    	Exit Sub

	End If



	stDocName = "Report"

	DoCmd.OpenReport stDocName, acViewPreview


Exit_Command4_Click:

	Exit Sub

Err_Command4_Click:

	MsgBox Err.Description

	Resume Exit_Command4_Click


End Sub

فيصبح طلب طباعة التقرير مشروط دائما بكتابة كلمة المرور

[فرهاد كريم]

تمام استاذى العزيز ان شاء الله موفق

[أبو آدم]

(تمت الاجابة)

[youssef103]

بارك الله فيك استاذ نارت لبزو

و زادك الله من العلم و جزاك كل خير

موضوع له صلة بـ InputBox

لتشفيرالكتابة داخل inputbox على شكل ( ********* )

الرابط : http://www.officena.net/ib/index.php?showtopic=32087&hl=&fromsearch=1

وشكـــــــــــــــــراً