تفريغ الحقول بعد الإضافة

[عفرنس]

السلام عليكم 

في هذا الكود أريد بعد إضافة البيانات يفرغ الحقول . 

    If Len(Me.ZTeacher & "") = 0 Then       'المعلم
        MsgBox "فضلا أدخل اسم المعلم"
        Me.ZTeacher.SetFocus
        Exit Sub
        
    ElseIf Len(Me.Zday & "") = 0 Then   'اليوم
        MsgBox "فضلا أدخل اليوم"
        Me.Zday.SetFocus
        Exit Sub
        
    ElseIf Len(Me.ZDate & "") = 0 Then   'التاريخ
        MsgBox "فضلا أدخل التاريخ"
        Me.ZDate.SetFocus
        Exit Sub
        
    ElseIf Len(Me.ZProduct & "") = 0 Then   'الصنف
        MsgBox "فضلا أدخل الصنف"
        Me.ZProduct.SetFocus
        Exit Sub
        
    ElseIf Len(Me.ZA2 & "") = 0 Then   'العدد
        MsgBox "فضلا أدخل العدد"
        Me.ZA2.SetFocus
        Exit Sub
        
    ElseIf Len(Me.ZA3 & "") = 0 Then   'ملحوظة
        MsgBox "فضلا أدخل الملحوظات"
        Me.ZA3.SetFocus
        Exit Sub
         
    End If

      Dim db As DAO.Database
        Dim Rs As DAO.Recordset
        Dim Rss As DAO.Recordset
        Set db = CurrentDb
        
        Set Rs = db.OpenRecordset("SELECT Stationary_Table.*FROM Stationary_Table;")
        
        Rs.AddNew
        Rs("Teacher") = Me.ZTeacher.Column(1)
        Rs("Product") = Me.ZProduct.Column(1)
        Rs("A2") = Me.ZA2.Column(1)
        Rs("day") = Me.Zday
        Rs("idate") = Me.ZDate
        Rs("A3") = Me.ZA3

        
        Rs.Update
        Rs.Close
        
        Me.Requery
        
        Beep
        MsgBox ("تم إضافة البيانات بنجاح"), , "مبروك"
End Sub

تم تعديل أبريل 6, 2020 بواسطه فايز..
تعديل العنوان

[jjafferr]

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

 

بعد الـ Beep والرسالة ، ضع هذا الكود :

Me.ZTeacher = null
Me.Zday = null
Me.ZDate = null
Me.ZProduct = null
Me.ZA2= null 
Me.ZA3= null

 

جعفر

[عفرنس]

جزاك الله خيرا معلمي الفاضل @jjafferr 

خذ هذه الدعابة : 

في أحد مجالس الخلفاء سأل الخليفة أحدهم : من أين أنت ؟ 
فأجاب : من حماه حماك الله 
فأمر له الخليفة بكيس من الذهب 
وسأل الثاني : من أين أنت ؟ 
فأجاب : من حمص حمصك الله . 
فأمر بجلده .. 

🏃‍♂️🏃‍♂️🏃‍♂️🏃‍♂️

[jjafferr]

🙂