Probleme de test des enregistrements

Résolu
Signaler
Messages postés
135
Date d'inscription
vendredi 17 novembre 2000
Statut
Membre
Dernière intervention
12 août 2008
-
Messages postés
135
Date d'inscription
vendredi 17 novembre 2000
Statut
Membre
Dernière intervention
12 août 2008
-
Bonjour a tous,

Je travaille actuellement en vb access et j'ai un souci. A l'ouverture d'un formulaire, je définis la requete qui me permettra de visualiser les enregistrements qui y figureront. Cependant, il se peut qu'il n'y en ait pas, et c'est cela que j'aimerai vérifier afin de rediriger l'utilisateur vers un autre formulaire ou autre chose, je sais pas encore.

pour l'instant ca donne :

Public Sub Initialiser(mode As Integer)

Dim req As String
Select Case mode
Case 1:
req = "SELECT ..."
Me.RecordSource = req
if 'La condition que je recherche' then
...
End if
Case 2:
...
End Select

End Sub

Si vous avez une idée... Merci d'avance.

1 réponse

Messages postés
135
Date d'inscription
vendredi 17 novembre 2000
Statut
Membre
Dernière intervention
12 août 2008

tout va bien j'ai finalement réussi a trouver:

case 1:
req = "SELECT ...."
me.RecordSource = req

'ensuite il faut declarer un recordset qui recupere celui du formulaire

dim rst as DAO.RecordSet
set rst = me.RecordSet

'et la on peut faire eds tests

if rst.EOF then
msgbox("Pas d'enregistrements")
end if

case 2:
...
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci