مطلوب اضافة اسماء حقول لهذا الكود فقط

[iibat]

 

Private Sub a1_DblClick(Cancel As Integer)

"'" & DoCmd.OpenForm "Main", acNormal, , "[M1] ='" & Me.M1 & "'" & "and [M2]='" & Me.M2

End Sub

 

الكود يشتمل على اسم حقلين M1 ,M2

المطلوب هو إضافة عدد4 حقول جديده M3'M4'M5'M6على الحالي ليصبح اجمالي عدد الحقول 6 حقول ( جميع الحقول المضافة فقط – نصي )

شاكرا ومقدرا للجميع

[Barna]

تفضل .....

   DoCmd.OpenForm "Main", acNormal, , "[M1] ='" & Me.M1 & "'" & "and [M2]='" & Me.M2 & "'" & "and [M3]='" & Me.M3 & "'" & "and [M4]='" & Me.M4 & "'" & "and [M5]='" & Me.M5 & "'" & "and [M6]='" & Me.M6 & "'"

 

[iibat]

تسلم يديك اخي الكريم محمد البرناوي

شاكر لك ومقدر

[Barna]

حياك اخي @iibat ... بالتوفيق