probleme exe application

Version imprimable

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:

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

02/11/2011, 15h48
Aniki

Salut,

déjà :tagcode:.

Sinon, ton erreur arrive lors de la compilation de l'.exe ou lors de son exécution ?

Tu devrais mettre des On Error pour justement gérer les erreurs et comprendre ce qu'il se passe.
02/11/2011, 19h03
ThierryAIM

quelle ligne, l'erreur ?

C'est pourtant pas compliqué de le préciser, quand on poste un extrait de code !! En plus maintenant il y a les numéros de ligne !!!

et, en option, indenter le code peut rendre la lecture plus aisée ... mais là, c'est trop demander ...:roll:
02/11/2011, 23h30
amat-info

probleme exe application

bonsoir
merci pour la reponse
je suis un amateur , j'ai cree mon application sur le peut de mes connaissance et le gros de vos aides
je n'ai aucune idee sur le on error et je ne peut pas savoir quelle ligne est l'erreur
lorsque l'execution se fait du menu "execution" et sous menu "executer" tout marche bien mais en creant un exe a partir du menu creer exe cet executation me fait a apparaitre l'erreur
je pense que ce complement d'information vous permettra de m'aider
merci les amis (e)

Salut

Exemple de gestion d'erreur pour la partie de ton

Code:

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
34
35
36
37
38
39
40
41
42
43
Private Sub Command1_Click()
On Error GoTo GestErr
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.Text)
    sdecais![typeregl] = DBCombo1.Text
    sdecais![DATEJC] = Text2.Text
    sdecais![designregl] = DBCombo2.Text
    sdecais![periode] = Label6.Caption
    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.Caption
    brou.Update
    brou.Close
 
    Money.Close
    MsgBox "   DECAISSEMENT   VALIDER   ", vbInformation
End If
Command2.SetFocus
Exit Sub
 
GestErr:
MsgBox "Erreur N° " & Err.Number & vbCrLf _
       & "Description:" & vbCrLf & Err.Description
Err.Clear
End Sub

Pour que cela fonctionne, il faut dans l'éditeur VB6 régler les paramètres de gestion d'erreur.
Alt+o pour le menu Outils suivit de Alt+t pour ouvrir le sous menu Options.
Dans la fenêtre Options, choisir l'onglet Général, dans la partie Récupération d'erreur cocher Arrêt sur les erreurs non gérées.

04/11/2011, 20h32
amat-info

PROBLEME EXE APPLICATION

c'est toujours le meme probleme et j'ai suivi a la lettre votre demarche
merci
04/11/2011, 20h40
ProgElecT

Citation:

Envoyé par ThierryAIM

quelle ligne, l'erreur ?

C'est pourtant pas compliqué de le préciser, quand on poste un extrait de code !! En plus maintenant il y a les numéros de ligne !!!

et, en option, indenter le code peut rendre la lecture plus aisée ... mais là, c'est trop demander ...:roll:

Salut

Au moment du déclenchement de l'erreur, la compilation s'arrête sur quelle ligne ?

Code:

Set Money = OpenDatabase("C:\caisse\money")

Ne manque-t-il pas l'extension du nom de la base ?
04/11/2011, 20h53
amat-info

probleme exe application

je ne peut pas connaitre la ligne
parceque l'erreur s'affiche quand l'execution est faite sur l'exe de l'application que j'ai creer dans le menu fichier puis creer un exe
mais losque je l'execute dans le menu execution puis execution il marche
je ne sais pas si j'ai bien expliquer mon proble
merci
04/11/2011, 20h59
ProgElecT

Le problème survient au moment de créer l'exécutable dans l'éditeur VB6 ou bien lors de l'utilisation de l'exécutable?
04/11/2011, 21h04
amat-info

probleme exe application

c'est ça en utilisons l'executable
a noter que lors de la creation de l'executable aucune erreur n'est decelee
merci

Ok, merci de cette précision.
Je ne vois qu'une solution, insérer un MsgBox entre chaque ligne exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
On Error GoTo GestErr
Set Money = OpenDatabase("C:\caisse\money")
MsgBox "Set Money Ok", vbInformation '----------------------------
Set sdecais = Money.OpenRecordset("sdecais")
MsgBox "Set sdecais Ok", vbInformation '----------------------------
Set brou = Money.OpenRecordset("brou")
MsgBox "Set brou Ok", vbInformation '----------------------------
If Text1.Text = "" Then
    MsgBox "If Text1.Text Ok", vbInformation '----------------------------
    If MsgBox(" SAISIE NUMERO DU FLUX OBLIGATOIRE !", vbInformation, "Attention !") = vbOK Then
        MsgBox "If MsgBox(SAISIE ... Ok", vbInformation '----------------------------
        Text1.SetFocus
        MsgBox "Text1.SetFocus Ok", vbInformation '----------------------------
    End If
    Else
    Label6.Caption = Format(dtchoix, "MM/YYYY")
    MsgBox "Label6.Caption Ok", vbInformation '----------------------------
 
    sdecais.AddNew
    MsgBox "sdecais.AddNew Ok", vbInformation '----------------------------

je n'ai pas tout fait, à toi de continuer.
Au moment du clique sur le bouton Command1, il faudra repérer le dernier MsgBox jouer, cela voudra dire que la ligne suivante est celle qui pose problème.

04/11/2011, 21h57
amat-info

probleme exe application

ok j'ai essayer
le resultat est
un premier message " SET MONEY OK"
je tape ok
le second message c'est celui de mon probleme "erreur 5"
je tape ok
un troisieme message " SET SDCAIS OK"
je tape ok
et l'application se ferme
merci
04/11/2011, 22h49
ProgElecT

On avance ;)
la ligne déclenchant l'erreur est Set sdecais = Money.OpenRecordset("sdecais")apparemment, mais avant, je te conseil de mettre l'extension dans
le OpenDatabaseSet Money = OpenDatabase("C:\caisse\money.mdb") et de refaire l'essai.
Si Money et vide (Nothing) son utilisation dans OpenRecordset peu provoquer l'erreur sur cette ligne.
Pour autant, je ne comprend pas 8O que l'erreur ne survienne pas au cours de l'exécution dans l'éditeur VB.
13/11/2011, 13h53
amat-info

probleme exe application

bonjour les amis(e)
j'ai trouve la solution a mon probleme et je fais profiter tout le monde
voila dans la command 1 j'ai un dbcombo en false c'est pour valider la saisie
et lorsque je click sur command 2 (autre saisie) j'ai oublier de remettre dbcombo en true
merci a vous tous