bonjour
mon probleme est le suivant
j'ai creer une petite application qui s'execute tres bien en vb (c'est a dire en phase de conception) mais lorsque je cree l'executable il m'affiche le message suivant
ERREUR D'EXECUTION '5':
ARGUMENT OU APPEL DE PROCEDURE INORRECT
voici mon code lorsque je valide la saisie

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
32
33
Private Sub Command1_Click()
Set Money = OpenDatabase("C:\caisse\money")
Set sdecais = Money.OpenRecordset("sdecais")
Set brou = Money.OpenRecordset("brou")
If Text1.Text = "" Then
If MsgBox(" SAISIE NUMERO DU FLUX OBLIGATOIRE !", vbInformation, "Attention !") = vbOK Then
Text1.SetFocus
End If
Else
Label6.Caption = Format(dtchoix, "MM/YYYY")
sdecais.AddNew
sdecais![numregl] = Text1.Text
sdecais![montregl] = Val(Text3)
sdecais![typeregl] = DBCombo1.Text
sdecais![DATEJC] = Text2.Text
sdecais![designregl] = DBCombo2.Text
sdecais![periode] = Label6
sdecais.Update
sdecais.Close
brou.AddNew
brou![numregl] = Text1.Text
brou![montregl] = Val(Text3)
brou![typeregl] = DBCombo1.Text
brou![DATEJC] = Text2.Text
brou![designregl] = DBCombo2.Text
brou![periode] = Label6
brou.Update
MsgBox "   DECAISSEMENT   VALIDER   ", vbInformation
brou.Close
Money.Close
End If
Command2.SetFocus
End Sub

merci d'avance de votre aide qui ma toujours aider encore merci