رسالة تنبيه إدخال التاريخ في الحقل المخصص

[عفرنس]

أرغب في حال تم تسجيل الحقول المطلوبة ( اليوم - الحصة - الحالة ) ( ولم يتم تسجيل التاريخ في الخانة المخصصة ) ثم ضغطت زر إضافة  يعطيني البرنامج رسالة تنبيه بإدخال التاريخ ( فضلا أدخل تاريخ اليوم ) . 

(02) متابعة غياب طلاب الفراغات.rar

[jjafferr]

وعليكم السلام 🙂

 

قمت بتغيير اسم حقل التاريخ الى iDate ،

و زر الاضافه ، اصبح كوده (يتأكد من ادخال بيانات اليوم والحصة والتاريخ ، واذا ما اردت اي منهم ، يمكنك الغاءه/حذفه من الكود) :

Private Sub Command42_Click()
    
    'التأكد من ان الحقول مملوءه قبل السماح بإضافة سجل
    If Len(Me.iDay & "") = 0 Then       'اليوم
        MsgBox "فضلا أدخل اليوم"
        Me.iDay.SetFocus
        Exit Sub
        
    ElseIf Len(Me.iA1 & "") = 0 Then   'الحصة
        MsgBox "فضلا أدخل الحصة"
        Me.iA1.SetFocus
        Exit Sub
        
    ElseIf Len(Me.iDate & "") = 0 Then   'التاريخ
        MsgBox "فضلا أدخل تاريخ اليوم"
        Me.iDate.SetFocus
        Exit Sub
        
    End If
    
    If DCount("[MainId]", "qryCheckRepeat") = 0 Then
        DoCmd.SetWarnings False
            DoCmd.RunSQL "insert into subst(mainid,type,TDate,Day,A1)values (' " & Me.StId & " ',' " & Me.Combo36 & " ',' " & Me.Text40 & " ',' " & Me.iDay & " ','" & Me.iA1 & "')"
        DoCmd.SetWarnings True
        Me.iStName.Requery
        Me.SubSt.Requery
    Else
        MsgBox "لقد تم تحضير الطالب من قبل"
        Exit Sub
    End If
End Sub

 

جعفر

1126.(02) متابعة غياب طلاب الفراغات.mdb.zip

[عفرنس]

يسر الله أمرك يا أستاذنا القدير 

سأجرب ومن ثم أوافيك بالنتيجة 😘

[عفرنس]

ظهرت لي المشكلة أعلاه يا أستاذ جعفر

[jjafferr]

عذرا ، لم الحظ هذا الكود !!

 

اعمل بحث واستبدال

 

بدل
Me.Text40



استعمل
Me.iDate

 

جعفر

[عفرنس]

أنت رائع ومبدع 

شكر الله لك😘