Inserimento Password.

Private Sub cmdAggiorna_Click()
Dim varOK As Integer
Dim ins_password As String

  varOK = MsgBox("Sicuro?", vbOKCancel, "SICURO")
  If varOK = vbOK Then
     ins_password = InputBox("Inserire password", "Controllo autorizzazione")
     ins_password.InputMask = "Password"
    If UCase(ins_password) = txtpwd Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "query_aggiornamento"
    
      Else
      MsgBox "Utente non autorizzato. Modifica non effettuata.", vbOKOnly, "Password errata"
    End If
  Else
    Exit Sub
  End If
  lista.Requery
  CodiceProdotto.SetFocus
  
  
End Sub

Private Sub cmdAggiorna_Click()
Dim varOK As TextBox
Dim ins_password As String


  varOK = MsgBox("Sicuro?", vbOKCancel, "SICURO")
  If varOK = vbOK Then
     ins_password = Text1.PasswordChar = "*"
     
    If UCase(ins_password) = txtpwd Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "query_aggiornamento"
    
      Else
      MsgBox "Utente non autorizzato. Modifica non effettuata.", vbOKOnly, "Password errata"
    End If
  Else
    Exit Sub

Private Sub cmdAggiorna_Click() 

'non dichiarare una variabile come TextBox, semmai Object e poi ci lavori sopra
'  Dim varOK As TextBox
  Dim varOK As Integer ' il valore della costante vbOk è un numero
' questa non ti serve più
'  Dim ins_password As String 

  varOK = MsgBox("Sicuro?", vbOKCancel, "SICURO") 

  If varOK = vbOK Then 
' questo non ti serve
'    ins_password = Text1.PasswordChar = "*" 

' qui devi controllare il valore della password che sarà in un altro campo della maschera
' se ad esempio la password da controllare fosse nel campo txtPassWord e
' quella corretta nel campo txtActualPassWord, il codice sarà:
    If txtPassWord = txtActualPassWord Then 
' naturalmente devi trasformare o meno txtPassWord con UCase in base a come
' hai deciso che sia inserita txtActualPassWord
      DoCmd.SetWarnings False 
      DoCmd.OpenQuery "query_aggiornamento" 
    Else 
      MsgBox "Utente non autorizzato. Modifica non effettuata.", vbOKOnly, "Password errata" 
    End If 
  End If
Exit Sub

Private Sub cmdAggiorna_Click()
Dim varOK As Integer
Dim ins_password As String

  varOK = MsgBox("Sicuro?", vbOKCancel, "SICURO")
  If varOK = vbOK Then
     ins_password = InputBox("Inserire password", "Controllo autorizzazione")
     
    If UCase(ins_password) = txtpwd Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "query_aggiornamento"
    
      Else
      MsgBox "Utente non autorizzato. Modifica non effettuata.", vbOKOnly, "Password errata"
    End If
  Else
    Exit Sub
  End If
  lista.Requery
  CodiceProdotto.SetFocus
  
End Sub

Private Sub cmdAggiorna_Click()
Dim varOK As Integer

  varOK = MsgBox("Sicuro?", vbOKCancel, "SICURO")
  If varOK = vbOK Then
    If Not UCase(Me!txtPwd) = UCase([Forms]![Login].txtPwd.Text) Then
      MsgBox "Utente non autorizzato. Modifica non effettuata.", vbOKOnly, "Password errata"
      Exit Sub
    End If

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "query_aggiornamento"

  Else
    Exit Sub
  End If
  lista.Requery
  CodiceProdotto.SetFocus
  
End Sub

Private Sub cmdOK_Click()

  If UCase(txtPassword) = Me.OpenArgs Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "query_aggiornamento"
    Forms!ArchivioArticoli.Requery
    Forms!ArchivioArticoli.lista.Requery
    DoCmd.Close acForm, "frmConferma"
  Else
    If MsgBox("Password errata. Azione non autorizzata.", vbOKCancel, "Errore") = vbCancel Then
      DoCmd.Close acForm, "frmConferma"
    End If
    Exit Sub
  End If

End Sub

Private Sub cmdOK_Click()

  Dim varPassword As String
  Dim varAzione As String

  varPassword = Left(Me.OpenArgs, Len(Me.OpenArgs) - 2)
  varAzione = Right(Me.OpenArgs, 2)

  If UCase(txtPassword) = varPassword Then
    DoCmd.SetWarnings False
    Select Case Right(varAzione, 1)
      Case "M"
        DoCmd.OpenQuery "query_aggiornamento"
      Case "I"
        DoCmd.OpenQuery "query_inserimento"
      Case "S"
        DoCmd.OpenQuery "q_inserimento_ST"
      Case "T"
        DoCmd.OpenQuery "q_inserimento_storico"
      Case "L"
        DoCmd.OpenQuery "q_aggiornamento_ST"
      Case "E"
        DoCmd.OpenQuery "q_inserimento_RP"
      

    End Select
    Select Case Left(varAzione, 1)
      Case "A"
        Forms!ArchivioArticoli.Requery
        Forms!ArchivioArticoli.lista.Requery
      Case "S"
        Forms!SchedaTecnica.Requery
        Forms!SchedaTecnica.lista.Requery
      Case "R"
        Forms!RapportoPrestazione.Requery
        Forms!RapportoPrestazione.lista.Requery
    End Select
    DoCmd.Close acForm, "frmConferma"
  Else
    If MsgBox("Password errata. Azione non autorizzata.", vbOKCancel, "Errore") = vbCancel Then
      DoCmd.Close acForm, "frmConferma"
    End If
    Exit Sub
  End If