مساعدة في استدعاء كود من نموذج فرعي بواسطة النموذج الرئيسي

[ازهر عبد العزيز]

السلام عليكم

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

fyfx.accdb

[jjafferr]

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

 

هل انت طالب او مدرس ، لأن اسألتك تدور حول بديهيات الاكسس ، كأنها دروس 😁

 

عملت تغيير في النموذج ، فاصبحت الازرار

.

اول 3 ازرار ترسل البيانات مباشرة من النموذج الرئيسي لحقول النموذج الفرعي :

Private Sub cmd_xr_Click()
'عند الضغط على الزر في النموذج الرئيسي xr

    Me.fx!x = "xr"
    Me.fx!x1 = 2
    Me.fx!x2 = 4
    Me.fx!x3 = 1
    Me.fx!x4 = 0
    
End Sub

Private Sub cmd_xm_Click()
'عند الضغط على الزر في النموذج الرئيسي xm
    
    Me.fx!x = "xm"
    Me.fx!x1 = 2
    Me.fx!x2 = 4
    Me.fx!x3 = 1
    Me.fx!x4 = 0
    
End Sub

Private Sub cmd_xn_Click()
'عند الضغط على الزر في النموذج الرئيسي xn
    
    Me.fx!x = "xn"
    Me.fx!x1 = 2
    Me.fx!x2 = 4
    Me.fx!x3 = 1
    Me.fx!x4 = 0
    
End Sub

.

الزرين الاخيرين ، ننادي دالتين في النموذج الفرعي :

Private Sub cmd_xs_Click()

    Call Form_fx.Enter_xs
End Sub


Private Sub cmd_Subform_Event_Click()

    Call Form_fx.I_am_MsgBox
End Sub

.

نعمل دوال في النموذج الفرعي ، ولكي نستطيع ان نراها/نقرأها من خارج النموذج ، يجب ان نستعمل Public  :

Public Sub Enter_xs()

    Me.x = "xs"
    Me.x1 = 2
    Me.x2 = 4
    Me.x3 = 1
    Me.x4 = 0

End Sub


Public Sub I_am_MsgBox()

    MsgBox "قيمة x تساوي" & vbCrLf & Nz(Me.x, "")
    
End Sub

.

جعفر

1482.fyfx.accdb.zip

[ازهر عبد العزيز]

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

لأن اسألتك تدور حول بديهيات الاكسس

بالنسبة لك بديهيات 

جزبل الشكر غلى هذا الشرح الوافي