textbox a girilen değeri başka modulede kullanmak

[burcin_end_muh]

Merhabalar,
Çok araştırdım ama bulamadım.
Userform ile Sql kullanıcı şifremi sorup bu değeri hücre dışında bir değişkene atamasını istiyorum.
farklı sql sorgularını çalıştırdığım makrolar var, dosya açık olduğu sürece bu şifreyi unutmasın ve o değişkenden çağırıp kullansın.

Public pw As String
Public Sub CommandButton1_Click()

pw = TextBox1.Value
UserForm1.Hide

End Sub

pw değerine şifreyi atıyor ama pw değerini başka module deki makroda kullanamıyorum

Server_Name = "zzzzz" ' Enter your server name here
Database_Name = "xxxxx" ' Enter your database name here
User_ID = "yyyy" ' enter your user ID here
Password = pw ' Enter your password here
SQLStr = "SELECT * FROM [ztgunlukhedef]" ' Enter your SQL here

Set cn = New ADODB.Connection
cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"

buarada userform u userform1.hide ile kapatıyorum.

şifreyi hücreye atamadan bu işi nasıl yapabilirim?

değerli vaktiniz için şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Bir module Public Sifre as string şeklinde bir değişken tanımlaması yaparak kullanın. Dosya kapatılana kadar bu değişkendeki değer hafızada tutulur.
Bu değişken bütün modüller ve formlardan hatta başka dosyalardan bile değiştirilebilir ve çağırılabilir.

 

[burcin_end_muh]

örnek dosyada yapabilir misiniz?
şifre gir ile şifreyi giriyorum başka bir makroda bunu çağırmak istiyorum temel amaç bu.

Şimdiden teşekkürler.

 

[Muzaffer Ali]

CommandButton1_Click deki kodları aşağıdaki ile değiştirin.

Public Sub CommandButton1_Click()
    Module1.Sifre = TextBox1.Value
    UserForm1.Hide
End Sub

 

[burcin_end_muh]

çok teşekkür ederim

 

[Haluk]

Sub CommandButton1 prosedürü "Private" olarak kalabilir, önemli olan değişkenin bir "Standart" modülde "Public" olarak deklare edilmesi.

Yani, Userform kodları;

Private Sub CommandButton1_Click()
    sifre = TextBox1.Value
    UserForm1.Hide
End Sub

Modül kodları;

Public sifre As String
'
Sub mesaj()
    MsgBox sifre
End Sub
'
Sub sifregir()
    UserForm1.Show
End Sub

.