[A-00] Format mde pb requête extraction n° personnalisé

**Nana35** · 30/01/2009, 09h53

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:

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT Max(Right([RELid],3)) AS NumeroReleveMax FROM RELEVE;

Voici mon programme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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.