Modül Yazımı Hk.

29/07/2017, 17:26

ALTANs

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
30/07/2017, 19:20

ozanakkaya

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.
31/07/2017, 10:57

ALTANs

Çok teşekkür ediyorum hocam elinize sağlık.
31/07/2017, 14:18

ozguryasin

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.