Probleme de test des enregistrements

Résolu
elpaulo Messages postés 135 Date d'inscription vendredi 17 novembre 2000 Statut Membre Dernière intervention 12 août 2008 - 15 févr. 2006 à 09:43
elpaulo Messages postés 135 Date d'inscription vendredi 17 novembre 2000 Statut Membre Dernière intervention 12 août 2008 - 15 févr. 2006 à 13:20
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.
A voir également:

1 réponse

elpaulo Messages postés 135 Date d'inscription vendredi 17 novembre 2000 Statut Membre Dernière intervention 12 août 2008
15 févr. 2006 à 13:20
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
Rejoignez-nous