Wywołanie formularza użytkownika i zwrócenie wartości

Question

Posiadam kod VBA to jest Auto_Open. Wykonuje pewne kontrole, a następnie wyświetla formularz użytkownika, który prosi o podanie nazwy użytkownika i hasła. Nazwałem to userform z userform_name.show.

Mój problem polega na tym, jak mogę zwrócić Boolean do mojego Auto_Open sub z kodu użytkownika.

Połączyłem kod weryfikujący, czy poświadczenia są poprawne z przyciskiem "Logowanie" w formularzu. jest to kod, który tworzy wartość logiczną. Muszę go zwrócić do 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 

Answer 1

Usuń Dim bool As Boolean z obszaru kodu UserForm i zadeklarować w module, jak pokazano poniżej

ten sposób Twój kod w module będzie wyglądać

Public bool As Boolean 

Sub Auto_Open() 
    ' 
    '~~> Rest of the code 
    ' 
    UserForm1.Show 

    If bool = True Then 
     '~~> Do Something 
    Else 
     '~~> Do Something   
    End If 

    ' 
    '~~> Rest of the code 
    ' 
End Sub 

Answer 2

Jak na temat korzystania z funkcji zamiast sub?

Function loginbutton() 
    ' your code 

    loginbutton = bool 
End Function 

Teraz w kodzie wywołującym można przetestować na true/false

if loginbutton() then 
    'true responce 
else 
    'false responce 
end if 

Answer 3

można zarządzać to zrobić bez użycia zmiennych publicznych.

Wygląda na to, że występuje różnica między wyświetlaniem/ukrywaniem a ładowaniem/zwalnianiem.

Jeśli ukryjesz formularz, gdy jest on nadal załadowany, nie zostanie usunięty, więc możesz odwołać się do stanu formantów w formularzu.

Na przykład używałem wyboru daty (tzw DTPicker1) na formularzu, mój kod w module wygląda mniej więcej tak:

Dim NewDay As Date 

Load FrmDayPicker 
FrmDayPicker.Show 

NewDay = FrmDayPicker.DTPicker1.Value 

Unload FrmDayPicker 

Debug.Print NewDay 

na formularzu można po prostu użyć Me.Hide insteaded od Unload Me i tego powinien działać