Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Vba Fonksiyon Örneği

mgunes
mgunes
Access Cevaplanmış Soruları
9
1472

Vba Fonksiyon Örneği

Çözüldü #1
mgunes
Aktif Üye
mgunes
Bul
Aktif Üye
Adı Soyadı: Mu.... Gü....
Konum: İzmir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 07/01/2025,08:01
Yorumları: 78
Konuları: 11
Kayıt Tarihi: 21/03/2020
Teşekkür Puanı: 0
Mesleğiniz: Büro Çalışanı
Merhaba,
modül kodları:
Public Sub KytKaynAyari(ByVal MvctForm As Access.Form)

Dim SqlStr, SqlStrRpr As String
' formun kayıt kaynağının ayarlanması
SqlStr = " SELECT TACALISANKAYDI.*, TRADYASYON" & MvctForm.AclRMynSec & ".* FROM TACALISANKAYDI LEFT JOIN TRADYASYON" & MvctForm.AclRMynSec & _
         " ON TACALISANKAYDI.KIMNO = TRADYASYON" & MvctForm.AclRMynSec & ".KIMNO"
SqlStrRpr = SqlStr & " WHERE (((TACALISANKAYDI.KIMNO)=[Formlar]![FRADYASYONMYN]![mtn_KimNo]))"

DoCmd.OpenForm "FRADYASYONMYN"
Forms!FRADYASYONMYN.RecordSource = SqlStr
DoCmd.OpenForm "FRADYASYONMYN", , , "TACALISANKAYDI.KIMNO=" & MvctForm.LstKayitSorg
DoCmd.Close acForm, MvctForm.Name

'' rapor kayıt kaynağı ayarlama kod bloğu
CurrentDb.QueryDefs("SqlRAPRADMYNSYF").SQL = SqlStrRpr 'burada raporların kullandığı ortak sorgunun yapısı değiştirilmiştir
End Sub
Tıklanma olayı:
Call KytKaynAyari(Me)
gibi düzenlendiğinde sistem çalışıyor. Ancak TRADYASYON tablosu ve FRADYASYONMYN formunu değişken olarak aşağıdaki gibi tanımladığımda düzenek hata veriyor.

Public Sub KytKaynAyari(ByVal MvctForm As Access.Form, ByVal ACILACAKFORM, TABLOADI As String)

Dim SqlStr, SqlStrRpr As String
' formun kayıt kaynağının ayarlanması
SqlStr = " SELECT TACALISANKAYDI.*, TABLOADI" & MvctForm.AclRMynSec & ".* FROM TACALISANKAYDI LEFT JOIN TABLOADI" & MvctForm.AclRMynSec & _
         " ON TACALISANKAYDI.KIMNO = TABLOADI" & MvctForm.AclRMynSec & ".KIMNO"
SqlStrRpr = SqlStr & " WHERE (((TACALISANKAYDI.KIMNO)=[Formlar]![ACILACAKFORM]![mtn_KimNo]))"

DoCmd.OpenForm "ACILACAKFORM"
Forms!ACILACAKFORM.RecordSource = SqlStr
DoCmd.OpenForm "ACILACAKFORM", , , "TACALISANKAYDI.KIMNO=" & MvctForm.LstKayitSorg
DoCmd.Close acForm, MvctForm.Name

'' rapor kayıt kaynağı ayarlama kod bloğu
CurrentDb.QueryDefs("SqlRAPRADMYNSYF").SQL = SqlStrRpr 'burada raporların kullandığı ortak sorgunun yapısı değiştirilmiştir
End Sub
Diğeri 
Call KytKaynAyari(Me, "FRADYASYONMYN", "TRADYASYON")
compile yapınca sorun yok, kişi kaydı olayını işletince takılıyor:" Run-Time '2102': Özellik sayfasında ya da bir makroda girdiğiniz form adı, 'ACILACAKFORM' , yanlış yazılmış veya varolmayan bir forma başvuruyor. "
Kaynak dosya: 🔍https://accesstr.net/konu-form-ve-rapor-...#pid171866
Son Düzenleme: 11/06/2020, 16:13, Düzenleyen: mgunes.
Cevapla
#2
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 48
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316 
Public Sub KytKaynAyari(ByVal MvctForm As Access.Form, ByVal ACILACAKFORM As Access.Form, ByVal TABLOADI As String)

Dim SqlStr, SqlStrRpr As String
' formun kayit kaynaginin ayarlanmasi

SqlStr = " SELECT TACALISANKAYDI.*," & TABLOADI & MvctForm.AclRMynSec & " .* FROM TACALISANKAYDI LEFT JOIN " & TABLOADI & MvctForm.AclRMynSec & _
        " ON TACALISANKAYDI.KIMNO =" & TABLOADI & MvctForm.AclRMynSec & ".KIMNO"

SqlStrRpr = SqlStr & " WHERE (((TACALISANKAYDI.KIMNO)=ACILACAKFORM![mtn_KimNo]))"
DoCmd.OpenForm ACILACAKFORM.Name

ACILACAKFORM.RecordSource = SqlStr

DoCmd.OpenForm ACILACAKFORM.Name, , , "TACALISANKAYDI.KIMNO=" & MvctForm.LstKayitSorg
DoCmd.Close acForm, MvctForm.Name

' rapor kayit kaynagi ayarlama kod blogu
CurrentDb.QueryDefs("SqlRAPRADMYNSYF").SQL = SqlStrRpr 'burada raporlarin kullandigi ortak sorgunun yapisi degistirilmistir
End Sub


Call KytKaynAyari(Me, Form_FRADYASYONMYN, "TRADYASYON")
Cevapla
#3
mgunes
Aktif Üye
mgunes
Bul
Aktif Üye
Adı Soyadı: Mu.... Gü....
Konum: İzmir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 07/01/2025,08:01
Yorumları: 78
Konuları: 11
Kayıt Tarihi: 21/03/2020
Teşekkür Puanı: 0
Mesleğiniz: Büro Çalışanı
Merhaba, verdiğiniz düzenlemeyi yaptığımda açılan formda kişinin ilişkili TACALISANKAYDI tablosundaki bilgileri gelirken TRADYASYON tablosundaki kayıtları boş gelmektedir.
Cevapla
#4
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 48
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Merhaba sizin kodları uyguladım.
Fonksiyonsuz olarak deneyin birde değişkenleri manuel girip aynısımı olacak.
Birde alttaki yerleri neden eklediniz anlamadım.

.*
Cevapla
#5
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 48
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Ayrıca alttaki gibi kod ile sorgu sonucunu görebilirsiniz.

Msgbox  SqlStr
Msgbox SqlStrRpr
Cevapla
#6
mgunes
Aktif Üye
mgunes
Bul
Aktif Üye
Adı Soyadı: Mu.... Gü....
Konum: İzmir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 07/01/2025,08:01
Yorumları: 78
Konuları: 11
Kayıt Tarihi: 21/03/2020
Teşekkür Puanı: 0
Mesleğiniz: Büro Çalışanı
Fonksiyonsuz denediğimde; Run-time error '424' :Object required hatası oluşuyor.

"Birde alttaki yerleri neden eklediniz.." ifadenizle ilgili; bu kodu FVERIGIRIS formunda radyasyon muayenesi seçimi tıklanma olayına yazıyorum.
Call KytKaynAyari(Me, Form_FRADYASYONMYN, "TRADYASYON")
Aşağıdaki kodu nerde kullanacağımı anlamadım.
Msgbox  SqlStr
Msgbox SqlStrRpr
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task