Modül Yazımı Hk. - Baskı Önizleme

Modül Yazımı Hk. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Modül Yazımı Hk. (/konu-modul-yazimi-hk.html)

Modül Yazımı Hk. - ALTANs - 29/07/2017

Merhaba Arkadaşlar,
Formlarda cokca kulladığım bir kod dizimini modül yapmak istiyorum yardım ederseniz sevinirim.
Aşağıda kullandığım kod dizimi verilmiştir. Bir formda bundan en az 40 tane oluyor.

Kod:

Private Sub Komut54_Click()

a= "d_id=15"

Me.Metin57 = DLookup("firma_id", "dukkan_bilgi", a)

Me.ticariunvan = DLookup("f_ticari", "dukkan_bilgi", a)

Me.firmaadi = DLookup("f_kisaad", "dukkan_bilgi", a)

Me.dukkanalan = DLookup("d_alan", "dukkan_bilgi", a)

Me.sabitkira = DLookup("s_kira", "dukkan_bilgi", a)a)

Me.dukkanno = DLookup("d_no", "dukkan_bilgi", "d_id=15")

Me.baslangictarihi = DLookup("f_baslangic", "dukkan_bilgi", a)

Me.ortakgider = DLookup("s_ortakgider", "dukkan_bilgi", a)

End Sub

her komutta d_id=15 21 21 gibi değişiyor bu yüzden bi kere yazmak istiyorum. Aşağıdaki gibi

Kod:

Private Sub Komut54_Click()

a = 15

Call firmaincelekodu

End Sub



Private Sub Komut55_Click()

a = 16

Call firmaincelekodu

End Sub

Cvp: Modül Yazımı Hk. - ozanakkaya - 30/07/2017

Merhaba, bu tür sorularda örnek uygulama ekler form ismini belirtirseniz daha hızlı cevap alırsınız. Sorunuza çözüm araması muhtemel kişiler sorunuzu okuyup sonraki soruya geçer

Modüle aşağıdaki kodu ekle

Public Function BilgiAktar(Gid As String)



Forms!Form1.Metin57 = Dlookup ("firma_id", "dukkan", "[d_id]= " & Gid)



End Function

Form ismi ne olduğunu bilmediğim için koda Form1 yazdım.

Siz formdaki butonun tıklandığında olayına

Call BilgiAktar(33)

yazarsanız d_id değeri 33 olan veriye ait firma_id değerine ulaşabilirsiniz.

Diğer alanların da modüldeki fonksiyona dahil edilmesi gereklidir.

Cvp: Modül Yazımı Hk. - ALTANs - 31/07/2017

Çok teşekkür ediyorum hocam elinize sağlık.

Cvp: Modül Yazımı Hk. - ozguryasin - 31/07/2017

Ayrıca Her formda kullanacaksan global bit değişken tanımlayıp, açılan form ismini değişkene atayıp, değişken kullanarak ta yapabilirsin.