ربط نموذج رئيسي بنموذج فرعي بزر

[almamare12]

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

 

Database5.accdb

[ابو البشر]

انظر لجدول تتبع المعرف غير موجود أقصد اكتب 1 في المعرف ويعمل معك

[jjafferr]

3 دقائق مضت, ابو البشر said:

انظر لجدول تتبع المعرف غير موجود أقصد اكتب 1 في المعرف ويعمل معك

اخي @almamare12 🙂

قصد اخوي @ابو البشر ، ان الكود يعمل بطريقة صحيحة ،

ولكن معلومات المعرف غير موجودة في جدول تتبع 🙂

 

جعفر

[almamare12]

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

@jjafferr

@ابو البشر

[jjafferr]

في النموذج ، على حدث "بعد التحديث" لأي حقل اساسي ، تقدر تضع هذا الكود :

    If Len(Me.المعرف & "") = 0 Then
        Me.المعرف = Nz(DMax("[المعرف]", "تتبع") + 1, 0)
    End If
    

.

بس نصيحة ، وبما ان البرنامج بعده في اوله ، اكتب اسماء الحقول في الجدول باللغة الانجليزية ، ومو لازم تكتب معنى الكلمة بالانجليزي ، فبدل كلمة طالب/تلميذ ، مو لازم تكتب Student ، تقدر تكتبها مثل نطقها بالعربي Talib ، مثلا 🙂

 

جعفر

[almamare12]

هل ممكن تطبيق على القاعدة الموجودة

[jjafferr]

تفضل 🙂

 

هذا الكود على "بعد تحديث"  حقل التاريخ :

Private Sub التاريخ_AfterUpdate()

    If Len(Me.المعرف & "") = 0 Then
        Me.المعرف = Nz(DMax("[المعرف]", "تتبع") + 1, 0)
    End If
    
End Sub

 

جعفر

 

 

Database5.zip

[almamare12]

شكرا اخي @jjafferr