Discussion :

[vartaxe]

Bonjour,

je narrive pas a faire fonctioner ceci correctement

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Numéro_du_projet_Click()
If Len(Me.Numéro_du_projet & "") < 1 Then
ElseIf Me.Localité.Column(2) = "" Or Me.Type.Column(2) = "" Then
MsgBox "Veuillez renseigner la localité et le type de projet."
Else
tSeq = Nz(DMax("Séquence", "Projets", "Localité=" & Me.Localité & " and " & "Type=" & Me.Type))
hiCount = Nz(DLookup("Compteur", "Projets", "Séquence=" & tSeq), 0) + 1
Me.Numéro_du_projet = Me.Localité.Column(2) & "-" & Me.Type.Column(2) & "-" & Format(Compteur, "000")
End If
End Sub

Projets.zip

[madefemere]

Bonjour,

Il faudrait indiquer où est l'erreur sur les 8 lignes de code parce qu'on ne peut deviner. Et quel est le message ? Et qu'est-ce qu'on veut faire?
Ceci dit, j'imagine que Localité et Type sont des textes. Donc quand on les utilise en tant que variable, il faut les mettre "" ou ' :

Code :

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

tSeq = Nz(DMax("Séquence", "Projets", "Localité=""" & Me.Localité & """ and """ & "Type=""" & Me.Type & """"))

Cordialement,

[vartaxe]

je nai pas de retour derreur mais simplement il ne se passe rien...

le code devrai generer un numero de projet unique en tenon compte de la localité et le type de projet.

example pour le premier projet a paris du type construction PA-CO-001

localité=Paris=PA
type=Construction=CO

la fonction Len devrai juste verifier si le projet a deja un numero de projet ou pas pour ne pas ecraser ou modificier le numero.

If Len(Me.Numéro_du_projet & "") < 1 Then

[madefemere]

Essayons de commenter ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Numéro_du_projet_Click()
If Len(Me.Numéro_du_projet & "") < 1 Then                                               'Si la longueur du numéro de projet est inférieure à 1 (donc c'est vide) donc c'est dans cette partie qu'on devrait avoir l'ajout du nouveau numéro de projet ? NON ?!?
     ElseIf Me.Localité.Column(2) = "" Or Me.Type.Column(2) = "" Then            'J'ai pas compris l'objet du test ici ??
         MsgBox "Veuillez renseigner la localité et le type de projet."
Else                                                                                                    'Là il y a un numéro de projet ? Tu veux le changer ?
     tSeq = Nz(DMax("Séquence", "Projets", "Localité=" & Me.Localité & " and " & "Type=" & Me.Type))
     hiCount = Nz(DLookup("Compteur", "Projets", "Séquence=" & tSeq), 0) + 1
     Me.Numéro_du_projet = Me.Localité.Column(2) & "-" & Me.Type.Column(2) & "-" & Format(Compteur, "000")
End If
End Sub

A mon avis, simplement ça devrait être :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Numéro_du_projet_Click()
If Len(Me.Numéro_du_projet & "") < 1 Then                                               'Si la longueur du numéro de projet est inférieure à 1
     If Me.Localité.Column(2) = "" Or Me.Type.Column(2) = "" Then            'J'ai pas compris l'objet du test ici ??
          MsgBox "Veuillez renseigner la localité et le type de projet."
          Exit Sub
     End If
     tSeq = Nz(DMax("Séquence", "Projets", "Localité=""" & Me.Localité & """ and " & "Type=""" & Me.Type & """"))
     hiCount = Nz(DLookup("Compteur", "Projets", "Séquence=" & tSeq), 0) + 1
     Me.Numéro_du_projet = Me.Localité.Column(2) & "-" & Me.Type.Column(2) & "-" & Format(Compteur, "000")
End If
End Sub

Cordialement,

[vartaxe]

merci pour ton aide

voici un lien ver la db si ca peut aider

https://www.dropbox.com/s/yjatdlq9wv...ets.accdb?dl=0

[madefemere]

Bonjour,

Et comme ça ? :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Numéro_du_projet_Click()
If Len(Me.Numéro_du_projet & "") < 1 Then                                               'Si la longueur du numéro de projet est inférieure à 1
     If Me.Localité.Column(2) = "" Or Me.Type.Column(2) = "" Then            'J'ai pas compris l'objet du test ici ??
          MsgBox "Veuillez renseigner la localité et le type de projet."
          Exit Sub
     End If
     tSeq = Nz(DMax("Séquence", "Projets", "Localité=" & Me.Localité & " and " & "Type=" & Me.Type), 0)
     hiCount = Nz(DLookup("Compteur", "Projets", "Séquence=" & tSeq), 0) + 1
     Me.Numéro_du_projet = Me.Localité.Column(2) & "-" & Me.Type.Column(2) & "-" & Format(hiCount, "000")
End If
End Sub

Cordialement,