ظهور حقل فارغ في الجدول

[عفرنس]

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

Database1.rar

[Khalid Jnb]

السلام عليكم

جرب المرفق واعلمنا النتائج

'استخدم كود الاضافة التالي'
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec

Database1.rar

 

تم تعديل ديسمبر 7, 2019 بواسطه خالد سيسكو

[Khalid Jnb]

لقد قمت بتعديل وترتيب التقرير  والنموذج 

Database2.rar

Database3.rar

تم تعديل ديسمبر 7, 2019 بواسطه خالد سيسكو

[عفرنس]

9 ساعات مضت, خالد سيسكو said:

لقد قمت بتعديل وترتيب التقرير  والنموذج 

Database2.rar 26.97 kB · 0 تنزيلات

Database3.rar 28.56 kB · 0 تنزيلات

بورك فيك .. عملك رائع .. 

لكن أرغب في إضافة رسالة تأكيد ادخال البيانات ..حاولت لكن لم أنجح .. 

    'التأكد من ان حقول بيانات الطالب مملوءه قبل السماح بإضافة سجل
    If Len(Me.XVisitorName & "") = 0 Then       'اسم الزائر
        MsgBox "فضلا أدخل اسم الزائر"
        Me.XVisitorName.SetFocus
        Exit Sub
        
    ElseIf Len(Me.XVisitorDay & "") = 0 Then   'اليوم
        MsgBox "فضلا أدخل اليوم"
        Me.XVisitorDay.SetFocus
        Exit Sub
        
    ElseIf Len(Me.XVisitorDate & "") = 0 Then   'التاريخ
        MsgBox "فضلا أدخل تاريخ الزيارة"
        Me.XVisitorDate.SetFocus
        Exit Sub
        
    ElseIf Len(Me.XVisitorTaime & "") = 0 Then   'الوقت
        MsgBox "فضلا أدخل وقت الزيارة"
        Me.XVisitorTaime.SetFocus
        Exit Sub
        
    ElseIf Len(Me.XTarget & "") = 0 Then   'سبب الزيارة
        MsgBox "فضلا أدخل سبب الزيارة"
        Me.XTarget.SetFocus
        Exit Sub
        
    End If
 

[Khalid Jnb]

السلام عليكم

تقضل ان شاء الله يكون المطلوب

'يمكن استخدام الكود التالي (Is Null) للدلالة على الحقل الفارغ'
If IsNull(Me.XVisitorName) Then         'اسم الزائر
        MsgBox "فضلا أدخل اسم الزائر"
        Me.XVisitorName.SetFocus
        Exit Sub
        
    ElseIf IsNull(Me.XVisitorDay) Then   'اليوم
        MsgBox "فضلا أدخل اليوم"
        Me.XVisitorDay.SetFocus
        Exit Sub
        
    ElseIf IsNull(Me.XVisitorDate) Then      'التاريخ
        MsgBox "فضلا أدخل تاريخ الزيارة"
        Me.XVisitorDate.SetFocus
        Exit Sub
        
    ElseIf IsNull(Me.XVisitorTaime) Then     'الوقت
        MsgBox "فضلا أدخل وقت الزيارة"
        Me.XVisitorTaime.SetFocus
        Exit Sub
        
    ElseIf IsNull(Me.XTarget) Then    'سبب الزيارة
        MsgBox "فضلا أدخل سبب الزيارة"
        Me.XTarget.SetFocus
        Exit Sub
    End If

Database4.rar

Database5.rar

تم تعديل ديسمبر 8, 2019 بواسطه خالد سيسكو

[عفرنس]

4 ساعات مضت, خالد سيسكو said:

السلام عليكم

تقضل ان شاء الله يكون المطلوب

'يمكن استخدام الكود التالي (Is Null) للدلالة على الحقل الفارغ'
If IsNull(Me.XVisitorName) Then         'اسم الزائر
        MsgBox "فضلا أدخل اسم الزائر"
        Me.XVisitorName.SetFocus
        Exit Sub
        
    ElseIf IsNull(Me.XVisitorDay) Then   'اليوم
        MsgBox "فضلا أدخل اليوم"
        Me.XVisitorDay.SetFocus
        Exit Sub
        
    ElseIf IsNull(Me.XVisitorDate) Then      'التاريخ
        MsgBox "فضلا أدخل تاريخ الزيارة"
        Me.XVisitorDate.SetFocus
        Exit Sub
        
    ElseIf IsNull(Me.XVisitorTaime) Then     'الوقت
        MsgBox "فضلا أدخل وقت الزيارة"
        Me.XVisitorTaime.SetFocus
        Exit Sub
        
    ElseIf IsNull(Me.XTarget) Then    'سبب الزيارة
        MsgBox "فضلا أدخل سبب الزيارة"
        Me.XTarget.SetFocus
        Exit Sub
    End If

Database4.rar 30.88 kB · 1 تنزيلات

Database5.rar 32.1 kB · 1 تنزيلات

شكر الله لك .. نعم هذا هو المطلوب ..