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

[بلال اليامين]

السلام عليكم

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

Private Sub Command33_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim MouseLocation As POINTAPI
   GetCursorPos MouseLocation
   DoCmd.OpenForm "Form9", acNormal
   Form_Form9.Move Trim(MouseLocation.tLng_Xloc) - (3.5 * 537), Trim(MouseLocation.tLng_YLoc) * 10
   Form_Form9.Text3.Value = Me.التسلسل
End Sub

[النجاشي]

7 ساعات مضت, بلال اليامين said:

السلام عليكم

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

Private Sub Command33_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim MouseLocation As POINTAPI
   GetCursorPos MouseLocation
   DoCmd.OpenForm "Form9", acNormal
   Form_Form9.Move Trim(MouseLocation.tLng_Xloc) - (3.5 * 537), Trim(MouseLocation.tLng_YLoc) * 10
   Form_Form9.Text3.Value = Me.التسلسل
End Sub

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

قم بتغير بالكود من PrivateاليPublic 

ثم بالنموذج الفرعي بحدث عند الضغط على الماوس

اعمل الاتيForm_FORMM.Command33_Click

قم بتعير_FORMM الي سم النموذج الرئيسي

تحياتي اليك

 

تم تعديل نوفمبر 9, 2019 بواسطه ابو زاهر