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 Subher 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