AccessTr.neT

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

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

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.

Merhaba, önceki sorunuza eklediğiniz örnek uygulamada bahsettiğiniz formu bulamadım. Örnek uygulamanızın son halini ekleyip form isimlerini yazınız.

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.

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?

Ö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

KayitBul isimli butonun tıklandığında olayına aşağıdaki kodları yazınız.

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