Kod:
Private Sub ara_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 43 Then '+ tuşu
If (Me.lst_ara.ListCount = 2) Then 'sutun başları yoksa 1 olacak
Me.lst_ara.Width = 0
Me.lst_ara.Height = 0
kayitDegistir CInt(Me.lst_ara.ItemData(1))'sutun başları yoksa 0 olacak
Me.btn_ek2.SetFocus
lst_ara.Visible = False
Else
Call closingMsgBox("Listede birden fazla kayıt var", "Kayıda Gidilemeyecek", 1)
End If
End If
End Sub
Bunu Return ile yapamadım gerçi şart değil "+" da hemen onun üstünde ama yine Bunu vbKeyReturn ile yapmanın yolu var mı