خطأ في كود زر الإضافة

[عفرنس]

السلام على الجميع 

يوجد خطأ في كود زر الإضافة لم أستطع إيجاد الحل .. علما أن الكود هو نفسه في زر إضافة في نموذج آخر من نفس البرنامج . 

@jjafferr

 

A_Library.rar

 

تم تعديل أبريل 7, 2020 بواسطه فايز..
تعديل الصورة

[jjafferr]

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

 

رجاء لا تعطنا صورة الشاشة كاملة ، فما نقدر نقرأ تفاصيلها ،

وانما ، عدّل مكان رسالة الخطأ ، بحيث تظهر مع اظهار الكود ، واعمل اقطع Crop للصورة ، وارفق الزبدة فقط 🙂

 

جعفر

[أبوبسمله]

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

اخى فايز مشاركه مع اخى ومعلمنا جعفر @jjafferr جزاه الله كل خير

Private Sub Command22_Click()
'Me.Frm_Eara.SetFocus
'DoCmd.GoToRecord , , acNewRec

If Len(Me.ZVisitorName1 & "") = 0 Then       'ÇÓã ÇáãÓÊÚíÑ
        MsgBox "ÝÖáÇ ÃÏÎá ÇÓã ÇáãÓÊÚíÑ"
        Me.ZVisitorName1.SetFocus
        Exit Sub
        
    ElseIf Len(Me.BookeName & "") = 0 Then   'ÇÓã ÇáßÊÇÈ
        MsgBox "ÝÖáÇ ÃÖÝ ÇÓã ÇáßÊÇÈ"
        Me.BookeName.SetFocus
        Exit Sub
        
    ElseIf Len(Me.J1 & "") = 0 Then   'ÑÞã ÇáÌÒÁ
        MsgBox "ÝÖáÇ ÃÖÝ ÑÞã ÇáÌÒÁ"
        Me.J1.SetFocus
        Exit Sub
    
    ElseIf Len(Me.ZVisitorDay1 & "") = 0 Then   'Çáíæã
        MsgBox "ÝÖáÇ ÃÏÎá íæã ÇáÇÓÊÚÇÑÉ"
        Me.ZVisitorDay1.SetFocus
        Exit Sub
        
    ElseIf Len(Me.ZVisitorDate1 & "") = 0 Then   'ÇáÊÇÑíÎ
        MsgBox "ÝÖáÇ ÃÏÎá ÊÇÑíÎ ÇáÇÓÊÚÇÑÉ"
        Me.ZVisitorDate1.SetFocus
        Exit Sub
        
    ElseIf Len(Me.ZHessa1 & "") = 0 Then   'ÇáÍÕÉ
        MsgBox "ÝÖáÇ ÃÏÎá ÇáÍÕÉ"
        Me.ZHessa1.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 Table_Eara.* FROM Table_Eara;")
        
        Rs.AddNew
        Rs("VisitorName1") = Me.ZVisitorName1
        Rs("BookeName") = Me.BookeName
        Rs("J1") = Me.J1
        Rs("VisitorDay1") = Me.ZVisitorDay1
        Rs("VisitorDate2") = Me.ZVisitorDate2
        Rs("VisitorDay2") = Me.ZVisitorDay2
        Rs("VisitorDate1") = Me.ZVisitorDate1
        Rs("Hessa1") = Me.ZHessa1

        Rs.Update
        Rs.Close
        
        Me.Requery
        
        Beep
        MsgBox ("Êã ÅÖÇÝÉ ÇáÈíÇäÇÊ ÈäÌÇÍ"), , "ãÈÑæß"
    Me.ZVisitorName1 = Null
    Me.BookeName = Null
    Me.J1 = Null
    Me.ZVisitorDay1 = Null
    Me.VisitorDate1 = Null
    Me.ZHessa1 = Null
    Me.ZVisitorDay2 = Null
    Me.ZVisitorDay2 = Null

End Sub

 

Aa_Library.rar

[عفرنس]

2 ساعات مضت, أحمد الفلاحجى said:

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

اخى فايز مشاركه مع اخى ومعلمنا جعفر @jjafferr جزاه الله كل خير

Private Sub Command22_Click()
'Me.Frm_Eara.SetFocus
'DoCmd.GoToRecord , , acNewRec

