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

cs_Nana35 Messages postés 18 Date d'inscription mercredi 8 octobre 2008 Statut Membre Dernière intervention 2 février 2009 - 30 janv. 2009 à 08:55
cs_Nana35 Messages postés 18 Date d'inscription mercredi 8 octobre 2008 Statut Membre Dernière intervention 2 février 2009 - 2 févr. 2009 à 10:02
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?

1 réponse

cs_Nana35 Messages postés 18 Date d'inscription mercredi 8 octobre 2008 Statut Membre Dernière intervention 2 février 2009
2 févr. 2009 à 10:02
Bonjour,
J'avais en fait une dll manquante.
Tout va bine maintenant.
0