Bonjour,
J'ai terminé mon application métier sur access 2000 installée sur un serveur.
J'ai installé la base sur divers postes sur les disques locaux au format mde.
J'ai également attribué des autorisations d'accès avec un groupe de travail (mdw).
Ca fonctionne normalement sauf pour une requête qui me permet de créer un numéro personalisé lors de l'enregistrement d'un nouveau relevé terrain.
J'ai un message d'erreur: "l"expression sur clic entrée comm paramètre de la propriété de type évenement est à l'origine d'une erreur. Fonction non dispo dans les expressions dans l'expression 'Max(Right([id],2)'...
Voici la requête: SELECT Max(Right([RELid],3)) AS NumeroReleveMax FROM RELEVE;
Voici mon programme:
Private Sub CMD_Valider_Click()
Dim strSql As String
Dim NumeroReleve As String
Dim NumMax As Integer
Dim f As Form
Set f = Forms!F_SAISIE_RELEVE
'La numérotation du RELEVE est construite en 2 parties:
'1) Abréviation de Relevé. REL
'2) trois chiffres correspondant à un n° séquentiel incrémenté automatiquement et commençant à 001.
NumMax = DLookup("NumeroReleveMax", "R_ExtractionMaxReleve")
If IsNull(NumMax) Then
NumeroReleve = "REL" & "-001"
Else
If (NumMax) < 10 Then
NumeroReleve = "REL" & "-00" & (NumMax + 1)
Else
If NumMax < 100 Then
NumeroReleve = "REL" & "-0" & (NumMax + 1)
Else
NumeroReleve = "REL" & "-" & (NumMax + 1)
End If
End If
End If
TXT_ID_RELEVE = NumeroReleve
'Insérer les données saisies dans la table Relevé
strSql = "INSERT INTO RELEVE (RELid, RELobs, RELper, RELpre, RELdate )"
strSql = strSql & "VALUES ('" & f!TXT_ID_RELEVE & "', """ & f!TXT_Observation & """, '" & f!LST_PERIMETRE & "', '" _
& f!LST_PRESCRIPTION & "', '" & f!TXT_Date_RELEVE & "')"
...
End Sub
J'ai appliqué les solutions proposées par l'aide mais rien ça ne fonctionne pas notamment pour la déclaration en public plutôt qu'en Private.
Avez-vous une explication à me donner?