المساعدة في فتح سجل جديد بشرط ادخال رقمه في مربع نص

[حربي العنزي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته

طلبي مشروح بالتفصيل الممل في النموذج مع البرنامج المرفق 

ملاحظة البرنامج وجدته لاحد الاخوة الافاضل في المنتدى جزاه الله كل الخير وارجو التعديل عليه ليناسب طلبي مع فائق الشكر والاحترام

d12003.2.rar

[حربي العنزي]

للرفع

[jjafferr]

وعليكم السلام أخوي ابوحاتم 

 

1. أضفت معيار حقل Class1 للنموذج Table1  ، الى الاستعلام الالحاقي:

.

2. عملت الكود التالي على حدث "بعد التحديث للحقل Class1 في النموذج Table1 ، وياريت تتبع تفاصيله:

Private Sub Class1_AfterUpdate()

    'تأكد ان الحقل فيه رقم
    If Len(Me.Class1 & "") <> 0 Then
        
        'هل هناك سجل في الجدول لهذا الرقم
        If DCount("*", "Table2", "[Class1]=" & Me.Class1) >  Then
        
            'لا تعطي رسائل تنبيه بالموافقة على الحاق سجلات
            DoCmd.SetWarnings False
                'شغل الاستعلام الالحاقي
                DoCmd.OpenQuery "Table2 Query"
            'اعطي رسائل تنبيه للاسطر التاليه
            DoCmd.SetWarnings True
    
            'اطلب البيانات من الجدول من جديد للنموذج الفرعي
            Me.Table2_Subform.Requery
            'اختر النموذج الفرعي
            Me.Table2_Subform.SetFocus
            'اذهب الى آخر سجل ، والذي المفروض ان يكون السجل الجدي
            DoCmd.GoToRecord , , acLast
            
        End If  'Dcount
    End If  'Len
    
End Sub

.

3. اطلبك باقلة ودهن 

 

 

جعفر

351.d12003.2.mdb.zip

[حربي العنزي]

الله الله عليك يامبدع استاذ جعفر الغالي نعم هذا هو المطلوب

يا استاذ جعفر مو بس باقله ودهن وقيمر عرب احنا بالعراق عندنا اشهى افطار هو القيمر العرب بالكاهي 

وياريت تشرفنا وتزور العراق نكون سعداء بزيارتك الله لايحرمنا من شخصك الكريم والطيب يالطيب ربي يحميك من كل شر يارب 

 

[jjafferr]