Discussion :

[castours]

Bonjour,
Dans ma mon formulaire
J'ai un N°auto N°Fact ,date facture que j'ai mis dans format mois année
Je voudrai avec une clé primaire N°Facture automatisé du 15-2014-1 puis 15-2014-2
J'ai fait cette procedure qui ne fonctionne pas sous access 2003
Private Sub N°Facture_Enter()
Dim N°Fact, RacDate As String
Dim RangFact As String
RangeFact = Left([RacDate], 8) & Right([N°Fact], 4)
Me![RangFact] = N°Facture
End Sub
Pouvez vous me dire la raison et m'aider a solutionner mon probleme.
Je vous remercie

[paidge]

Bonjour,
ça manque de précisions....et de balises pour le code...

J'ai un N°auto N°Fact ,date facture que j'ai mis dans format mois année

Tu veux dire que ton formulaire est basé sur une table avec les champs [N°Auto], [N°Fact] et [date facture] ? Et que le champs [date facture] est au format mois année (MM/AAAA) ?

Code :

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

1
2
3
4
5
6
Private Sub N°Facture_Enter()
    Dim N°Fact, RacDate As String
    Dim RangFact As String
    RangeFact = Left([RacDate], 8) & Right([N°Fact], 4)
    Me![RangFact] = N°Facture
End Sub

Ton code est en effet incompréhensible. J'ai l'impression que tu mélanges les variables et les champs de formulaire...

- D'abord, pour la ligne RangeFact = Left([RacDate], 8) & Right([N°Fact], 4) :
RacDate c'est une variable ou un champ du formulaire ?? Parce que si c'est une variable, tu ne l'as pas initialisée. Si c'est un champ du formulaire, il ne faut pas le déclarer en tant que variable et la syntaxe est : Me.RacDate ou Me![RacDate]
Même remarque pour N°Fact

- Ensuite pour la ligne Me![RangFact] = N°Facture :
Que veux-tu faire ? Si on s'en tient à ce que tu as écrit, tu veux mettre dans le champs de formulaire nommé RangFact la valeur de la variable N°Facture (qui est ni déclarée ni initialisée...)