Global Değişken

10/05/2015, 03:25

mozuer

MYetkiler modulünde tanımladığım;
Global KullaniciNum As Integer

Global KullaniciAdi As String
Global YetkiNum As Integer
Global BolgeAdi As String

değişkenleri tüm program boyunca kullanılacağından değerleri Kullanıcı Giriş formundan sonra almaktadır.
Ancak; herhangi bir Run_time error kod hatası durumunda değerler resetlenmektedir. İstediğim; hata olsa dahi girişte atanan bu değerler değişmesin. (Örnek oluşsun diye Giriş Formu-İşler Listesi 19/A 'Deneme 1' çift tıklayınca gelen İş Bilgileri Formu-Haftalık Rapor sekmesinde 'Yazdır' butonuna tıklayınca hata oluşturdum.)
10/05/2015, 09:33

alpeki99

Kullanıcı giriş kontrol penceresinde saklamak istediğiniz değerler adedince metin kutusu oluşturun. Giriş işlemi başarılı ise bu metin kutularına istediğiniz değerleri yazın ve giriş penceresini gizleyin.

Herhangi bir formda herhangi bir işlemde bu değerleri kullanmadan önce Null kontrolü yapın:

If Isnull(KullaniciAdi) or KullaniciAdi="" Then
KullaniciAdi = Forms!frmGirisFormu.txtKullaniciAdi
End If

şeklinde eğer KullaniciAdi değişkeninin değeri boş ise gizlenen Giriş Kontrol Formundaki metin kutusundan değeri alıp tekrar Public değişkene atama yapın.

NOT : Global anahtar kelimesi yerine artık Public kullanılıyor. Eski destekleniyor ancak siz Public kullanırsanız daha iyi olur.
10/05/2015, 21:10

mozuer

Sn.alpeki99;
Önerdiğiniz yolu kullanarak sorunumu çözdüm...Teşekkür ederim....