تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : رجاء لتصحيح رسائل تنبيهيّة
#1
السّلام عليكم و رحمة الله و بركاته
جمعة مباركة للجميع ..
أتمنى أنكم بمليون خير إن شاء الله ..
إخوتي و أساتذتي الأكارم .. أتمنى فضلاَ منكم لا أمرًا مساعدتي بتصحيح وضعية الكود الخاص بالرسائل التنبيهيّة ..
حيث عند الضغط على زر الأمر رقم 5 الخاص بالإضافة ..
لو مثلاً نسيت كتابة الاسم 1 .. وانتقلت لكتابة الاسم 2 .. تأتيني رسالة تنبهني بذلك
وهكذا دواليك مع بقية التاكسات المعنيّة ..
قمت بوضع هذا الجزء من الكود .. لكن غير مرتب تمامًا .. قبل الكتابة تأتيني الرسالة التنبيهية..
ما أرجوه لو سمحتم هو تصحيح وضعية هذا الجزء من الكود داخل زر الأمر 5
كود :
If Val(Trim$(Text2.Text)) <= 0 Then
MsgBox "أكتب الاسم 1 لو سمحت", vbOKOnly + vbExclamation, "AVERTISSEMENT"
Text2.SetFocus
Exit Sub
End If

If IsDate(Trim(Text3.Text)) = False Then
MsgBox "أكتب الاسم 2 لو سمحت", vbOKOnly + vbExclamation, "AVERTISSEMENT"
Text3.SetFocus
Exit Sub
End If

If Trim(Text4.Text) = "" Then
MsgBox "أكتب تاريخ الميلاد لو سمحت", vbOKOnly + vbExclamation, "AVERTISSEMENT"
Text4.SetFocus
Exit Sub
End If

If Trim(Text6.Text) = "" Then
MsgBox "أكتب الهاتف لو سمحت", vbOKOnly + vbExclamation, "AVERTISSEMENT"
Text6.SetFocus
Exit Sub
End If

If Trim(Text7.Text) = "" Then
MsgBox "أكتب العنوان لو سمحت", vbOKOnly + vbExclamation, "AVERTISSEMENT"
Text7.SetFocus
Exit Sub
End If

If Trim(Text8.Text) = "" Then
MsgBox "أكتب التشخيص لو سمحت", vbOKOnly + vbExclamation, "AVERTISSEMENT"
Text8.SetFocus
Exit Sub
End If

If Trim(Text9.Text) = "" Then
MsgBox "أكتب العلاج لو سمحت", vbOKOnly + vbExclamation, "AVERTISSEMENT"
Text9.SetFocus
Exit Sub
End If

If Trim(Text10.Text) = "" Then
MsgBox "أكتب تاريخ الزيارة لو سمحت", vbOKOnly + vbExclamation, "AVERTISSEMENT"
Text10.SetFocus
Exit Sub
End If


بارك الله فيكم و لكم وفي صحّتكم و أوقاتكم و عائلاتكم مقدّمًا سادتي الكرام
فائق محبّتي


الملفات المرفقة
.rar   الرسالة 1.rar (الحجم : 83.35 ك ب / التحميلات : 8)
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#2
وعليك السّلام  و  رحمة الله و بركاته , أهلا أخي عبد العزيز , تم تعديل المثال , ملاحظة : إذا كان نوع الحقل "ترقيم تلقائي" عندها لايمكنك إسناد قيم له بالكود لأنه يأخذ قيمة عند الحفظ تلقائياً .


الملفات المرفقة
.rar   الرسالة 1_1.rar (الحجم : 77.93 ك ب / التحميلات : 19)
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , عبد العزيز البسكري
#3
السّلام عليكم و رحمة الله و بركاته
كلمات جميلة أحب أن أتقدم بها إلى أخي الحبيب و أستاذي الغالي " أحمد منصور "
صاحب الهمة العالية والجهود الحثيثة لتطوير منتدانا الرّائع
أنا فعلا لا أعرف كيف أشكرك  لاهتمامك بالأمر بطريقة حل أكثر من مميّزة و ممتازة حققّت المطلوب ..أتمني من الله عز وجل أن يجعله في ميزان حسناتك وأن يبارك لك في علمك  و عملك و صحّتك و أوقاتك و كل أفرد عائلتك
أشكرك جزيل الشّكر .. و لك منّي كل المحبّة و التّقدير و الاحترام
جمعة مباركة إن شاء الله
فائق إحتراماتي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : تطبيق الأداة MSChart حسب البيانات عبد العزيز البسكري 18 164 منذ 5 دقيقة مضت
آخر رد: عبد العزيز البسكري
  [ تمّ الحل ] : طباعة محتوى الليست فيو عبد العزيز البسكري 8 125 13-02-17, 11:08 PM
آخر رد: عبد العزيز البسكري
  [ تمّ الحل] : رجاء المساعدة بتصحيح كود الحفظ عبد العزيز البسكري 8 161 09-02-17, 02:01 AM
آخر رد: Amir_alzubidy
  [ تمّ الحل ] : تغيير خلفية الأكتيف ريبورت من خلال الكومبوبوكس عبد العزيز البسكري 4 119 07-02-17, 03:34 PM
آخر رد: larbihamri
  [ تمّ الحل ] : التّسلسل السّنوي عبد العزيز البسكري 8 150 29-01-17, 03:54 PM
آخر رد: sendbad100
  [ تمّ الحل ] :الحذف مع التّأكيد بواسطة التشيك بوكس عبد العزيز البسكري 4 142 27-01-17, 02:59 PM
آخر رد: عبد العزيز البسكري
  [ تمّ الحل ] : تحيين الاحصاء حسب بيانات الفليكس جريد عبد العزيز البسكري 5 115 25-01-17, 05:55 AM
آخر رد: Ahmed_Mansoor
  [ تمّ الحل ] : إظهار قائمة بالجدول على الفورم عبد العزيز البسكري 4 143 21-01-17, 03:45 AM
آخر رد: عبد العزيز البسكري
  [ تمّ الحل ] : تغيير التقويم الهجري بالأداة DTPicker عبد العزيز البسكري 8 205 18-01-17, 03:57 AM
آخر رد: ahmedabdelaliem
  [ تمّ الحل ] : إضافة كومبوبوكس للبحث بحقل معيّن عبد العزيز البسكري 10 222 13-01-17, 04:47 AM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم