Ciao,
il codice mi sembra Ok, a parte i caratteri che delimitano le varie stringhe (i doppi apici aperti e chiusi),
che potrebbero dare fastidio.
Prova a sostituirli con il carattere "doppio apice" standard:
Private Sub nome pulsante
Username.SetFocus
If Username = "COGNOME1" And Password = "PASSWORD1" Then
MsgBox "Accesso Garantito", vbInformation, "AZIENDA"
MsgBox "Benvenuto", vbInformation, "AZIENDA"
DoCmd.Close
DoCmd.OpenForm "nome scheda"
ElseIf Username = "COGNOME2" And Password = "PASSWORD2" Then
MsgBox "Accesso Garantito", vbInformation, "AZIENDA"
MsgBox "Benvenuto", vbInformation, "AZIENDA"
DoCmd.Close
DoCmd.OpenForm "nome scheda"
Else
MsgBox "ACCESSO NEGATO - Password Errata", vbInformation, "AZIENDA"
End If
End Sub
altra cosetta, che però non so se c'entra nel tuo caso,
intendi validare le credenziali indipendentemente dalla valutazione dei caratteri minuscoli/maiuscoli
o vuoi che i dati forniti coincidano perfettamente?
Nel primo caso potresti eventualmente fare così:
Private Sub nome pulsante
Username.SetFocus
If UCase(Username) = "COGNOME1" And UCase(Password) = "PASSWORD1" Then
MsgBox "Accesso Garantito", vbInformation, "AZIENDA"
MsgBox "Benvenuto", vbInformation, "AZIENDA"
DoCmd.Close
DoCmd.OpenForm "nome scheda"
ElseIf UCase(Username) = "COGNOME2" And UCase(Password) = "PASSWORD2" Then
MsgBox "Accesso Garantito", vbInformation, "AZIENDA"
MsgBox "Benvenuto", vbInformation, "AZIENDA"
DoCmd.Close
DoCmd.OpenForm "nome scheda"
Else
MsgBox "ACCESSO NEGATO - Password Errata", vbInformation, "AZIENDA"
End If
End Sub
Michele