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
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.
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ı: 13)
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.

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
Task