27-05-16, 01:50 AM
(آخر تعديل لهذه المشاركة : 27-05-16, 11:46 AM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
جمعة مباركة للجميع ..
أتمنى أنكم بمليون خير إن شاء الله ..
إخوتي و أساتذتي الأكارم .. أتمنى فضلاَ منكم لا أمرًا مساعدتي بتصحيح وضعية الكود الخاص بالرسائل التنبيهيّة ..
حيث عند الضغط على زر الأمر رقم 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
بارك الله فيكم و لكم وفي صحّتكم و أوقاتكم و عائلاتكم مقدّمًا سادتي الكرام
فائق محبّتي