طباعة التقرير والعودة لحفظ السند

[رعد داود]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
في النموذج  edit عملت  زر حفظ البيانات وهناك  رسائل تأكيد قبل الحفظ
الرسالة الاولى هي  اذا كان السند هو سند صرف وأن قيمة  tr _رصيد الصندوق_ اكبر من t2_ مجموع دائن _ فلايتم  حفظ السند
أواجه  فيها مشكلة في تحقق الشرط  وفي الحفظ  في  جدول  bills2 عند  عدم الحفظ  في الجدول الرئيسي bills
كما اريد في رسالة  الطباعة عند تحقق الشروط  أعلاه ... فعند ظهور التقرير  لايظهر شريط الطباعة  وأريد عند اغلاق التقرير العودة برسالة الحفظ
ارفق  البرنامج

حسابات 2.rar

[ابو ياسين المشولي]

الرسالة اللي تواجه فيها مشكلة تح حلها

اللي بعدها ما فهمتها ممكن الاخوان بيفهمو 

هذا كود الرسالة الاولى

Dim x As Boolean
x = Me.T2
If Me.tr > x Then
MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ")
Me.Undo
Else

 

تم تعديل فبراير 22, 2018 بواسطه ابو ياسين المشولي

[رعد داود]

السلام عليكم

الأخ الفاضل ابو ياسين مشكور على الرد .... انا أردت ان تظهر الرسالة فقط في حال كان السند  هو سند صرف  عند الاختيار من كومبو types
أنا عملت شرط  لكن لم تفلح
 

[ابو ياسين المشولي]

44 دقائق مضت, رعد داود said:

السلام عليكم

الأخ الفاضل ابو ياسين مشكور على الرد .... انا أردت ان تظهر الرسالة فقط في حال كان السند  هو سند صرف  عند الاختيار من كومبو types
أنا عملت شرط  لكن لم تفلح
 

اذا سوف تكون الرسالة بهذا الشكل

If Me.tr > Me.T2 And Me.types = "سند صرف" Then
MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ")
Me.Undo
Else

 

[رعد داود]

السلام عليكم اخي ابو ياسين
تبقى  الرسالة  تظهر  حتى  وان اعطيت  مبلغ  اقل  من  الرصيد  الموجود

 

 

 

[ابو ياسين المشولي]

انا جبتها لك من اول صح

لكن انت مابعرف ليه ماضبطت معك برغم اني جربتها

Dim x As Boolean
x = Me.T2
If Me.tr > x And Me.types = "سند صرف" Then
MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ")
Me.Undo
Else

 

[رعد داود]

مشكور اخي ابو ياسين  لاأدري  ماهو الخلل
إليك  البرنامج  بعد جلب الكود الاخير  الذي  عملته  انت
جزاك الله خيرا

حسابات 2.rar

[ابو ياسين المشولي]

طيب اخي هي كذا تمام

الرصيد عندك 9000

وفي الخانه 8000 هويقبل بدون رسالة

ممكن توضح ايش اللي تريده

انت لو عملت الرصيد 7000 والصرف 8000 لا يقبل

وهذا انا ما اشوفه حسب الشرط

[رعد داود]

السلام  عليكم  اخي  الفاضل
في  حال  الرصيد  9000

اذا  كان الصرف اكثر من 9000 لايقبل

يعني  اي  رصيد  يظهر  في  تكست  tr  اذا  كان  سند صرف  ومجموع  التكست t2  اكثر  فلايقبل  الحفظ والترحيل
وفي  حال  المبلغ  اقل  فعادي  يحفظ  ويرحل

[ابو ياسين المشولي]

وهذ ماتم بالفعل

 

[رعد داود]

وهذ ماتم بالفعل

السلام  عليكم  استاذي
ممكن  التطبيق  على  البرنامج  المرفق  وارساله  لطفا"  فلايظهر  عندي  لا أعرف  ما الخلل

[ابو ياسين المشولي]

الله يهدينا ويهديك قول امين

انا عكست المسميات وانت لم تراجعني بارك الله فيك

