الخبراء الافاضل
اريد تحويل كود زر الى وحدة نمطية
Me.P_Day.SourceObject = "NewPU"
Me.P_Day.Form.TN.Caption = "Urine"
Dim myfilter As String
myfilter = "[TName]='" & "Urine" & "'"
Me.P_Day.Form.Filter = myfilter
Me.P_Day.Form.FilterOn = True
Me.JO = 3
Me.U_OK.Requery
مع العلم ان الزر موجود فى نموذج رئيسى اسمة newpara
P_Day نموذج فرعى
U_OK نموذج فرعى
jo مربع نص فى النموذج الرئيسى newpara