Skip to main content

AccessTr.neT


Alt Formda Kayıt Bul İşlemi

Alt Formda Kayıt Bul İşlemi

Çözüldü #1
Sayın hocalarım

Anaform üzerinde gömülü çalışan Müşteri bul formum var bu form üzrinde de kayıt bul alanım ve buton bulunmakta.
Daha önce bağımsız çalışan bu formda
Visual Basic Code
Private Sub KayitBul_Click()
If IsNull([ISYERIUNVANI]) Then
   MsgBox "Lütfen aramak istediğiniz Firma adı yazınız....!."
   Me.ISYERIUNVANI.SetFocus
   Else
Dim strLinkCriteria
    strLinkCriteria = "[ISYERIUNVANI] Like '*" & Me.ISYERIUNVANI & "*'"
    DoCmd.OpenForm "F_MUSTERICARI", , , strLinkCriteria
    

    End If
End Sub

kodu bulunmakta,
Liste kutusunda ise
Visual Basic Code
SELECT T_MUSTERIKAYIT.MUSID, T_MUSTERIKAYIT.ISYERIUNVANI, T_MUSTERIKAYIT.ISYERIUNVANI AS KayitBul FROM T_MUSTERIKAYIT WHERE (((T_MUSTERIKAYIT.ISYERIUNVANI) Like Formlar!F_MUSTERICARI!KayitBul & "*")) ORDER BY T_MUSTERIKAYIT.MUSID, T_MUSTERIKAYIT.ISYERIUNVANI; 

Ölçütü bulunmaktadır.
ve sorunsuz çalışmaktadır.
 Ana form üzerinde gömülü olan True False açıp kapattığım formda kayıt bul işlemini nasıl gerçekleştirebilirim.
Saygılarımla.
Cevapla
#2
Merhaba, önceki sorunuza eklediğiniz örnek uygulamada bahsettiğiniz formu bulamadım. Örnek uygulamanızın son halini ekleyip form isimlerini yazınız.
Cevapla
#3
Merhaba Sayın Ozan bey,
Ana form üzerinde Müşteri menüsünde MUSTERICARI formu.
Bir sorum daha var hocam aynı konuyla ilgili,Yapılacak işlerle ilgili olarak tarihkriteri kullanarak rapor alabiliyorum.
Ancak yapılacak iş listesini iki tarih arası Liste veya form düzenlemek istiyorum.Sitede bulunan yüzlerce örneği inceledim ama çözemedim,dilerseniz ayrı bir konu açayım,dilerseniz bu husuda fikir verebilirmisiniz.

Saygılarımla.
.rar YİĞİT İLAÇLAMA.rar (Dosya Boyutu: 502,09 KB | İndirme Sayısı: 9)
Cevapla
#4
Merhaba, Uygulamanızda Ana Form veya Ana isiminde form yok. Sizin için F_GIRIS formu ana form olabilir ama ben bunu bilmiyorum. Lütfen form isimlerini yazınız.

Firma adını giriniz kısmına ne yazınca ve kayıt bul butonuna tıklayınca alt formda hangi verileri görmek istiyorsunuz?
Cevapla
#5
Öncelikle ana form konusunda özür dilerim,atlamışım
Firma adı alanına ISYERIUNVANI yazılınca firma bilgileri ile cari bilgilerini görmek istiyorum.
Saygılarımla
Cevapla
#6
KayitBul isimli butonun tıklandığında olayına aşağıdaki kodları yazınız.

Visual Basic Code
If IsNull([ISYERIUNVANI]) Then
   MsgBox "Lütfen aramak istediğiniz Firma adı yazınız....!."
   Me.ISYERIUNVANI.SetFocus
   Else

 
Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ISYERIUNVANI] Like '*" & Me.ISYERIUNVANI & "*'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    

    End If
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da