AccessTr.neT

Merhaba F_UyeListesi formunun uye no alanının çift tıklanma olay yordamına yazdığım aşağıdaki kod da hata alıyorum. Nedeni konusunda 
yardımcı olmanızı rica ederim.

DoCmd.OpenForm "F_Uye", , , "[UyeNo]=" & [UyeNo_TXT], , , Me.UyeNo_TXT

Option Compare Database

Option Explicit



Private Sub UyeNo_DblClick(Cancel As Integer)



DoCmd.OpenForm "F_Uye", , , "[UyeNo]=" & [UyeNo_TXT], , , Me.UyeNo_TXT



End Sub

1 - ilişkisiz formda formu kriterle açamazsınız openargs ile ile gönderdiğiniz değere göre recordseti yeniden ayarlamalısınız
form load olayında recordset ile veri geliyor veri geldikten sonra bu sefer eğer openargs varsa find ile recordsetten ilgili kayda gidilmeli
2 - formunuz ilişkili olsaydı bile bu komut bu haliyle çalışmazdı çünkü altformunuzda UyeNo_TXT adında bir metin kutusu yok

(18/03/2020, 22:24)berduş yazdı: [ -> ]1 - ilişkisiz formda formu kriterle açamazsınız openargs ile ile gönderdiğiniz değere göre recordseti yeniden ayarlamalısınız
form load olayında recordset ile veri geliyor veri geldikten sonra bu sefer eğer  openargs varsa find ile recordsetten ilgili kayda gidilmeli
2 - formunuz ilişkili olsaydı bile bu komut bu haliyle çalışmazdı çünkü altformunuzda UyeNo_TXT adında bir metin kutusu yok

1/ madde deki açıklamalara göre devam ederim 2. maddedeki olayı biliyorum alt formda ki alanı UyeNo_TXT olarak değiştirmiştim ama bu sefer de form açılırken 2. bir parametre olarak UyeNo_TXT değerini soruyordu tekrardan bu yüzden o şekilde bırakmıştım. Teşekkür ederim.

(18/03/2020, 23:45)Oğuz Türkyılmaz yazdı: [ -> ]form açılırken 2. bir parametre olarak UyeNo_TXT değerini soruyordu tekrardan bu yüzden o şekilde bırakmıştım.

denmelerimde boyle bir sorunla karşılaşmadım.
Ilk "[UyeNo]=" & [UyeNo_TXT]lı kısmi tamamen sildim, 2.'yi de doğrusuyla değiştirince hata vermedi

Ilgili kayda gitmesi için de formun yüklenme olayına openargs bos değilse find ile ilgili kayda gitme kodu ekleyince doğru kayda gitti ama sanırım üye formundaki uyeno alanı sorun çıkaracak çünkü diğer alanlar doğru gelmesine rağmen uyeno alanı hep 6 geldi

SF_UyeListesi AF isimli formdaki uyenonun çift tıklandığında olayındaki kodu

DoCmd.OpenForm "F_Uye", , , , , , Me.TcNo

kodu ile değiştir.

F_Uye formunun yüklendiğinde olayındaki

Durum_CBO = "AKTİF"

kodunun altına da

If Me.OpenArgs <> 0 Then

    

    Durum_CBO.SetFocus

    UyeRS.MoveFirst

    

    For GVeri = 0 To UyeRS.RecordCount - 1



        AlanDoldur

        UyeRS.MoveNext



            If Me.TcNo_TXT = Me.OpenArgs Then

                Exit For

            End If

    Next GVeri

 

End If

Kodu ekle.