Erreur d'executionRésolu

Question

Bonjour j'ai un bogue sur la ligne souligné, le message d'erreur : erreur d'execution 13
Quand il y'a 3 caracteres sur un champs ça passe à partir de 4 caractères ça ne passe plus alors que j'ai modifié sur la table mysql et sur le nombres de caracteres (5)

Function CréneauxQuaiLibre(strquai As String, ByVal strLeJour As String,
Optional ByVal boolProvisoire As Integer = 0)
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL, strBatChoisi, strSecChoisi, strQuaiChoisi, strNom, dFin, dDebut
As String
Dim dDateDeb, dDateFin, dDebCren, dFinCren, dHeure As Date
Dim I, X, Y, intTempDech As Integer
Set cnx = New ADODB.Connection
cnx.Open ChargeDSN(App.Path & "\creneaux.dsn")
Set rst = New ADODB.Recordset
'On récupère la plage d'ouverture du quai
strBatChoisi = Mid(strquai, 1, 3)
strSecChoisi = Mid(strquai, 5, 3)
strQuaiChoisi = Mid(strquai, 9, 3)
'On récupère la plage d'ouverture
strSQL = "SELECT DebValid, FinValid, NOM_MODULE From quaidech "strSQL strSQL + "WHERE (quaidech.batiment '" & strBatChoisi & "') "strSQL strSQL + "AND (quaidech.Secteur '" & strSecChoisi & "') AND "strSQL strSQL + "(quaidech.Quai '" & strQuaiChoisi & "')"
'dDebut = rst![DebValid]
'dFin = rst![finValid]
rst.Open strSQL, cnx ', adOpenKeyset, adLockOptimistic
dDebut = Format(rst![DebValid], "hh:mm")
dFin = Format(rst![finValid], "hh:mm")
strNom = rst![NOM_MODULE]
rst.Close

cs_Jack · Accepted Answer

As-tu lu ma réponse ?
Si ton champ est Null (déifférent de vide), à toi de voir si c'est normal. Peut être un problème dans l'alimentation des données.
Comme je te le disais, utilise IsNull pour filtrer


   If Not IsNull(monChamp) Then

PCPT · Answer

salut,

+ à remplacer par &
tout à typer :
en VB6 on ne peut pas typer "par ligne"
ce qui n'est pas explicitement typé est un VARIANT

et l'erreur 13 étant un problème de type, on y verra déjà plus clair une fois tout çà corrigé

NB: format et mid renvoient aussi un variant. pour un type string il faut utiliser format$ et mid$

++

<hr size="2" width="100%" />

cs_scm · Answer

Salut
Merci pour ta réponse rapide, donc je dois mettre format$ et mind $ ?
Pas une autre solution ? et si ça ne marchait pas ? car je dois le tester que demain à mon boulot.
Merci encore

PCPT · Answer

si, tu dois typer CHACUNE de tes variables

Dim I, X, Y, intTempDech As Integer


devient

Dim I As Integer, X As Integer, Y As Integer, intTempDech As Integer


etc...

cs_Jack · Answer

Salut
Pour que la commande en rouge merdouille, c'est qu'elle ne doit pas avoir les bonnes données pour travailler.
Que valent rst![DebValid] et l'autre ?
Ne serait-il pas Null par hasard ?
Voir commande IsNull

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_scm · Answer

Bonjour
Merci de m'avoir repondu, DebValid prend une date comme valeur et quand j'approche le curseur pour deboguer il me dit qu'il est null, il y'a t-il un pb par là ? si oui comme dois-je faire ?
Merci pour votre aide

Erreur d'execution

6 réponses

Votre réponse

Discussions similaires