Discussion :

[Mariboo]

BONYOUR !!

Moi avoir encore oune problème !!!

J'ai une requete que j'ouvre avec un Recodset ... jusque là ça va !

Code :

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

1
2
3
4
5
6
7
8
 NomClient = word1.ActiveDocument.Txt_Societe
 ' Récupère le code client de la ligne
 Set requete = MaBd.CreateQueryDef("", "SELECT Code_client from CLIENTS where (Societe Like '*" & NomClient & "*');")
 Set table = requete.OpenRecordset()
 If Not (IsNull(table)) Then
   SQL = table.Fields(0).Value
  Me.Code_client = SQL
 End If

Normalement ma requête LIKE me renvoi une (voire 2) lignes, ou aucune, si il n'a pas trouvé. Hélas, si il ne trouve aucun enregistrement correspondant à mon LIKE , mon " Table.fields(0).value " me fait un bug " Aucun enregistrement en cours "
J'ai tout essayé : If not(IsNull (table) , if not(Isnull (requete) , if not (isnull table.fields) et d'autres bizareries de ce genre mais rien y fait ! il m'affiche toujours le bug ....

Quelqu'un aurait-il l'aimable gentillesse de me dire CE QUI SE PASSE !!

[pgz]

Bonjour,

si ton recordset ne contient aucun enregistrement, alors tu auras Table.EOF vrai. Donc

Code :

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

1
2
3
If NOT Table.EOF Then 
    ....
End if

Bon courage,

pgz

[Mariboo]

Merci !
c'était tout bête , mais je ne pense jamais à utiliser cette propriété ....

MERCI !