Skip to main content

AccessTr.neT


Formdan Çift Tıklama İle Çağrılan Yeni Form Açılmıyor

Oğuz Türkyılmaz
Oğuz Türkyılmaz
6
522

Formdan Çift Tıklama İle Çağrılan Yeni Form Açılmıyor

Çözüldü #1
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

[Resim: do.php?img=9886]

[Resim: do.php?img=9887]

Visual Basic Code
Option Compare Database
Option Explicit

Private Sub UyeNo_DblClick(Cancel As Integer)

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

End Sub
.rar Hata.rar (Dosya Boyutu: 158,83 KB | İndirme Sayısı: 4)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
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
Cevapla
#3
(18/03/2020 22:24)berduş Adlı Kullanıcıdan Alıntı: 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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
(18/03/2020 23:45)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı: 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
Cevapla
#5
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
Cevapla
#6
SF_UyeListesi AF isimli formdaki uyenonun çift tıklandığında olayındaki kodu

Visual Basic Code
DoCmd.OpenForm "F_Uye", , , , , , Me.TcNo

kodu ile değiştir.

F_Uye formunun yüklendiğinde olayındaki

Visual Basic Code
Durum_CBO = "AKTİF"


kodunun altına da

Visual Basic Code
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da