امر طباعة فاتورة لمرة واحدة

[alaa aboul-ela]

السلام عليكم

الاساتذة الافاضل اريد كود طباعة الفاتورة لمرة واحدة ..

تحياتي ..

[jjafferr]

وعليكم السلام

 

سؤال غريب ياباشا

هل قصدك انه بعد طباعة الفاتورة ، لا تريد ان يتم طباعتها مرة ثانية؟

 

جعفر

[alaa aboul-ela]

اهلا استاذي جعفر 
بالظبط كده .. وتكون في كل مرة 3 نسخ 1 للعميل و 1 للحسابات و1 للمخازن :) 

معلش
وكود كمان لزر بعد الضغط عليه للمرة الاولى يظهر بعدها غير مفعل او غير ممكن ..

اثقلت عليك ولكني اعرف انك قدها وقدود :)

 

تم تعديل سبتمبر 2, 2018 بواسطه alaa aboul-ela

[jjafferr]

لازم نعمل حقل في جدول الفواتير (يكون مثلا نعم/لا ، وليكن اسمه Printed) والقيمة الافتراضية تكون 0 (لا) ،

وعلى زر طباعة الفاتورة ، يكون عندك كود شبيه بهذا:

	if me.dirty then me.dirty=false

	if me.printed=-1 then
		msgbox "تمت الطباعة سابقا"
	else
		 'اما اذا كان حقل التعريق نص :
    	DoCmd.OpenReport "Report Name", acViewPreview, , "myID='" & Me.id & "'", acHidden

    	DoCmd.PrintOut , , , , 3
    	DoCmd.close acReport, "Report Name"

		me.printed=-1
	end if

 

وكذلك يمكنك في حدث "الحالي" للنموذج ان تختبر قيمة Printed ، فاذا كانت -1 تعمل لزر الطباعة:

	if me.printed=-1 then
		me.cmd_Print.enabled=false
	else
		me.cmd_Print.enabled=true
	end if

 

جعفر

[alaa aboul-ela]

جزاكم الله خيراً 
ساجرب الطريقة واخبركم بالنتيجة ان شاء الله ..

[alaa aboul-ela]

تمت التجربة بنجاح .. سلمت يداك ...
بقي الطلب الثاني كيف لي ان اجعل الزر غير ممكن عن الضغط عليه للمرة الثانية .. مشكور مقدما

[jjafferr]

2 ساعات مضت, jjafferr said:

وكذلك يمكنك في حدث "الحالي" للنموذج ان تختبر قيمة Printed ، فاذا كانت -1 تعمل لزر الطباعة:

	if me.printed=-1 then
		me.cmd_Print.enabled=false
	else
		me.cmd_Print.enabled=true
	end if

 

 

[محمد قاسم 12]

ياريت التنفيذ على مثال للتعلم بارك الله فيكم

 

[alaa aboul-ela]

السلام عليكم

بعد اذن استاذ جعفر واسف للتاخير في الرد على الزميل @محمد قاسم 12

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

names.accdb

[alaa aboul-ela]

كود عدم التمكين بعد الضغط للمرة الاولى

Command0.Enabled = False
or
Command1.Enabled = False
or
Command2.Enabled = False

 

عدم تفعيل زر.accdb