|
Login
  • Page:
  • 1

TOPIC: Aprire UserForm se 2 TextBox sono uguali

Aprire UserForm se 2 TextBox sono uguali 5 years 5 months ago #9888

  • rugantino
  • rugantino's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 221
  • Thank you received: 4
  • Karma: 5
Ciao a tutti, da una UserForm, tramite un CommandButton, si accede a UserForm1 con:
Private Sub CommandButton_Click()
UserForm1.Show
End Sub

E fin qui tutto bene.

Quello che vorrei realizzare è:
seleziono, tramite una ComboBox1, il nome utente1.
A questo utente1 è assegnata una password (TextBox2).
In TextBox5 inserisco una password

Il codice che vorrei scrivere è:

se la password che ho inserito in TextBox5 corrisponde a quella inserita in TextBox2 apri la UserForm indicata nella TextBox3

Spero di non essere stato troppo contorto nella spiegazione

Grazie
Rugantino
The administrator has disabled public write access.

Aprire UserForm se 2 TextBox sono uguali 5 years 4 months ago #9927

  • rugantino
  • rugantino's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 221
  • Thank you received: 4
  • Karma: 5
Per chi fosse interessato, pubblico la soluzione che dopo vari tentativi andati a vuoto ed un aiuto ricevuto, ho così risolto:

Private Sub CommandButton3_Click()
Dim X As Integer
X = Val(TextBox3)
If Me.TextBox5.Text = TextBox2 Then
Unload Me
X = Val(TextBox3)
VBA.UserForms.Add("UserForm" & X).Show
Unload Me
Exit Sub
End If
MsgBox "ATTENZIONE: Utente e/o Password non valido. Riprova!"
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox5 = ""
End Sub

Allego cartella d’esempio

Rugantino

File Attachment:

File Name: Accesso_PerMultiUtente_06_2015.xls
File Size: 95 KB
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.327 seconds