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

[safaa salem5]

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

لو حقل

  result

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

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

result

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

 

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

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

New Microsoft Access Database.accdb

[safaa salem5]

؟؟

[ahmed draz]

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

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

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

تحياتي

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

New Microsoft Access Database.rar

[safaa salem5]

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

[M.Abd Allah]

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

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

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

 

 

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

[safaa salem5]

1 hour ago, M.Abd Allah said:

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

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

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

 

 

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

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

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

result

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

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

result

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

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

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

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

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

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

الاولى لو حقل

result

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

تخرج رساله

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

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

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

result

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

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

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

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

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

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

 

[hanan_ms]

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

Cod ! ID !

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

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

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

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

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

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

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

 

sfaa_EX.rar

[M.Abd Allah]

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

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

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

result

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

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

result

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

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

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

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

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

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

الاولى لو حقل

result

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

تخرج رساله

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

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

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

result

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

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

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

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

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

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

 

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

مبروك 

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

[safaa salem5]

29 minutes ago, hanan_ms said:

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

Cod ! ID !

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

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

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

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

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

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

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

 

sfaa_EX.rar 624.31 kB · 1 download

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

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

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

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

15 minutes ago, M.Abd Allah said:

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

مبروك 

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

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

[M.Abd Allah]

فرصه سعيده 

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

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

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

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

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

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

فرصه سعيده 

[safaa salem5]

فى حد عنده طريقه اسهل 

[safaa salem5]

محتاجه اجابه ضرورى لأن الحلول اللى طرحت بعيد عن المطلوب 

[UserUser2]

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
عدلى البيانات كما في النموذج الكامل 

[hanan_ms]

بعد عمري صفاء 

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

لاي نموذج سهل 

بنتظار تجره 

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

ندخل سونامي

❤️🌹🌹

😂

 

 

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

DOA_SQL_Objects List 1.0.rar

[Ahmos]

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

الأستاذة صفاء
يمكنك إضافة الكود التالي في الحدث عند النقر او في 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- لعدد مرات الطباعة

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

[safaa salem5]

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

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

جميع حقول 

result 

 

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

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

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

فى مرحله وسط

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

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

 

[UserUser2]

في 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)

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

فى مرحله وسط

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

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

 

 

[safaa salem5]

13 minutes ago, UserUser2 said:

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

 

 

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

لو

[completed] = -1

او

[completed] = 0

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

 

تم تعديل يونيو 10 بواسطه safaa salem5

[Ahmos]

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

فى مرحله وسط

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

[safaa salem5]

@Ahmosممكن تطبق على الملف لو سمحت حضرتك

تم تعديل يونيو 11 بواسطه safaa salem5

[Ahmos]

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

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

Safaa_New.accdb

[safaa salem5]

23 minutes ago, Ahmos said:

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

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

Safaa_New.accdb 596 kB · 0 downloads

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

[Ahmos]

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

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

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

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

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

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

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

[Ahmos]

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

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

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

Safaa_V2.accdb

[safaa salem5]

شكرا جدا لحضرتك لاهتمامك

كل سنه وانت طيب Ahmos