SICUREZZA, GRUPPO DI LAVORO E PROFILI

[Leoluca]

Buongiorno,
uso un applicativo Access da tanti anni, vorrei integrare il codice con i profili utenti, per intenderci:

Private Sub Form_Load()
On Error GoTo Load_Click
Dim Ute As String
Call ValidaUtente
Ute = Utente
Select Case Trim(DLookup("[Tipologia]", "TipoUtente", "Utente=" & "'" & Ute & "'"))
ecc. ecc.

succede una cosa strana, alcuni oggetti leggono il codice altri lo ignorano (come se non ci fosse)

Ho controllato più volte il codice ed è perfettamente identico in tutti i form, non riesco a capire perché succede.

Se qualcuno ha usato questo codice e sa quale potrebbe essere il problema, sarei molto grato per volermi dare qualche consiglio.

Grazie

 

[CarlettoFed]

Devi controllare, utilizzando un breackpoint del debug, per leggere che valore restituisce il codice :
Trim(DLookup("[Tipologia]", "TipoUtente", "Utente=" & "'" & Ute & "'"))

 

[Leoluca]

Grazie CarlettoFed,
ci provo.
Intanto ho adottato una soluzione un po' barbara, ho fatto un form_campione che legge il codice e uso le sue copie per i nuovi form e per sostituire quelli che non leggono il codice . Al momento sta funzionando.