Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 13/12/2011, 22h11   #1
Futur Membre du Club
 
Inscription : octobre 2006
Messages : 200
Détails du profil
Informations forums :
Inscription : octobre 2006
Messages : 200
Points : 18
Points : 18
Par défaut aucun enregistrement d'une requete

BOnsoir,

comment qualifie-t-on le fait qu'une requête sql retourne 0 lignes?
par exemple le code suivant en utilisant "ISNULL"
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 
ssql = "SELECT nom, prenom, age, adresse" + _
" FROM CLIENTS" + _
" where nom= 'AXI' "
 
 
Set rs1 = CurrentDb.OpenRecordset(ssql)
 
MsgBox (IIf(IsNull(rs1!prenom, "pas de correspondance", rs1!prenom))
 
Set rs1 = Nothing
me met l'erreur "aucun enregistrement en cours" alors que j'ai mis une fonction IF combiné avec "ISNULL" . Normalement ca devrait retourner "pas de correspondance" lorsque qu'il y a aucun enregistrement et le prénom sinon mais ici qu'il y ait ou non de resultat dans la requete rs1 ,il retourne toujours la 2eme partie de la fonction IF.

ce n'est pas ISNULL qu'il faut utiliser? faut il paser par une étape qui compte le nombre d'enregistrement?

Merci de votre aide.
moimemessssssssss est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/12/2011, 22h22   #2
Membre éprouvé
 
Homme Robert LINCE
Conseiller psycho-pédagogique
Inscription : octobre 2007
Messages : 281
Détails du profil
Informations personnelles :
Nom : Homme Robert LINCE
Localisation : Belgique

Informations professionnelles :
Activité : Conseiller psycho-pédagogique
Secteur : Enseignement

Informations forums :
Inscription : octobre 2007
Messages : 281
Points : 483
Points : 483
Bonjour.

Essaie :
Code :
1
2
3
If rs1 .EOF Then
MsgBox "Pas de correspondance"
End If
Cordialement.
RobiPMS est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/12/2011, 20h07   #3
Futur Membre du Club
 
Inscription : octobre 2006
Messages : 200
Détails du profil
Informations forums :
Inscription : octobre 2006
Messages : 200
Points : 18
Points : 18
bonsoir,

j'ai essayé votre proposition et ca marche !
merci beaucoup!!
moimemessssssssss est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h42.


 
 
 
 
Partenaires

Hébergement Web