per ho un database che dovranno usare diverse persone. ho percio diviso il database per mettere in comune le tabelle e poi ho creato un file accde da distribuire a chi usera il database. il problema però è che alcune function che avevo creato si sono disabilitate mentre altre non vengono trovate.
ad esempio:
questo codice non viene eseguito al clic del pulsante
- Codice: Seleziona tutto
Private Sub Comando16_Click()
Dim Password As String
'Richiesta codice
Richiesta:
Password = InputBox("Insert the Password", "PassWord")
If Password = "XXXX" Then
DoCmd.Close
DoCmd.OpenForm "Home_Da_Ordinare", acNormal, "", "", , acNormal
ElseIf Password = "" Or IsNull(Password) = True Then
Exit Sub
ElseIf MsgBox("Password not valid" & Chr(13) & Chr(10) & "Try again", vbCritical + vbYesNo, "Errore") = vbYes Then
GoTo Richiesta
Else
Exit Sub
End If
End Sub
mentre per queste altre mi dice funzione non trovata:
- Codice: Seleziona tutto
Function Stop_warning_message()
DoCmd.SetWarnings False
End Function
Function Start_warning_message()
DoCmd.SetWarnings True
End Function
sapete dirmi perchè e come risolvere l'inconveniente?
ciao e grazie in anticipo