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:
Voici mon programme:
Code SQL : Sélectionner tout - Visualiser dans une fenêtre à part SELECT Max(Right([RELid],3)) AS NumeroReleveMax FROM RELEVE;
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.
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
Partager