Discussion :

[Mimisio]

BOnjour !
J'aimerai faire un test selon l'existence ou non d'un enregistrement dans une table.
J'ai ma requete SQL, j'ouvre mon recordset avec. Mais je ne connais pas le test qu'il faut effectuer pour savoir si il y a un enregistrement correspondant.

Code :

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

1
2
3
4
5
6
7
8
 
sSQL = "SELECT table_fant.designation FROM table_fant WHERE (false) OR (table_fant.Designation='" & Liste1.Column(0, i) & "');"
        Set exist = CurrentDb.OpenRecordset(sSQL)
        If IsNull(exist) Then
            DoCmd.RunSQL "INSERT INTO Table_fant SELECT canal.* FROM canal WHERE (false) OR (canal.Designation='" & Liste1.Column(0, i) & "');"
        Else
           MsgBox exist("Designation")
        End If

Voilà ce que j'ai mis mais celà ne marche pas car je tombe toujours dans le Else que l'enregistrement existe ou non. D'ailleurs si il existe, l'affichage est bon et sinon il me dit qu'il y a "Aucun enregistrement en cours". Donc j'y suis presque sauf que là c'est un message d'erreur !

[Invité]

Bonjour

Il faut tester la propriété RecordCount de ton recordset, en faisant un MoveLast avant.

Starec

[Mimisio]

Hm? Je ne comprend pas pourquoi utilisé MoveLast ?
Par contre, merci pour le RecordCount... C'est parfait
Je poste le code pour ceux que ça interresse.

Code :

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

1
2
3
4
5
6
7
8
9
 
sSQL = "SELECT table_fant.designation FROM table_fant WHERE (false) OR (table_fant.Designation='" & Liste1.Column(0, i) & "');"
        Set exist = CurrentDb.OpenRecordset(sSQL)
        If exist.RecordCount = 0 Then
            DoCmd.RunSQL "INSERT INTO Table_fant SELECT canal.* FROM canal WHERE (false) OR (canal.Designation='" & Liste1.Column(0, i) & "');"
        Else
  MsgBox exist("Designation")
                End If
        exist.Close

EDIT : Oups j'en ai oublié de dire merci !!