Tablodan Global değişken atamak

Tablodan Global değişken atamak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablodan Global değişken atamak (/konu-tablodan-global-degisken-atamak.html)

Tablodan Global değişken atamak - Yunus Bozkurt - 09/05/2015

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

Cvp: Tablodan Global değişken atamak - ozanakkaya - 09/05/2015

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

Cvp: Tablodan Global değişken atamak - Yunus Bozkurt - 10/05/2015

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

Cvp: Tablodan Global değişken atamak - Yunus Bozkurt - 10/05/2015

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.