شوفها الان واعطيني خبر

Dim x As Boolean
x = Me.tr
If Me.T2 > x And Me.types = "سند صرف" Then
MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ")
Me.Undo
Else

بدل trعملت t2

المعذرة

لم ترد عليا هل هو المطلوب

[رعد داود]

والله  تعبتك  معي  لكنه  ايضا  لايعمل  تظهر  الرسالة  نفسها  فيما اذا  كان  اقل  او  اكثر

[ابو ياسين المشولي]

اتفضل ان شاء الله ميه في المية

Dim i, x As Integer
x = Me.tr
i = Me.T2

If i > x And Me.types = "سند صرف" Then
MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ")
Me.Undo
Else

 

تم تعديل فبراير 24, 2018 بواسطه ابو ياسين المشولي

[رعد داود]

السلام عليكم
اشكرك  اخي  ابو ياسين  الطيب

الكود شغال  وأحسنت ... بقيت  قضية  عندما  تم تصفير الرصيد ,,, لايظهر الصفر  في  تكست بوكي tr
والكود  يبدأ بالتنبيه  على  هذا  الأمر  .... كيف  تحل  القضية 

[ابو ياسين المشولي]

انا الان داخل بالجوال ولا اعلم كيف تتم التصفير

[رعد داود]

وأنا ايضا أجيبك من الجوال

ماقصدته انه عندما تكون قيمة tr صفر

فااكود يظهر خطأ  ليس رسالة خطأ لكن

افتهمت ان  tr يجب ان تأخذ قيمة 

[ابو ياسين المشولي]

جرب هذا

Dim i, x As Integer
x = Me.tr
i = Me.T2

If i > x And Me.types = "سند صرف" And i <>""Then
MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ")
Me.Undo
Else

 

تم تعديل فبراير 24, 2018 بواسطه ابو ياسين المشولي

[رعد داود]

السلام عليكم  أخي ابو ياسين
الكود  يعطي خطأ  في  بداية الكود 

x = Me.tr

حيث ان  tr  بياناتها  من  استعلام r1  الحقل  rs  او الرصيد التراكمي المتبقي ,,, في تنسيق  الارقام  في حال  الرصيد صفر  لايظهر  رقم  في الاكسس 0 اعتقد  المشكلة هنا
كما  انه في  جدول bills2 يتم  ترحيل  البيانات  مدين ودائن  واسم الحساب  لان  كود  عدم  الحفظ  فقط  للجدول bills <<<اضفنا  حقل  mz لتأكيد الحفظ  فقط في جدول bills
وجدول bills2 يحفظ  البيانات

[ابو ياسين المشولي]

جرب هذا

Dim i, x As Integer
x = Me.tr
i = Me.T2

If i > x And Me.types = "سند صرف" or Me.T2 <>""Then
MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ")
Me.Undo
Else
 

 

تم تعديل فبراير 25, 2018 بواسطه ابو ياسين المشولي

[رعد داود]

نفس  الأمر  استاذي  .....

or Me.T2 <>""Then

حتى غيرت t2   الى  tr تكست الرصيد   ايضا  خطأ يظهر

[ابو ياسين المشولي]

Or Not IsNull(T2)
جرب هذا

 

[رعد داود]

نفس  الأمر  استاذي

[رعد داود]

السلام عليكم
أخي  ابو ياسين  انحلت  المشكلة  عن  طريق  الرصيد  في حال  ان لايكون  عندك  رصيد اصلا يعني  صفر
تم اضافة  تعديل  بسيط لكود الاستعلام r1 في  حقل rs الرصيد  وهو &0  ... بحيث  يظهر  0  في حال عدم  وجود رصيد
شكرا  لكم  أخي 
وتبقى  عندنا  مشكلة  الحفظ  التلقائي  الذي  عالجناه  في جدول bills وذلك باضافة  حقل mz  لكن  الحفظ  يبقى  في  جدول  bills2 في  حال  الغاء السند
وهذا  يؤثر  جدا"  لأن الجدول  فيه  عمليات حسابية  مدين ودائن