Voilà, je me galère depuis assez longtemps dessus. J'aimerais savoir comment on peut vérifier qu'une requête SQL retourne ou non un résultat.
Voici le code :
 
Private Sub Supprimer_le_client_Click()
   Dim id As Integer
   Dim sql As String
   id = Form_client_livre.id
   sql = "SELECT id WHERE id IN (SELECT [Numéro du client] FROM livre)"
   If ??????????? Then 'Si la requête SQL ne retourne pas de résultat
       MsgBox "Il n'a pas emprunté de bouquin"
   Else 'Si la requête SQL retourne un résultat
       MsgBox "Il a emprunté un bouquin"
   End If
End Sub

Recherche sur ce forum tout ce qui touche les requêtes SQL.
Tu me sembles assez loin de savoir comment les gérer pour l'instant et des messages sur le sujet ont été postés ces jours.

il faut 2 étapes :
 - lance ta requete
 - demande lui le nb de recordset retourné
 
j'en dis pas plus, le forum a en effet deja les réponses

Bon, j'ai fait quelques modifs après des lectures par ici et par là mais ça marche toujours pas    
 
Private Sub Supprimer_le_client_Click()
Dim id As Integer
Dim sql As String
Dim rst As DAO.Recordset
Set rst = CurrentDb
id = Form_client_livre.id
sql = "SELECT id WHERE id IN (SELECT [Numéro du client] FROM livre)"
Set rst = Db.OpenRecordset(sql, dbOpenForwardOnly, dbReadOnly)
If (rst.EOF) Then
    MsgBox "Il n'a pas emprunté de petit bouquin"
Else
    MsgBox "Il a volé un livre"
End If
'sql = "DELETE FROM client WHERE id = " & id & " AND id NOT IN (SELECT [Numéro du client] FROM livre)"
'Me.client.RowSource = sql
'Me.client.Requery
End Sub
 
 
 
Je crois que le problème viens de cette ligne : Set rst = CurrentDb  

Je pense qu'avec ca ....
Set Db = CurrentDb et non pas Set rst = CurrentDb
et  
Dim db As DAO.Database

oui,de plus tu peux avoir la fonction rst.recordcount qui doit t'aider

Ok merci ça marche