Skip to main content

AccessTr.neT


Formda Form Gösterme Ve Textbox İle Filtreleme

Formda Form Gösterme Ve Textbox İle Filtreleme

Çözüldü #1
Merhaba.

Form1 de textbox var ona tıklayınca Tablo  adındaki Form süzülecek.

Textboxun altındada Tablo formu gösterilecek aynı listbox gibi mesela.

Accessi fazla bilmediğim için ekteki kadar ilerleyebildim Img-cray

Saygılar.
.rar Tablo calisma.rar (Dosya Boyutu: 30,65 KB | İndirme Sayısı: 1)
#2
Kodları alttaki gibi yapınca biraz bişeyler oldu.
Şimdi acaba gifteki gibi açılan form textboxun altında çıkabilirmi hezaman.

Ve açılan formun botutları küçülmesi gerek olmadı birtürlü.

[Resim: wnzKn2Il.gif]




PHP Kod:
Option Compare Database

Const textSorgu As String = "SELECT ad, soyad, yas FROM Tablo1"

Sub TabloFormAc()
    DoCmd.OpenForm "Tablo", acFormDS, , , acFormReadOnly, acWindowNormal 'acFormDS demek veri sayfa görünüm
End Sub

Private Sub Form_Load()
    Call TabloFormAc
    Forms!Tablo.RecordSource = textSorgu
End Sub

Private Sub textbox2_Change()
    
    Dim sql As String
    
    If Me.textbox2.text = "" Then
        DoCmd.Close acForm, "Tablo", acSaveNo
        Exit Sub
    End If
    
    sql = textSorgu & " WHERE Tablo1.ad Like '*" & Me.textbox2.text & "*'"
    Call TabloFormAc
    Forms!Tablo.RecordSource = sql
    Me.SetFocus

End Sub
.rar Tablo calisma Form Arama.rar (Dosya Boyutu: 39,06 KB | İndirme Sayısı: 4)
#3
Form  açılma olayına formun localizasyonunu ayarlayabilirsin
#4
(19/01/2020 08:56)accessman Adlı Kullanıcıdan Alıntı: Form  açılma olayına formun localizasyonunu ayarlayabilirsin
localizasyonunu bunun özelliklerdeki Türkçesi nedir.

Aslımda yanlış mantık yapmışım.Dün videoları izlerken sihirbazla altforum ekleyip bağımdız gibi bir seçenek işaretlenmeliymiş.Bugün deneyeceğim.
Maksatım foru listbox yada listview gibi kullanmak.
#5
Alttaki kodlarla yaptım ve Altforum ekledim.
Sayın @accessman  koddaki ayarlar kodlarını ancak bu kadar yaptım.Oraya kazdırma çubuklarını gizleme kodlarını felan ekleyecektim bulamadım.

O kod kısmına bildiklerinizi eklermisiniz açıklamalarıyla.Sizin araştırmalarınız kuvvetli.


[Resim: Y9Gm3oFm.gif]


Visual Basic Code
Option Compare Database

Sub AltForAyarlar()

    With Me.AltForm1
        .Locked = True 'Kilitli
        .Form.AllowAdditions = False 'Yeni Kayit ekleme yeri gizlenir
        .Enabled = True
        
    With .Form
        .NavigationButtons = False 'Kayit ekleme yeri gizlenir alttaki
        .Visible = True 'Form görürünür
    End With
        
    End With

End Sub



Private Sub Form_Load()
  Call AltForAyarlar

End Sub

Private Sub textAd_Change()
    
    Dim sql As String
    
'    Call AltForAyarlar
    
    sql = "SELECT ad, soyad, yas FROM Tablo1 WHERE ad Like '*" & Me.textAd.text & "*'"
    Me.AltForm1.Form.RecordSource = sql
    

End Sub
.rar Tablo calisma Form Arama(Alt Form).rar (Dosya Boyutu: 55,87 KB | İndirme Sayısı: 4)
Son Düzenleme: 19/01/2020, 14:14, Düzenleyen: feraz.
#6
Öğrenilenin zararı yok elbet. kod yazmada en önemlisi farklı düşünmek belki de.
Yinede ben olsam kayıt falan da eklemeyip değiştirmeyeceksem listbox kullanırdım
Ama altfomda fonksiyonel olur. Ben kod yazarken özellik falan ararken "." Yazınca çıkan listeden arayıp buluyorum. O listede seçilebilecek özellikler oluyor

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

Yorum yapmak için üye olmanız gerekiyor

ya da