Kod:
Private Sub Liste2_DblClick(Cancel As Integer)
if isnull(Me.Liste2.Column(0)) or Me.Liste2.Column(0) ="" then
else
DoCmd.OpenForm "FRM_ANA_TABLO", , , "[ABONE_NO]=" & Me.Liste2.Column(0)
end if
End Sub
Private Sub Liste2_DblClick(Cancel As Integer)
if isnull(Me.Liste2.Column(0)) or Me.Liste2.Column(0) ="" then
else
DoCmd.OpenForm "FRM_ANA_TABLO", , , "[ABONE_NO]=" & Me.Liste2.Column(0)
end if
End Sub
Bu Konudaki Yorumlar |
Liste Kutusundaki Boş Alana Çift Tıklayınca Vb Hatası - Yazar: akdemir1 - 11/02/2022, 09:47
RE: Liste Kutusundaki Boş Alana Çift Tıklayınca Vb Hatası - Yazar: lemoncher2 - 11/02/2022, 21:17
RE: Liste Kutusundaki Boş Alana Çift Tıklayınca Vb Hatası - Yazar: akdemir1 - 12/02/2022, 20:07
|