AccessTr.neT

Tam Versiyon: Aynı Kayıt Kontrol Kodu 2 Farklı Sonuç...
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhabalar

F_006_PortfoyTanimlama formumda verileri girerken müşteri adı alanında aynı müşterinin daha önce girilmiş kayıtları varsa F_005_PortfoyListesinde ilgili kayıtları filtreleyerek görmek amacıyla aşağıdaki kodu yazdığımda ana projemde....

 
[Resim: do.php?img=8814]

aşağıdaki hata mesajını aldım.

[Resim: do.php?img=8815]

[Resim: do.php?img=8816]

Bu hatayla ilgili foruma yükleyeceğim sadece ilgili tablo, sorgu ve formları içine aktardığım dosyayı kontrol amaçlı çalıştırdığımda ise hata almadım ve ilgili form aşağıdaki şekilde açıldı.  

[Resim: do.php?img=8817]

Amacım örnekten yola çıkacak olursam portföy tanımlama ekranında yeni kayıt girerken mehmet doğan ismini girdiğimde bana Portföy listesinde sadece mehmet doğan ismiyle girilmiş kayıtları süzerek getirmesi. 
NOT:Kayıtlar internetten çekildiği için herhangi bir gizliliği yoktur.
İlk resimdeki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim varmi As Integer

varmi = DCount("txtMusteriAdi", "TBL_PORTFOY", "AdiSoyadi='" & Me.txtMusteriAdi & "'")
   
If varmi >= 1 Then
       
   If MsgBox("Bu Müşteri adına Portföy kaydedilmiş. Kayıtları kontrol etmek istermisiniz.?", vbExclamation + vbYesNo) = vbYes Then
             
       DoCmd.OpenForm "F_005_PortfoyListesi", , , "[AdiSoyadi]='" & Me.txtMusteriAdi & "'", , , Me.txtMusteriAdi
                   
       Forms![F_005_PortfoyListesi].[SRG_AltForm].Form.Filter = "([SRG_PORTFOY alt formu].[Adisoyadi]='" & Me.txtMusteriAdi & "')"
       Forms![F_005_PortfoyListesi].[SRG_AltForm].Form.FilterOn = True
                       
   End If
End If
[Resim: do.php?img=8820]

Ozan Bey Cevabınız için teşekkür ederim. Foruma yüklediğim ana projeye kodu yazdığımda yine hata mesajı alıyorum fakat foruma yüklemek için ilgili tablo form ve sorguları transfer ederek oluşturduğum 2. veritabanında kod istenen değerleri getiriyor. Aralarında bir fark yok, sadece yeni Access projesi oluşturup dosyaları transfer ettiğim VT'da çalışmasını bir türlü anlayamıyorum. Ne yapmam lazım gerçekten şaşırdım. Çalışan projedeki formu tekrar ana projeye transfer edip bir de öyle deneyeceğim.
Ana projedeki formları iptal edip Foruma yüklemek için oluşturduğum VT 'dan çalışan formları ana projeye geri transfer ettim bu şekilde ana projemde de kodların çalışmasını sağladım. Sorunun kaynağını tespit edememe kle beraber sorunumu bu şekilde çözümledim. Tekrar teşekkür ederim.