Bonjour,
merci a vous
si qlq un peurait m'aider mon problème est le suivant:
à partir d'une table je dois calculer le nombre de fois que une enregistrement se répét ( par exemple un Nom ) et les avoir dans des zonne de texte
exp: Nom1 nbr = 20
Nom2 nbr = 15
Nom3 nbr =7
Nom4 nbr = 35
mon code est le suivant =
Set cnnADO = New ADODB.Connection
cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"
cnnADO.ConnectionString = App.Path & "\bd1.mdb"
cnnADO.Open
Set rstadd = New ADODB.Recordset
rstadd.CursorType = adOpenKeyset
rstadd.LockType = adLockOptimistic
rstadd.Open "RGL", cnnADO, , , adCmdTable
Dim entree As String
Dim Signet
Dim b As Long
entree = " select count(*) as Nom from RGL where PROVINCE = '" & Replace(Grid1.TextMatrix((b), 1), "'", "''") & "'"
Set rstadd = cnnADO.Execute(entree)
If Not rstadd.EOF Then
Do Until rstadd.EOF
For b = 1 To 10
Controls("text" & (b)).Text = rstadd("Nom")(b)
rstadd.MoveNext
Next b
Loop
Else
MsgBox " vous devez commencez par le remplissage du Formulaire", vbOKOnly + vbCritical, "Erreur"
Grid1.Sort = flexSortStringAscending
End If
