Buongiorno stò creando un DB per la gestione di allievi dove lavoro per semplificare (fanno ancora raccolta dati cartaceo). di seguito elenco il codice della funzione indicata nel modulo di access. da una maschera menù si accede o meno ad altre maschere ma mi restituisce sempre errore Null. Sto impazzendo perchè è la seconda volta che lo riprogrammo dal mio pc, arrivo in ufficio e dopo qualche prova mi restituisce errore, poi lo provo di nuovo sul mio e non va nemmeno li, in sostanza dal mio pc funziona e arrivo in ufficio pensando di aver risolto e dopo qualche tentativo riuscito poi non va piu. Accees diversi ?
In grassetto corsivo e sottolineato dove mi restituisce il debug, chiuso il debug si apre lo stesso la maschera.
Public Function AccessoPagina(pagename As String)
Dim Dat As Integer
Dim Ins As Integer
Dim Lav As Integer
Dim Laq As Integer
Dat = DLookup("Dati", "LivelloQ", "Username = '" & TempVars("Username") & "'")
Ins = DLookup("Inserimento_Dichiarazione", "LivelloQ", "Username = '" & TempVars("Username") & "'")
Lav = DLookup("Lavorazione", "LivelloQ", "Username = '" & TempVars("Username") & "'")
Laq = DLookup("LavorazioneQuadroPerm", "LivelloQ", "Username = '" & TempVars("Username") & "'")
Select Case pagename
Case "Dati"
If Dat = -1 Then
DoCmd.OpenForm "Dati"
Else
MsgBox "Accesso negato", vbOKOnly + vbCritical
DoCmd.Close acForm, "Dati"
DoCmd.OpenForm "Menù"
End If
Case "Inserimento_Dichiarazione"
If Ins = -1 Then
DoCmd.OpenForm "Inserimento_Dichiarazione"
Else
MsgBox "Accesso negato", vbOKOnly + vbCritical
DoCmd.Close acForm, "Inserimento_Dichiarazione"
End If
Case "Lavorazione"
If Lav = -1 Then
DoCmd.OpenForm "Lavorazione"
Else
MsgBox "Accesso negato", vbOKOnly + vbCritical
DoCmd.Close acForm, "Lavorazione"
End If
Case "LavorazioneQuadroPerm"
If Laq = -1 Then
DoCmd.OpenForm "LavorazioneQuadroPerm"
Else
MsgBox "Accesso negato", vbOKOnly + vbCritical
DoCmd.Close acForm, "LavorazioneQuadroPerm"
End If
End Select
End Function