AccessTr.neT

Tam Versiyon: liste kutusunda kayıt arama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7
Dosyanın son halini ekleyip, hangi formda nerede ne zaman olduğunu yazarsan bakalım.
örnek ekledim .Resimde var.Umarım resim görülür..Çünkü ben göremiyorum.
"Bu arada Liste kutusu olayında docmd.openform "pa_cekler",,, kısmına
carikod,adı,soyadı yazdığımda parametre değeri istiyor."

Üsttekini ve formda ne gibi bir hata olduğunu anlayamadım, pa_cekler de, ara_mus'ta ve aralarındaki açılıp kapanma mevzusunda hiç bir problem yok.
bu konuda bir soruda ben sorsam olurmu acaba !!!

bu aramayı bende formuma ekledim ama sorunum şu ;

arama yapmak istedim yer form içinde olan sub forum açılan arama penceresindeki isme tıladığım zaman bana subforumu açıyor ama ben onun değilde ana formun açılıp içindeki subforumda filtrelem yapmasını istiyorum aslında tek bir ayrıntıyı atlıyorum ama çözemedim kodu vereyim mesela ;

Private Sub TumListe_DblClick(Cancel As Integer)

acilacakForm = "GIDER FILTRE subform" ===== bunu bağlantısını nasıl forum!subforum yapabilirim...
hangiKriter = "[No]=" & Me![TumListe]

DoCmd.OpenForm acilacakForm, , , hangiKriter

DoCmd.Close acForm, "TumListe"



End Sub
1- Alt form ile ana formu hangi alan ile birbirine bağladıysanız kriter olarak onu gösterin. Mesela ID alanlarını bağladıysanız ID, NO alanlarını bağladıysanız NO olarak... Ve açılacak form alanına da ANAFORM'un adını girin. Alt form ana forma aynı alan ile bağlı olduğu için ana formdaki kriter açılır. Böylece alt form da açılmış olur.

2- Ana form üzerine bir adet Metin Kutusu ekleyin ve içini şu şekilde doldurun:

Kod:
=nz(ALTFORMADI!ALTFORMKRITERI;0)

Size göre düzenleyecek olursak:

Kod:
=nz(GIDER FILTRE subform!No;0)

Bu ifade, alt formdaki NO veya ID gibi ana forma bağlanan alanı ana form üzerine çekecek ve kriter (NO) değiştikçe içeriği değişecek ve bir buton yardımıyla falan tıkladığınızda o NO'daki kaydın ana formunun açılmasını sağlayacaktır.

Metin kutumuzun adının Metin1, Kriterimizin ise NO olduğunu varsayarsak kodunuz şu şekilde olmalıdır:


Kod:
Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "ANAFORMADI"
    
    stLinkCriteria = "[NO]=" & Me![Metin1]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    DoCmd.Close acForm, "TumListe"


Hatasız anlattığımı düşünüyorum ama siz yine de bi deneyin. Olmazsa yazın. Tekrar bakalım...

Kolay gelsin...
denedim ama Neyapsam birde sen baksan nerde yanlışlık var ...
Sayfalar: 1 2 3 4 5 6 7