मेरे पास एक vba कोड है जो Auto_Open है। यह कुछ चेक करता है फिर उपयोगकर्ताफॉर्म को संकेत देता है जो उपयोगकर्ता नाम और पासवर्ड मांगता है। मैंने इस उपयोगकर्ता को userform_name.show
के साथ बुलाया।उपयोगकर्ताफॉर्म को कॉल करना और एक मान वापस करना
मेरा मुद्दा यह है कि मैं Boolean
को Auto_Open
उप उपयोगकर्ता उपयोगकर्ता कोड से कैसे वापस कर सकता हूं।
मैंने कोड को लिंक किया है जो सत्यापित करता है कि क्या प्रमाण पत्र फॉर्म पर "लॉगिन" बटन के लिए सही हैं। यह वह कोड है जो बूलियन पैदा करता है। मुझे इसे Auto_Open पर वापस करने की आवश्यकता है।
Private Sub loginbutton()
Dim bool As Boolean
Dim lrup
Dim r As Long
Dim pass As String
loginbox.Hide
'are fields empty
Do While True
If unBox.Text = "" Or pwBox.Text = "" Then
MsgBox ("You must enter a Username and Password")
Else
Exit Do
End If
loginbox.Show
Exit Sub
Loop
'find pw reated to username (if existant)
lrup = UserPass.Range("A1").Offset(UserPass.Rows.Count - 1, 0).End(xlUp).Row
If unBox = "b0541476" And pwBox = "theone" Then
bool = True
Else
MsgBox ("Invalid username or password. Please try again.")
loginbox.Show
Exit Sub
End If
For r = 2 To lrup
If unBox = Cells(r, 1) Then
pass = Cells(r, 2).Value
Exit For
End If
Next
If pass = "" Then
MsgBox ("Invalid username or password. Please try again.")
loginbox.Show
Exit Sub
Else
bool = True
End If
End Sub
"यह वह कोड है जो बूलियन पैदा करता है" - यह कहां है? –
क्षमा करें मैंने इसे जोड़ा। जब कोड समाप्त हो जाता है तो मैं ऑटो_ ओपन पर "बूल" को वापस कैसे पास कर सकता हूं? – user2385809