1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub Command1_Click()
Dim Rs_tmp As ADODB.Recordset
W_requete = "select produit,libelle_produit,famille from gestion_produit order by famille"
Set Rs_tmp = New ADODB.Recordset
Rs_tmp.Open W_requete, Cx_Infocentre
'
With DRtest
.Hide
Set .DataSource = Rs_tmp
.DataMember = ""
With .Sections("Section6")
.Controls("RptTxtfamille").DataField = "famille"
End With
With .Sections("section1")
.Controls("RptTxtProduit").DataField = "produit"
.Controls("RptTxtlibelle").DataField = "libelle_produit"
End With
.WindowState = 2
.Show
End With
End Sub |
Partager