Probleme de test des enregistrementsRésolu

Question

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.

elpaulo · Accepted Answer

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:
  ...

Probleme de test des enregistrements

1 réponse

Discussions similaires