اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عايزه كود يمنع الطباعه لو كل حقول result فاضيه


إذهب إلى أفضل إجابة Solved by Ahmos,

الردود الموصى بها

عايزه عند الضغط على زرار طباعه 

لو حقل

  result

(فاضى مع كل التحاليل  تخرج رساله (لايمكن الطباعه حيث لاتوجد نتائج مسجله 

وعند وجود حقل او اكثر من

result

 (به قيمه تخرج رساله( نتائج غير مكتمله هل تريد الطباعه نعم يطبع  لا يكنسل

 

وعند تكرار الطباعه تخرج رساله  تمت الطباعه سابقا عدد كذا مره

هل تريد الاستمرار نعم يطبع لا يكنسل

New Microsoft Access Database.accdb

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله أختي safaa salem5

قمت ببعض التعديلات وعمل استعلام وتقرير للتجربة زر الطباعة شغال الان

في الاستعلام نكتب Is Not Null عند الحقل الاهم وانا كتبتة تحت حقل result لكي لايقوم بطباعة التقارير الفارغة

تحياتي

واي استفسار انا جاهز

1111.jpg

New Microsoft Access Database.rar

رابط هذا التعليق
شارك

السلام عليكم اتمني يكون ده المطلوب

تم اضافه حقل عدد مرات الطباعه فى الجدول وربطه بالنموذج الفرعى

تم عمل تقرير فاضي عشان يكتمل عمل الكود ( تقدرى تبدليه بالتقرير بتاعك ) 

 

 

طباعه تحاليل بشروط.accdb

رابط هذا التعليق
شارك

1 hour ago, M.Abd Allah said:

السلام عليكم اتمني يكون ده المطلوب

تم اضافه حقل عدد مرات الطباعه فى الجدول وربطه بالنموذج الفرعى

تم عمل تقرير فاضي عشان يكتمل عمل الكود ( تقدرى تبدليه بالتقرير بتاعك ) 

 

 

طباعه تحاليل بشروط.accdbUnavailable

حضرتك مشكور جدا قربت كتير للمطلوب 

بس جرب حضرتك تفضى كل حقول ال

result

بيدينى نتائج غير مكتمله

لا انا عايزه فى حاله لو كل حقول

result

فاضيه يدينى رسالة 

 (لايمكن الطباعه حيث لاتوجد نتائج مسجله

ويرفض عملية الطباعه

لان فى الحاله دى هيكون فى اهدار للورق

-------------------------------------------------------------------------

يعنى انا قدام 3 حالات

الاولى لو حقل

result

فاضى مع كل التحاليل

تخرج رساله

(لايمكن الطباعه حيث لاتوجد نتائج مسجله)

------------------------------------------------------------------------------

الحاله التانيه لو حقل

result

لتحليل واحد او اكتر  مكتوب فيه قيمه ولكن باقى التحاليل لم تسجل قيمتها بعد

(هنا تظهر رساله ( نتائج غير مكتمله هل تريد الطباعه نعم يطبع  لا يكنسل

-------------------------------------------------------------------------------------------------

الحاله التالته لو كل القيم مكتوبه يطبع بدون رساله ولكن فى حال تكرار الطباعه تظهر رساله تقول 

 تمت الطباعه سابقا عدد كذا مره

هل تريد الاستمرار نعم يطبع لا يكنسل

 

رابط هذا التعليق
شارك

🌹حبيبتي صفاء حاولة اكمل علاقات الجداول

Cod ! ID !

=======================

1- اضافة شريط فحص باجمالي التحاليل الخطأ والفارغ 

2- اذا كان المريض لا يوجد تحاليل لا يطبع 

3- اذا يوجد بعض الحقول يطبع ما يكنسل

4- مع المعاينة وطباعة 

=========================

من غير رعود ولا بروق 😂

 

1.PNG

2.PNG

4.PNG

5.PNG

6.PNG

mxxx 00_00_00-00_00_30.gif

sfaa_EX.rar

رابط هذا التعليق
شارك

50 دقائق مضت, safaa salem5 said:

حضرتك مشكور جدا قربت كتير للمطلوب 

بس جرب حضرتك تفضى كل حقول ال

result

بيدينى نتائج غير مكتمله

لا انا عايزه فى حاله لو كل حقول

result

فاضيه يدينى رسالة 

 (لايمكن الطباعه حيث لاتوجد نتائج مسجله

ويرفض عملية الطباعه

لان فى الحاله دى هيكون فى اهدار للورق

-------------------------------------------------------------------------

يعنى انا قدام 3 حالات

الاولى لو حقل

result

فاضى مع كل التحاليل

تخرج رساله

(لايمكن الطباعه حيث لاتوجد نتائج مسجله)

------------------------------------------------------------------------------

الحاله التانيه لو حقل

result

لتحليل واحد او اكتر  مكتوب فيه قيمه ولكن باقى التحاليل لم تسجل قيمتها بعد

(هنا تظهر رساله ( نتائج غير مكتمله هل تريد الطباعه نعم يطبع  لا يكنسل

-------------------------------------------------------------------------------------------------

الحاله التالته لو كل القيم مكتوبه يطبع بدون رساله ولكن فى حال تكرار الطباعه تظهر رساله تقول 

 تمت الطباعه سابقا عدد كذا مره

هل تريد الاستمرار نعم يطبع لا يكنسل

 

رجاء إيضاح كده من الاول حتي نحصلي علي ما تريدين

مبروك 

طباعه تحاليل بشروط تم الحل.accdb

رابط هذا التعليق
شارك

29 minutes ago, hanan_ms said:

🌹حبيبتي صفاء حاولة اكمل علاقات الجداول

Cod ! ID !

=======================

1- اضافة شريط فحص باجمالي التحاليل الخطأ والفارغ 

2- اذا كان المريض لا يوجد تحاليل لا يطبع 

3- اذا يوجد بعض الحقول يطبع ما يكنسل

4- مع المعاينة وطباعة 

=========================

من غير رعود ولا بروق 😂

 

1.PNG

2.PNG

4.PNG

5.PNG

6.PNG

mxxx 00_00_00-00_00_30.gif

sfaa_EX.rar 624.31 kB · 1 download

شكرا باشمهندسه حنان

هو فعلا فى ربط بين الفورم الرئيسى والصب فورم ب id

بس شيلته عشان هضطر اضيف جداول وفورم تانيه عشان يشتغل وهو هنا مش محل السؤال

بصى بصراحه تسلم ايدك بس انا مش عايزه كل التغييرات اللى حصلت فى الفورم وكمان الاستعلامات كتير ياريت لو بالاكواد يكون افضل

15 minutes ago, M.Abd Allah said:

رجاء إيضاح كده من الاول حتي نحصلي علي ما تريدين

مبروك 

طباعه تحاليل بشروط تم الحل.accdb 584 kB · 0 downloads

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

رابط هذا التعليق
شارك

فرصه سعيده 

3 دقائق مضت, safaa salem5 said:

شكرا باشمهندسه حنان

هو فعلا فى ربط بين الفورم الرئيسى والصب فورم ب id

بس شيلته عشان هضطر اضيف جداول وفورم تانيه عشان يشتغل وهو هنا مش محل السؤال

بصى بصراحه تسلم ايدك بس انا مش عايزه كل التغييرات اللى حصلت فى الفورم وكمان الاستعلامات كتير ياريت لو بالاكواد يكون افضل

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

فرصه سعيده 

رابط هذا التعليق
شارك

23 ساعات مضت, safaa salem5 said:

عايزه عند الضغط على زرار طباعه 

لو حقل

  result

(فاضى مع كل التحاليل  تخرج رساله (لايمكن الطباعه حيث لاتوجد نتائج مسجله 

وعند وجود حقل او اكثر من

result

 (به قيمه تخرج رساله( نتائج غير مكتمله هل تريد الطباعه نعم يطبع  لا يكنسل

 

وعند تكرار الطباعه تخرج رساله  تمت الطباعه سابقا عدد كذا مره

هل تريد الاستمرار نعم يطبع لا يكنسل

New Microsoft Access Database.accdb 1.66 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 8 downloads


If DCount("test", "test_order_tbl", "[ID] = [forms]![result_collect_frm]![ID] and [xsub] = [forms]![result_sub]![xsub] and [completed] = true ") = 0 Then
    MsgBox "لايمكن الطباعه حيث لاتوجد نتائج مسجله", vbOKOnly + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تحذير"
    Exit Sub
Else
End If
عدلى البيانات كما في النموذج الكامل 

رابط هذا التعليق
شارك

بعد عمري صفاء 

@Moosak من غير كثرة الاستعلامات حاولة مع وحش المكتبة العامر 😂

لاي نموذج سهل 

بنتظار تجره 

يالله بسحب الركام تيب استاذي @ابو جودي

ندخل سونامي

❤️🌹🌹

😂

 

 

6.PNG

m1.gif

m2.gif

ان شاء الله سهل عليج حبيتي صفاء ما يحتاج شرح😇

m3.gif

m4.gif

m5.gif

DOA_SQL_Objects List 1.0.rar

4.PNG

رابط هذا التعليق
شارك

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

الأستاذة صفاء
يمكنك إضافة الكود التالي في الحدث عند النقر او في Public sub واستدعائه

 

    Dim msgResponse         As VbMsgBoxResult
    Dim totalRecords        As Integer
    Dim totalSeeReport      As Integer
    Dim totalNotEmptyResult As Integer
    Dim totalEmptyResult    As Integer
    Dim tableName           As String
    
    
    tableName = "test_order_tbl"
    totalRecords = DCount("*", tableName)
    If totalRecords = 0 Then
        MsgBox "There are no records in Table : " & tableName, vbCritical + vbOKOnly, "Error : No Records"
        Exit Sub
    End If
    
    totalSeeReport = DCount("[see_report]", tableName, "[see_report]=false")
    totalNotEmptyResult = DCount("[see_report]", "test_order_tbl", "[see_report]=false and not isnull([result])")
    totalEmptyResult = DCount("[see_report]", "test_order_tbl", "[see_report]=false and isnull([result])")
    
    If totalSeeReport = totalEmptyResult Then
        MsgBox "No need To Print this Report", vbInformation + vbOKOnly, "No Need To Print"
        Exit Sub
    ElseIf totalSeeReport = totalNotEmptyResult Then
        ' Here you shuold add the print code to print all records
        Debug.Print "Report Printed"
    Else
        msgResponse = MsgBox("Only Some Results Exist" & vbCrLf _
                        & "Do you want to Print The report ?", vbQuestion + vbYesNo, "Do You want to Print ?")
                
        If msgResponse = vbYes Then
            ' Here you shuold add the print code to print all records
            Debug.Print "Report Printed"
        Else
            Debug.Print "Report will not be Printed"
        End If
    End If


اما بخصوص هل تم طباعته من قبل
وحتي لا نضيف أي شي لواجهة البرنامج
فاقتراح إضافة عمود بالجدول او اثنين 
1- نعم او لا إذا تم الطباعة
2- لعدد مرات الطباعة

إذا كان هذا الاقتراح مناسب فيمكنك التعديل علي الملف ومشاركته مرة أخرى 
وإن شاء الله سأضيف الاكواد اللازمة لتحديثه

رابط هذا التعليق
شارك

جربت كل الحلول للاسف محدش قادر يوصل للى انا محتاجاه

الحلول كلها مبنيه ان 

جميع حقول 

result 

 

لو فاضىه مفيهاش قيمه (is null)

او  كلها مش فاضيه (isnot null)

----------------------------------------------------------------

فى مرحله وسط

اللى هى بعض الحقول فيها قيمها وبعضها لا

----------------------------------------------- وللاسف محدش اخد باله من النقطه دى---------------------------------------------------------

 

رابط هذا التعليق
شارك

في 8‏/6‏/2024 at 16:44, UserUser2 said:


If DCount("test", "test_order_tbl", "[ID] = [forms]![result_collect_frm]![ID] and [xsub] = [forms]![result_sub]![xsub] and [completed] = true ") = 0 Then
    MsgBox "لايمكن الطباعه حيث لاتوجد نتائج مسجله", vbOKOnly + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تحذير"
    Exit Sub
Else
End If
عدلى البيانات كما في النموذج الكامل 

الحل في الكود هنا ⬆️

 

15 دقائق مضت, safaa salem5 said:

جربت كل الحلول للاسف محدش قادر يوصل للى انا محتاجاه

الحلول كلها مبنيه ان 

جميع حقول 

result 

 

لو فاضىه مفيهاش قيمه (is null)

او  كلها مش فاضيه (isnot null)

----------------------------------------------------------------

فى مرحله وسط

اللى هى بعض الحقول فيها قيمها وبعضها لا

----------------------------------------------- وللاسف محدش اخد باله من النقطه دى---------------------------------------------------------

 

 

رابط هذا التعليق
شارك

13 minutes ago, UserUser2 said:

الحل في الكود هنا ⬆️

 

 

كدا حضرتك بردو هيكون فى اختيارين

لو

[completed] = -1

او

[completed] = 0

مش هيكون فى اختيار تالت

 

تم تعديل بواسطه safaa salem5
رابط هذا التعليق
شارك

23 minutes ago, Ahmos said:

الملف المعدل بالمرفقــات

*ملحوظة أكواد الطباعة الموجودة خـاصة بطابعة الـ SUB_FORM
في حال كان هناك تقرير ستختلف أكواد الطباعة
 

Safaa_New.accdb 596 kB · 0 downloads

متشكره جدا جزاك الله خيرا هو دا طلبى بالظبط فاضل نقطة عدد مرات الطباعه بس

رابط هذا التعليق
شارك

منذ ساعه, safaa salem5 said:

فاضل نقطة عدد مرات الطباعه بس

لو محتاجه تعمليها بدون التعديل علي واجهة البرنامج ممكن نعملها لكن في تفاصيل لازم نجاوب عليها
1- الـ Sub_Form بيفتح باستعلام معني كدا ان محتوي الفورم نفسة فالغالب هيتغير كل مرة
 2- فالحالة دي هنحتاج نميز كل سجل هل تم طباعته ام لا ودي ممكن نوصلها " إن شاء الله " نضيف عمود في الجدول
3- وممكن نضيف عمود كمان عشان عدد مرات الطباعة
4- هل هنحتاج نضيف حد أقصي وأين سنضيفه في الكود أم في الواجهة ؟

محتاج أعرف احتياجك بالظبط وإن شاء الله ربنا يوفقنا ونوصل للمطلوب

     

منذ ساعه, safaa salem5 said:

هو دا طلبى بالظبط

الحمد لله والشكر لله
بالتوفيق

رابط هذا التعليق
شارك

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

الاستاذة / صفاء @safaa salem5
 

تم بحمد الله  عمل التعديلات المطلوبة من خلال الأكواد وبإضافة عمودين للجدول ( isPrinted - printCount )
 الملف بالمرفقات

image.png.934bc113ec67d05a19edc00295d235ed.png

image.png.36f1febbef9e9220f8b637236c849d57.png

image.png.984ef75fee712ba4acea3640104dfd1a.png

Safaa_V2.accdb

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information