Discussion :

[Invit-é]

Bonjour,

Travaillant une base Access avec une interface VB6, je remplis des textbox et autres combobox avec les résultats des requêtes. Cependant, je coince quand la requête me renvoie un champ vide. Comment faire pour qu'il contourne le champ vide ou qu'il en prenne compte et ne plante pas ?

Merci.
Bonne journée !

[OhMonBato]

Pourquoi ça plante ? Tu ne fais pas de test ?
Si ça plante, montre nous du code et dis nous à quelle ligne ça arrive.

[Invit-é]

Code :

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

1
2
3
4
5
6
7
8
9
10
    ' Infos du Contact
    rs.Close
    reqinfocontact = "SELECT DISTINCT contact.titrecontact, contact.prenomcontact, contact.postecontact, contact.telcontact, contact.faxcontact FROM contact INNER JOIN (branche INNER JOIN representer_par ON branche.numbranche = representer_par.numbranche) ON contact.numcontact = representer_par.numcontact WHERE (branche.nombranche = " & Chr(34) & dcentreprise.CmbModifEntNomBranche.Text & Chr(34) & ") AND (" & Chr(34) & dcentreprise.CmbModifEntNomContact.Text & Chr(34) & ")"
    Set rs = New ADODB.Recordset
    rs.Open reqinfocontact, cn, adOpenKeyset, adLockOptimistic, -1
    dcentreprise.TxtModifEntTitreContact.Text = rs.Fields(0).Value
    dcentreprise.TxtModifEntPrenomContact.Text = rs.Fields(1).Value
    dcentreprise.TxtModifEntPosteContact.Text = rs.Fields(2).Value
    dcentreprise.TxtModifEntTel.Text = rs.Fields(3).Value
    dcentreprise.TxtModifEntFax.Text = rs.Fields(4).Value

Voilà le morceau de code et ça plante sur les deux dernières lignes (je n'ai pas le numéro de tél et de fax du contact).

[La Praline]

Bonjour,

Un petit:

Code :

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

If xxxxx.text = NOT "" Then

ne suffirait-il pas ???

Cordialement

[Delbeke]

Essayes ceci

Code :

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

1
2
3
4
5
If isnull(rs.Fields(0).Value) then
  dcentreprise.TxtModifEntTitreContact.Text = ""
else
  dcentreprise.TxtModifEntTitreContact.Text = rs.Fields(0).Value
end if

[Invit-é]

Non ça ne marche pas, c'est maintenant au niveau du SI que ça plante.

[La Praline]

Non ça ne marche pas, c'est maintenant au niveau du SI que ça plante.

Du SI ?! Oo


... Sinon essai le bout de code de Delbeke, en général il mise sur le bon cheval

huhuHuhUhuhuHuhUhu

[Invit-é]

Merci Delbeke ! Ca marche.

[La Praline]

Je le savais ^^

Delbeke, petite question pour toi...

Code :

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

1
2
3
If isnull(rs.Fields(0).Value) then
  dcentreprise.TxtModifEntTitreContact.Text = ""
else

Ca veut donc dire qu'il y a une différence en une TextBox vide => "" et un champ NULL ???

... j'aurais pas cru...

[Invit-é]

Re,

Je me permets de retirer un instant le 'Résolu' afin d'éviter la création d'un nouveau topic inutile.

Je travaille toujours sur ce même code mais j'ai quelque peu modifier la requête et maintenant, cela plante au niveau de la ligne "rs.Open ...". Il me dit 'type de données incompatible', ai-je oublié de vérifie quelque chose ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    ' Infos du Contact
    rs.Close
    reqinfocontact = "SELECT DISTINCT contact.titrecontact, contact.nomcontact, contact.prenomcontact, contact.postecontact, contact.telcontact, contact.faxcontact FROM branche INNER JOIN (contact INNER JOIN representer_par ON contact.numcontact = representer_par.numcontact) ON branche.numbranche = representer_par.numbranche WHERE (((branche.nombranche) = " & Chr(34) & dcentreprise.CmbModifEntNomBranche.Text & Chr(34) & ") AND ((contact.numcontact) = " & Chr(34) & dcentreprise.CmbModifEntNumContact.Text & Chr(34) & "))"
    Set rs = New ADODB.Recordset
    rs.Open reqinfocontact, cn, adOpenKeyset, adLockOptimistic, -1
 
    If IsNull(rs.Fields(0).Value) Then
        TxtModifEntTitreContact.Text = ""
    Else
        TxtModifEntTitreContact.Text = rs.Fields(0).Value
    End If
    ...

Merci.

[La Praline]

Bonjour,

Ca c'est de la requête à rallonge ^^
Justement ne te serais-tu pas un peu emmelé dans les ', les ", les char(34), etc...

Si j'étais toi, peu ête l'as-tu déjà fait, je mettrais un espion sur ma requête, ou encore un point d'arrêt à la ligne du dessous pour voir ce que me retourne cette lonnnnngue ligne...


Cordialement

[Invit-é]

En fait, comme d'habitube, c'est les guillemets autour des nombres qui font tout planter...

Merci pour votre aide

[La Praline]

Oui c'est toujours un vrai casse tête dès que la requête dépasse les deux paramètres ^^

Bonne continuation...

[Invit-é]

Merci

[Delbeke]

Je le savais ^^

Delbeke, petite question pour toi...

Code :

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

1
2
3
If isnull(rs.Fields(0).Value) then
  dcentreprise.TxtModifEntTitreContact.Text = ""
else

Ca veut donc dire qu'il y a une différence en une TextBox vide => "" et un champ NULL ???

... j'aurais pas cru...

He bien oui, dans les fields d'une base Access, un champs jamais saisi est Null, ce qui est différent d'une chaîne vide