Discussion :

[majudis]

Bonjour,

J'ai créer une sorte de fonction recherche, pour que par exemple, la personne tape un nom, ensuite el s'appuie sur un bouton, le nom trouvé dans la table va s'enregistrer dans la table TEMP, et ensuite à partir de la table TEMP, une feuille de donnée est ouverte pour lire son contenu.
Moi je voudrais ajouter une sorte de message erreur, de façon à ce que si le nom n'a pa été trouvé dans la table, et bien un message s'affiche dans une msgbox du genre "désolé, aucun nim n'a été trouvé".

En gros je voudrais un truc du genre "si la table TEMP est vide, alors afficher msgbox quoi.

Est-ce possible ?

merci d'avance

[Invité]

Bonjour

Quel type de fonction de recherche as-tu utilisée ?

En effet, suivant ce que tu as fait, on peut récupérer le résultat de cette recherche et avec la fonction IsNull tester celui-ci.

Philippe

[majudis]

En fait voila comment j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
Dim recup As Integer 
 
recup = UCase(Me.Numero) 'on récupère dans une variable le numero tapé par l'utilisateur
 
Sql= "INSERT INTO Temp (Numero)" & _
"SELECT [Numero]" & _
"FROM Table" & _
"WHERE Table.Numero = " & recup & ";"

Voila et moi j'aimerai rajouter une condition, si Temp est vide, alors afficher msgbox quoi