If Len(Me.ZVisitorName1 & "") = 0 Then       'ÇÓã ÇáãÓÊÚíÑ
        MsgBox "ÝÖáÇ ÃÏÎá ÇÓã ÇáãÓÊÚíÑ"
        Me.ZVisitorName1.SetFocus
        Exit Sub
        
    ElseIf Len(Me.BookeName & "") = 0 Then   'ÇÓã ÇáßÊÇÈ
        MsgBox "ÝÖáÇ ÃÖÝ ÇÓã ÇáßÊÇÈ"
        Me.BookeName.SetFocus
        Exit Sub
        
    ElseIf Len(Me.J1 & "") = 0 Then   'ÑÞã ÇáÌÒÁ
        MsgBox "ÝÖáÇ ÃÖÝ ÑÞã ÇáÌÒÁ"
        Me.J1.SetFocus
        Exit Sub
    
    ElseIf Len(Me.ZVisitorDay1 & "") = 0 Then   'Çáíæã
        MsgBox "ÝÖáÇ ÃÏÎá íæã ÇáÇÓÊÚÇÑÉ"
        Me.ZVisitorDay1.SetFocus
        Exit Sub
        
    ElseIf Len(Me.ZVisitorDate1 & "") = 0 Then   'ÇáÊÇÑíÎ
        MsgBox "ÝÖáÇ ÃÏÎá ÊÇÑíÎ ÇáÇÓÊÚÇÑÉ"
        Me.ZVisitorDate1.SetFocus
        Exit Sub
        
    ElseIf Len(Me.ZHessa1 & "") = 0 Then   'ÇáÍÕÉ
        MsgBox "ÝÖáÇ ÃÏÎá ÇáÍÕÉ"
        Me.ZHessa1.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 Table_Eara.* FROM Table_Eara;")
        
        Rs.AddNew
        Rs("VisitorName1") = Me.ZVisitorName1
        Rs("BookeName") = Me.BookeName
        Rs("J1") = Me.J1
        Rs("VisitorDay1") = Me.ZVisitorDay1
        Rs("VisitorDate2") = Me.ZVisitorDate2
        Rs("VisitorDay2") = Me.ZVisitorDay2
        Rs("VisitorDate1") = Me.ZVisitorDate1
        Rs("Hessa1") = Me.ZHessa1

        Rs.Update
        Rs.Close
        
        Me.Requery
        
        Beep
        MsgBox ("Êã ÅÖÇÝÉ ÇáÈíÇäÇÊ ÈäÌÇÍ"), , "ãÈÑæß"
    Me.ZVisitorName1 = Null
    Me.BookeName = Null
    Me.J1 = Null
    Me.ZVisitorDay1 = Null
    Me.VisitorDate1 = Null
    Me.ZHessa1 = Null
    Me.ZVisitorDay2 = Null
    Me.ZVisitorDay2 = Null

End Sub

 

Aa_Library.rar 1.15 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 تنزيلات

أخي أحمد .. مازال هناك مشكلة في الكود وهي تكرار البيانات المدخلة مرتين 

[أبوبسمله]

اخى @فايز..

ع ما اعتقد لان كانت العناصر منضمه لقد جعلت الحقول غير منضمه 

جرب الان ووافنى بالنتيجه وان شاء الله احد الاخوه او اساتذتنا الافاضل يشاركنا

بالتوفيق اخى

Aa1_Library.rar

[jjafferr]

اما انا فرأسي يابس ولازلت اريد :

7 ساعات مضت, jjafferr said:

رجاء لا تعطنا صورة الشاشة كاملة ، فما نقدر نقرأ تفاصيلها ،

وانما ، عدّل مكان رسالة الخطأ ، بحيث تظهر مع اظهار الكود ، واعمل اقطع Crop للصورة ، وارفق الزبدة فقط 🙂

 

🙂

جعفر

[Hawiii]

10 ساعات مضت, فايز.. said:

يوجد خطأ في كود زر الإضافة لم أستطع إيجاد الحل .. علما أن الكود هو نفسه في زر إضافة في نموذج آخر من نفس البرنامج .

الرسالة كما فهمتها تم بتبديل صندوق ZVisitorName1 من ComboBox إلى TextBox فلذلك لم تعد خاصية الأعمدة Column متوفرة.

[عفرنس]

20 ساعات مضت, أحمد الفلاحجى said:

اخى @فايز..

ع ما اعتقد لان كانت العناصر منضمه لقد جعلت الحقول غير منضمه 

جرب الان ووافنى بالنتيجه وان شاء الله احد الاخوه او اساتذتنا الافاضل يشاركنا

بالتوفيق اخى

Aa1_Library.rar 460.11 kB · 2 تنزيلات

شكر الله لك أخي @أحمد الفلاحجى . النتيجة ممتازة .. المطلوب تم بنجاح . 

ما قصرت وبيض الله وجهك . 

[أبوبسمله]

الحمدلله الذى بنعمته تتم الصالحات

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

بارك الله فيك اخى @فايز.. بالتوفيق ان شاء الله