السلام عليكم
تعديل كود لفتح القائمة المسندلة عن طريق الضغط على الماوس في النموذج الفرعي
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