Skip to main content

AccessTr.neT

Kayıt Ol

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

Keypress İle Listedeki Son Kayda Gitmek

accessman
accessman
Access Cevaplanmış Soruları
3
495

Keypress İle Listedeki Son Kayda Gitmek

Çözüldü #1
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
bir dinamik arama metin kutumuz var liste girilen her karakter ile güncelleniyor

ama listede tek eleman kalması için çok fazla karakter girmemiz gerekiyor
mesela arama kutusuna 4 karakter girdikten sonra listede 29 kayıt kalıyor 
...............
Reno Sembol 2010 model 11.000 km
Reno Sembol 2010 model 21.000 km
Reno Sembol 2010 model 31.000 km
...............
.....................
..............
Reno Sembol 2010 model 91.000 km

bizim istediğimiz kayıt en sonda 
biz mouse elimize almadan en son sıradaki kayda keypress ile nasıl gideriz
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
bunda bir yerleri değiştirmek lazım ama nereleri
@benbendedeilem
Son Düzenleme: 30/04/2020, 11:37, Düzenleyen: accessman.
Cevapla
#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Herhangi bir kod girmeden ctrl + shift + 7 ile ilk satıra, ctrl + shift + 1 ile son satıra gidilebilir.
Cevapla
#3
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Liste derken listbox ise alttaki kodu uyarlayabilirsiniz normal Vba da çalışıyor.


ListBox1.Selected(ListBox1.ListCount - 1) = True 'True olursa son satira gider Listboxun



ListBox1.ListIndex = ListBox1.ListCount - 1 'son satira gider Listboxun
Cevapla
#4
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
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
            Me.lst_ara.Width = 0
            Me.lst_ara.Height = 0
            kayitDegistir CInt(Me.lst_ara.ItemData(1))
            Me.btn_ek2.SetFocus
            lst_ara.Visible = False
        Else
            Call closingMsgBox("Listede birden fazla kayıt var", "Kayıda Gidilemeyecek", 1)
        End If
    ElseIf KeyAscii = 45 Then   '- tuşu
        If (Me.lst_ara.ListCount >= 2) Then
            Me.lst_ara.Width = 0
            Me.lst_ara.Height = 0
            kayitDegistir CInt(Me.lst_ara.ItemData(Me.lst_ara.ListCount - 1))
            Me.btn_ek2.SetFocus
            lst_ara.Visible = False
        Else
            Call closingMsgBox("Listede birden fazla kayıt var", "Kayıda Gidilemeyecek", 1)
        End If
    Else
        'MsgBox KeyAscii
    End If
End Sub
teşekkürler arkadaşlar şimdilik şöyle çözüm buldum
@benbendedeilem
Son Düzenleme: 30/04/2020, 12:03, Düzenleyen: accessman.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task