[VB]Erreur d'éxécution 80040e10

**Methodmay31** · 13/03/2006, 14h50

Bonjour a tous !!!

Je suis tout nouveau sur le sie site et g besoin d'aide de developpeur plus expérimenté . Je fais une application sous VB dans le cadre d'un stage en entreprise qd j'execute mon programme l'erreur suivante apparait [erreur d'execution '2147217904 (80040e10)' ] j'aimerai comprendre d'ou vient cet erreur ??

En vous remerciant d'avance .[/b]

**jmfmarques** · 13/03/2006, 14h59

paramètres obligatoires absents
ou champs indûment vides dans base de données appelée

**Methodmay31** · 13/03/2006, 16h11

C le commentaire que me fait mon application "Aucune valeur donnée pour un ou plusieurs des parametres requis " avec l'erreur précédente mais tous les champs nécessaires sont remplis le problème vient de données chiffrées me semble t'il. Mon application gere les CV pour une entreprise et ce sont dans les champs [Salaire Demandé et DateDébutCarriere de type string tous les 2] car quand je ne rentre que ces deux champs remplis la meme erreur apparait .D'ou pourrait venir ce probleme ? Du code ? de ma requete d'insertion dans la BDD ??

Merci

**jmfmarques** · 13/03/2006, 17h24

Ta requête, plus probablement... (Mais ce n'est pas certain)

**Methodmay31** · 13/03/2006, 17h27

actuellement g un souci sur VB je le reinstalle et je fais mon checking et je te tiens au courant en tout cas merci de l'attention que tu porte a mon sujet !! j'espere qu'avec ton aide j'arriverai a résoudre ce petit probleme car je suis suivi de prés et cette erreur ne m'arrange guere pour la présentation de mon projet a ma tutrice .

Merci

**Methodmay31** · 13/03/2006, 17h37

je ne savais pas qu'il fallé pas posé deux fois la meme question je pensé que la posté sur deux forums différents (VB et SQL ) pourrait résoudre plus vite mon problème ... Sinon mon application doit gérer les cv recus par l'entreprise je posterait tout le code demain pour que le sujet soit plus explicite pour la totalité des membres.

**ouskel'n'or** · 13/03/2006, 17h47

Hello,
Si ta question porte sur VB utilisant le SQL, ce qui est ton cas, taquestion doit être posée sur le forum VB. Si ton autre message a été posté sur le forum SQL, je pense qu'un modérateur a déplacé ton sujet.
Tu as toute l'explication

A+

**jmfmarques** · 13/03/2006, 18h00

A Methodmay31 :

Si tu veux être précis, ne te contentes pas de "poster" ton code.
En te lisant, je comprends que le problème se pose lors de l'insertion.
Or, si tu tentes de créer un article avec 2 champs seulement alors que la table en prévoit d'autres, parmi lesquels de possibles champs obligatoires, tu auras la même erreur.
Il est donc nécessaire que tu nous décrives succinctement la structure de la table, aussi.

**Methodmay31** · 14/03/2006, 10h19

L'insertion se fait dans deux tables une Table ETAT_Civil avec plusieurs champs (Nom,Prénom, DateNaiss, Lieunnaiss, ....) et une autre table Candidat ( DateCréation,SalaireDemandé(entier),DateEntréViePro(entier) ces deux tables st reliés par une relation 1-N avec le n du coté d'EtatCivil ces deux champs sont en entier sous access et en string sous VB est ce ke l'erreur vien de là ?

Comme j'ai repris cette aplication je part donc d'un existant étant un peu Just au niveau du code et du VB ( je commence a peine ) je ne comprend pas tro le fonctionnement de tout ca...

Voila le code de saisis sous VB pour la saisie d'un profil dans mon application Gestion de CV :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub BtnSuivant_Click()
Dim DateJour As String
Dim importance As String
Dim source As String
Dim metier As String
Dim salairedem As String
Dim dispo As String
Dim debutcarriere As String
Dim mobilite As String
Dim NumCandidat As Integer
Dim LienCV As String
Dim notes As String
Dim Langues As String
 
 
 
 
NumCandidat = CInt(LblCandidat.Caption)
Candidat = CInt(LblCandidat.Caption)
DateJour = TxtDateJour.Text
importance = CmbImportance.Text
source = TxtSource.Text
metier = TxtMetier.Text
salairedem = TxtSalaireDemande.Text
dispo = TxtDispo.Text
debutcarriere = TxtDebutCarriere.Text
mobilite = TxtMobilite.Text
LienCV = LblCV.Caption
notes = "Aucune note"
 
 
Langues = ""
I = 0
Do While I < LstLangues.ListCount
If LstLangues.Selected(I) = True Then
Langues = LstLangues.List(I) & ", " & Langues
End If
I = I + 1
Loop
If Langues = "" Then
Langues = "Aucune"
End If
 
 
 
 
 
 
If IsNumeric(debutcarriere) = True And IsNumeric(salairedem) = True Then
 
 
 
Call inscription_candidat(Candidat, DateJour, importance, source, metier, salairedem, dispo, debutcarriere, mobilite, LienCV, notes)
Call inscription_etatcivil(TxtNom.Text, TxtPrenom.Text, TxtNaissance.Text, TxtLieuNaissance.Text, TxtNationalite.Text, TxtAdresse.Text, TxtVille.Text, TxtCP.Text, CmbRegion.Text, TxtPays.Text, TxtFixe.Text, TxtPortable.Text, TxtFax.Text, TxtMail.Text, TxtPermis.Text, CmbNivo.Text, Langues)
Form4.Hide
Form5.Show
Else
Msg = "Vérifiez que les champs [Salaire Demandé] et [Début Carrière] sont bien des données chiffrées." & Chr(13) & " Ensuite essayez de nouveau."
        Title = "Erreur de saisie"
        Style = vbOKOnly + vbExclamation
        reponse = MsgBox(Msg, Style, Title)
End If
 
End Sub

[Balises de code rajoutées par ThierryAIM, Merci d'y penser la prochaine fois]

**jmfmarques** · 14/03/2006, 11h16

1) les syntaxes qui intéressent ( celles de inscription_candidat(...) et de inscription_etatcivil(...) ne sont pas là !
2) liste des champs obligatoires ? (il faut ensuite s'assurer, en effet, que l'inscrption ne tente pas d'insérer une donnée vide dans un champ obligatoire)

**Methodmay31** · 14/03/2006, 11h23

Les syntaxes pour inscription candidat et etat civil ne sont elle pas faite sur le clik du btn Suivant dans ce code notamment avec l'apel des

Call inscription_candidat(...
Call inscription_etatcivil ( ...

?

**jmfmarques** · 14/03/2006, 11h26

ce qui intéresse n'est pas de savoir comment elles sont lancées, mais les instructions qui y sont écrites.
Et la liste des champs obligatoires ?

**Methodmay31** · 14/03/2006, 11h32

Comment sont il spécifiés dans le code les champs obligatoires je ne sais guere ou lé trouvés ? Je me lance a peine dans le VB....

**jmfmarques** · 14/03/2006, 11h34

cette partie là n'a rien avoir avec vb mais avec l'examen de ta/tes table(s) dans la base de données en cause !

**Methodmay31** · 14/03/2006, 15h44

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Btn_ValidEmp_Click()
    CheminBase = nomdefichier
    Selection_BDD.Hide
    ACCUEIL.Show
    If CheminBase = "" Then
        CheminBase = "f:\Gestion de CV\baseCV.mdb"
    End If
    MsgBox ("Base selectionnée : " & CheminBase)
 
End Sub

J'ai un petit souci avec ce code Au lieu de m'inscrire un chemin de base présélectionné avec un explorateur il m'affiche le chemin f:\cheminbase...... qui devrait normalemen s'afficher si aucun chemin n'est entré

Savez vous pourquoi ??

Edit
Essaie de penser aux balise Code et /code
Ajoutées par ouskel'n'or

**jmfmarques** · 14/03/2006, 15h51

If CheminBase = ""

et si pas = "" ? (c'est peut-être la cas !)
une bonne clause Else ferait l'affaire , ou encore un msgbox "oui" tout de suite après If CheminBase = "" (pour voir si tu es dans un tel cas!)

A propos de msgbox : supprimes la mise entre parenthèses.[/quote]

[VB]Erreur d'éxécution 80040e10

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager