Format Mde pb requête extraction Max(Right([id],3))

Question

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?

cs_Nana35 · Answer

Bonjour,
J'avais en fait une dll manquante.
Tout va bine maintenant.

Format Mde pb requête extraction Max(Right([id],3))

1 réponse

Votre réponse

Discussions similaires