Discussion :

[crepeonutella]

Bonjour,
Voilà j'ai essayé plusieurs choses mais rien de fonctionne...en faite quand je clique sur un bouton je voudrai qu'un code s'exécute (voir ci dessous). J'aurai en faite besoin du nombre d'enregistrement trouvé pour pouvoir l'intégrer à une boucle if genre:
SQL= 3 enregistrements trouvés
If SQL > 0 Then
Me.Liste69.RowSource = SQL
Me.Liste69.Requery
Else
MsgBox "erreur"
End If

Ma requête est bonne elle fonctionne.
Merci
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim SQL As String
 
SQL = "SELECT ID_Réservation, ID_Matériel, ID_Formateur, Date, Quand, Nombre, Reste From Requête_Matériel Where Requête_Matériel.ID_Réservation <>0"
SQL = SQL & "And Requête_Matériel!Date like '*" & Me.Date & "*' "
SQL = SQL & "And Requête_Matériel!Quand like '*" & Me.Quand & "*' "
 
If SQL > 0 Then
    Me.Liste69.RowSource = SQL
    Me.Liste69.Requery
Else
    MsgBox "erreur"
End If

[Tofalu]

Bonjour,

Utilisez un recordset

http://warin.developpez.com/access/dao/?page=partie_5

[crepeonutella]

Merci je regarde mais il n'y a pas un autre moyen?

[crepeonutella]

Merci ça fonctionne très bien merci beaucoup