Erreur 424
Mila23
-
platypus69 Messages postés 122 Statut Membre -
platypus69 Messages postés 122 Statut Membre -
Bonjour,
J'ai une erreur d'exécution 424 quand je lance mon programme auriez vous des idées ? Merci d'avance.
J'ai une erreur d'exécution 424 quand je lance mon programme auriez vous des idées ? Merci d'avance.
Dim db As Database
Dim Dossier As String
Dim NomPatient As String
Dim PrenomPatient As String
Dim Jma As Date
Dim FichierBrut As String
Dim q As QueryDef, d As Recordset
Dim Resultat As String
Dim Autres As String
Dim i As Integer
Dim j As Integer
Dim TestComp As Integer
rrr = MsgBox("Début", vbOKOnly)
Set db = CurrentDb()
Set q = db.QueryDefs("FB_Index Requête")
Set d = q.OpenRecordset()
d.MoveFirst
i = 0
Do Until i = 10
If (Mid$(d![FichierBrut], 3, 1) = "2") Then
Resultat = (d![NomPatient] & " " & d![PrenomPatient])
i = i + 1
Else
Autres = (d![NomPatient] & " " & d![PrenomPatient])
TestComp = StrComp(Resultat, Autres, CompareMethod.Text)
If (TestComp = 0) Then
Else
End If
End If
d.MoveNext
Loop
End Function
A voir également:
- Erreur 424
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
7 réponses
bonjour,
cette variable n'est pas défini dans le début de ton code, cela peut venir de la.
rrr = MsgBox("Début", vbOKOnly)
cette variable n'est pas défini dans le début de ton code, cela peut venir de la.
Bonjour,
rrr = MsgBox("Début", vbOKOnly) / cette variable n'est pas défini dans le début de ton code, cela peut venir de la.
Etant un autodidacte complet, je ne déclare JAMAIS mes variables, parce que je n'ai pas appris et que je n'y pense pas et que ça m'enm...., et mes plantages ne viennent quasiment jamais d'une déclaration de variable.
Mieux vaut faire un pas à pas et voir quelle ligne accroche, ou plus simplement demander à ouvrir le VBA quand le code s'arrête, la ligne est mise en surbrillance jaune.
Bonne suite
rrr = MsgBox("Début", vbOKOnly) / cette variable n'est pas défini dans le début de ton code, cela peut venir de la.
Etant un autodidacte complet, je ne déclare JAMAIS mes variables, parce que je n'ai pas appris et que je n'y pense pas et que ça m'enm...., et mes plantages ne viennent quasiment jamais d'une déclaration de variable.
Mieux vaut faire un pas à pas et voir quelle ligne accroche, ou plus simplement demander à ouvrir le VBA quand le code s'arrête, la ligne est mise en surbrillance jaune.
Bonne suite
Salut,
quelle ligne est signalée ?
Ce ne serait pas des fois un recordset qui aurait été oublié dans la bibliothèque DAO ?
quelle ligne est signalée ?
Ce ne serait pas des fois un recordset qui aurait été oublié dans la bibliothèque DAO ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ReB_
Je crois avoir trouver un os.
Tu écris:
Càd que si la condition If... est fausse, il saute à la ligne Else mais alors l'index ne s'incrémente pas et malgré tout tu lui demande de continuer la boucle Do until sans lui donner aucune voie de sortie au cas où l'index n'aurait pas atteint la valeur 10.
A approfondir. j'spère avoir été clair
Bonne suite
Je crois avoir trouver un os.
Tu écris:
i = 0
Do Until i = 10
If ... Then
Resultat = ...
i = i + 1
Else
Autres =...
End If
d.MoveNext
Loop
Càd que si la condition If... est fausse, il saute à la ligne Else mais alors l'index ne s'incrémente pas et malgré tout tu lui demande de continuer la boucle Do until sans lui donner aucune voie de sortie au cas où l'index n'aurait pas atteint la valeur 10.
A approfondir. j'spère avoir été clair
Bonne suite
Bonjour Blux,
Tu as peut-être raison. De toutes façons , j'avais dit "A approfondir"
Maintenant, c'est un peu stupide (à commencer par moi) de chercher dans cette direction, mieux vaut aller dans le sens indiquer par Monday, erreur 424 est une erreur de bibliothèque DAO, mais c'est hors de mes connaissances ou bien en étant guider pas à pas par un spécialiste.
Après qu'il y ait une erreur de code, peut-être oui, peut être non.
Tu as peut-être raison. De toutes façons , j'avais dit "A approfondir"
Maintenant, c'est un peu stupide (à commencer par moi) de chercher dans cette direction, mieux vaut aller dans le sens indiquer par Monday, erreur 424 est une erreur de bibliothèque DAO, mais c'est hors de mes connaissances ou bien en étant guider pas à pas par un spécialiste.
Après qu'il y ait une erreur de code, peut-être oui, peut être non.
