(12/02/2019, 23:21)haliliyas yazdı: çift tıklanma olay kodunu aşağıdaki ile değiştirip dener misiniz?
Private Sub lstBekleyenMasa_DblClick(Cancel As Integer)
Me.HangiMasa = Me.lstBekleyenMasa
DoCmd.OpenForm "F_04_AdisyonFisi"
End Sub
Halil Bey teşekkür ederim burası beni çok uğraştırdı. Aşağıdaki Kodu anlayamıyorum. Değişkeni belirledikten sonraki süreci ve kırmızı satırı çözemedim.
Public Function HandleClick(ByRef ctl As Control)
Dim xCaption As String
xCaption = Replace(Controls(ctl.Name).Caption, " ", "")
Me.HangiMasa = xCaption