1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Sub Frmrecherchem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sql = "select Num_marche from Marche"
AxAdodc1.RecordSource = sql
AxAdodc1.Refresh() ==============> La Ligne du msg d'erreur
If AxAdodc1.Recordset.RecordCount > 0 Then
AxAdodc1.Recordset.MoveFirst()
While Not AxAdodc1.Recordset.EOF
ComboBox1.Items.Add(AxAdodc1.Recordset.Fields(0))
AxAdodc1.Recordset.MoveNext()
End While
End If
Btnmodif.Enabled = True
Btnsupprim.Enabled = False
Btnmaj.Enabled = False
Btnannuler.Enabled = False
End Sub |
Partager