Firma bilgileri tablom var. bu tabloda tek kayıt olacak adres telefon isim gibi
form ve raporlarda kullanmak için
bir modülde global değişken atamak istiyorum
txt_firmam veri =FirmaAdi()gibi
formda aradım ama bulmadım
Adres için, modül ekle. Modüle
Global AdresBilgisi as integer
Kodu ekle.
Uygulama ilk açıldığında çalışacak formun açıldığında olayına,
AdresBilgisi =
Dlookup ("..",."..","..") şeklinde
Dlookup ile veri çek.
Diğer formlarda da mesela,
Metin15 = AdresBilgisi
Şeklinde kumlanabilirsin
sayın ozanakkaya öncelikle teşekkürler.
modül şöyle
Public Function kurumAdi() As String
kurumAdi = Dlookup ("adim", "firmam", "[Kimlik] = 1")
End Function
form loadolayı ise
Private Sub Form_Load()
Me.Metin199.SetFocus
Me.Metin199.Text = kurumAdi()
Me.Etiket206.Caption = kurumAdi()
End Sub
bu şekilde çalışıyo ancak benim istediğim hani =Date() yazıp sistem tarihini gösteriyoruz ya işte öyle birşey
Problem çözüldü.
Modülü kaydetmeden denediğim için olmuyormuş
Module1
Option Compare Database
Option Explicit
Function FirmaBilgileri()
FirmaBilgileri = Dlookup ("Kurum", "tbl_bilgilerim", "[Kimlik] = 1")
End Function
Formdaki herhangi bir kontrolun denetim kaynağına
=FirmaBilgileri()
yazınca bilgiler geliyor.