Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Enter Tuşu İle Listede Tek Kalan Kayıda Gitmek

accessman
accessman
Access Cevaplanmış Soruları
4
533

Enter Tuşu İle Listede Tek Kalan Kayıda Gitmek

#3
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
inşallah çözüm bulunur
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
şimdilik böyle bir çözüm buldum
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ı
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Enter Tuşu İle Listede Tek Kalan Kayıda Gitmek - Yazar: accessman - 30/04/2020, 09:27
Task