Skip to main content

AccessTr.neT


Modül Yazımı Hk.

Modül Yazımı Hk.

Çözüldü #1
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
Son Düzenleme: 29/07/2017, 17:27, Düzenleyen: ALTANs.
Cevapla
#2
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

Visual Basic Code
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

Visual Basic Code
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.
Cevapla
#3
Çok teşekkür ediyorum hocam elinize sağlık.
Cevapla
#4
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.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da