AccessTr.neT

Tam Versiyon: Tablodan Global değişken atamak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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  Img-grin
Problem çözüldü. 
Modülü kaydetmeden denediğim için olmuyormuş  Fur


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.