Discussion :

[gibus73]

Bonjour,
besoin d'aide !!!

ci dessous mon code pour afficher le nombre d'enregistrement contenu dans un sous formulaire en focntione des lettres saisies avec *.
ça fonctionne sauf que le code me renvoi le nbre d’enregistrement visible sur la fenêtre active et nom le nombre total

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande2_Click()
Dim rech As String
Dim MyNum As Integer
If recherche <> "" Then
    rech = recherche
    Form_Req_prin.Form.RecordSource = "SELECT * FROM Req_principale where [Req_principale].[Nom émetteur] Like  """ & rech & """;"
    MyNum = Form_Req_prin.Form.Recordset.RecordCount
    total_rech = CStr(MyNum)
    Else
    MsgBox ("Merci d'entrer une valeur")
Exit Sub
End If
End Sub

[nico84]

Bonjour,

Parfois un petit movelast est nécessaire pour qu'access connaisse le nombre total

Sinon mynum=dcount(...) marche bien aussi !

[gibus73]

dcount () comment l'appliquer à partir d'une requête dans un sous formulaire ?

[Bernard67]

Bonjour le forum :

Voici la methode que j'utilise, si cela peut etre utile .....

BRN1(nom variable) = DCount("*", "[Nom requete]", "[Nom du champ de la requete]='Critere de recherche'")

Puis dans un Msgbox

MsgBox "Le nombre total de lignes est de :" & vbCrLf & "Critere de recherche= " & BRN1 &

Bonne journée