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

[gavan]

مرحبا بكم اخوتي , ورمضان كريم عليكم يارب

في المرفق ثلاث جداول مرتبطين بطريقة التقاطع

في النموذج Home يوجد زر امر باسم GoTo ,يودي الى فتح النموذج Name ,الذي هو عبارة عن مصدر للجدول Name_Tbl مضاف اليه نموذج فرعي مصدره الجدول المتقاطع Sub_Reg

المطلوب هو: عند الضغط على زر الامر GoTo : يذهب الى الجدول Reg_Tbl ويبحث اذا كان قيمة المفتاح الاساسي Name_Id موجودا  يذهب الى ذلك السجل 

و اذا لم يكن موجودا , يفتح سجل جديد , فقط هذا كل الامر 

الملف في المرفقات

ودمتم سالمين

 

Tracking test to المنتدى.accdb

[ابوخليل]

Private Sub Form_Open(Cancel As Integer)
Dim i As Boolean
i = Nz(DLookup("Name_ID", "Name_Tbl", "Name_ID=" & crMyfrmId), 0)
If i = True Then
DoCmd.GoToRecord , , , crMyfrmId
Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub

crMyfrmId  هو متغير عام يحمل رقم السجل

Tracking test to المنتدى.rar

[gavan]

نعم يا اخي و بارك الله فيك , وهو المطلوب , تحياتي الخاصة لك