Skip to main content

AccessTr.neT


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

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

Çözüldü #1
Arama kutusuna yazarken dinamik olarak kayıt listesini güncelliyoruz bazen listede tek eleman kalıyor. 
Klavyeyi bırakıp mouse alıp tek kalan elemanı tıklayıp ilgili kayıda gidiyoruz
halbuki tek eleman kaldığında enter tuşuna basıp listede tek kalan kayıda gitsek daha kolay olacak
bunu nasıl yapabiliriz

Kod:
Private Sub Field1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
'Run Code
End If
End Sub

şöyle bir şey yazmak lazım galiba ama nereye

@benbendedeilem
Cevapla
#2
3-4 yıl once bende aynı soruyu sormuştum ama çözüm bulunamamıştı. Ozellikle muhasebe kökenli iseniz hızlı fatura irsaliye ve sipariş verileri  girebilmek için şart ama cevap bulmam mümkün olmamıştı.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#3
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
#4

Visual Basic Code
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
If (KeyCode = vbKeyReturn) And ((Shift And acAltMask) <> 0) Then
KeyCode = 0
Me!Liste0.Selected(0) = True
End If
    
End Sub


Alt + Enter ile listedeki ilk kayda gidilebilir.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
teşekkürler
@benbendedeilem
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da