17/04/2025 - Loppi ha scritto:
Me.OperIns = DLookup("NomeUtente", "UtentiT", "Username= '" & TempVars("Username") & "'")
Me.UtenteTxt.Caption = DLookup("NomeUtente", "UtentiT", "Username= '" & TempVars("Username") & "'")
Quando scrivi queste function devi fare attenzione a controllare il probabile Null come valore di ritorno.
In tal caso il processo va in crash restituendo errore di runtime e rimani bloccato.
Per evitare ciò hai almeno due alternative:
Esempio con variabile di tipo Variant
' Retrieve value
Dim varOperIns AS Variant
varOperIns = DLookup("NomeUtente", "UtentiT", "Username= '" & Me.UsernameTxt.Value & "'")
' Check error
If Not IsNull(varOperIns) Then
' Set temp variable
TempVars("Username") = varOperIns
Else
MsgBox "Error: UserId not found"
End If
Oppure per esempio utilizzando la funzione Nz:
' Retrieve and Display User Id value
Me.UsernameTxt.Value = Nz(DLookup("NomeUtente", "UtentiT", "Username= '" & Me.UsernameTxt.Value & "'"), "")
' Check error
If Me.UsernameTxt.Value <> "" Then
' Set temp variable
TempVars("Username") = Me.UsernameTxt.Value
Else
MsgBox "Error: UserId not found"
End If
Sono solo esempi ... puoi adottare altre tecniche... rimane il fatto che se una function restituisce Null , tale valore deve essere testato per evitare "Invalid use of Null"
Adesso se l'UserId è OK, allora puoi assegnare il valore alle tue variabili e/o controlli:
Me.OperIns.Value = TempVars("Username")
Me.UtenteTxt.Caption = TempVars("Username")
etc... etc...
oppure
Me.OperIns.Value = TempVars!Username
Me.UtenteTxt.Caption = TempVars!Username
etc... etc...