Discussion :

[FewRa]

Voila j'ai un problème avec Access, il me met quelque fois "utilisation incorrecte de null" alors que tous les champs étaient remplie.
Et j'ai trouvé d'où cela venait, c'est "MONTANTP" qui donne une valeur nul alors qu'il ne devrait pas.

J'ai fait ce code si dessous pour éviter le message d'erreur et le problème vient lorsque la date est inférieur au 13 du mois si je mets le 13/11/2012 ca marche et ça marche plus si je mets 12/11/2012
je suppose que c'est du au date au format anglophone. Comment fait-on pour mettre en date jj/mm/aaaa

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Current()
Dim DATEPMA As Date
Dim MONTANTP As String
 
 
DATEPMA = DMax("DATE_PAIE", "PAIEMENTS", "ID_CONTRAT=" & Me![ID_CONTRAT])
MONTANTP = Nz(DMax("MONTANT", "PAIEMENTS", "DATE_PAIE=#" & DATEPMA & "# And ID_CONTRAT=" & Me![ID_CONTRAT]), "Erreur")
 
Me.D = DATEPMA
Me.V = MONTANTP
End Sub

Merci d'avance pour votre aide

[ClaudeLELOUP]

Bonjour,

Jette un coup d'œil sur le chapitre iV de ce tutoriel, il y a un peu d'explication sur le traitement des dates.

[FewRa]

Merci pour le tuto

donc le code qui marche est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Current()
 
Dim DATEPMA As String
Dim MONTANTP As String
 
 
DATEPMA = DMax("DATE_PAIE", "PAIEMENTS", "ID_CONTRAT=" & Me![ID_CONTRAT])
DATEPMA = Format(DATEPMA, "dd/mm/yyyy")
 
MONTANTP = Nz(DMax("MONTANT", "PAIEMENTS", "DATE_PAIE=#" & DATEPMA & "# And ID_CONTRAT=" & Me![ID_CONTRAT]), "Erreur")
 
Me.D = DATEPMA
Me.V = MONTANTP
End Sub

Merci encore