cs_desus4
Messages postés13Date d'inscriptionlundi 20 janvier 2003StatutMembreDernière intervention 9 janvier 2004
-
28 mai 2003 à 11:34
PierrotVB
Messages postés58Date d'inscriptionvendredi 12 juillet 2002StatutMembreDernière intervention20 août 2004
-
28 mai 2003 à 13:43
Bonjour à tous,
J'ai un problème pour taper une bd, lorsque j'arrive sur la ligne de code (**) :
message "Variable ou Objet bloc With non défini...."
j'ai dans ma feuille une combobox et un control Data.......
Private Sub Form_Load()
Data_Sai.DatabaseName = App.Path & "\softwear.MDB"
Extraction_Sai
End Sub
Sub Extraction_Sai()
Catalogue.Combo_Sai.Clear
Catalogue.Data_Sai.Recordset.MoveFirst
(**) Do While Not Catalogue.Data_Sai.Recordset.EOF
If Catalogue.Data_Sai.Recordset.Fields(SAI_code).Value <> "" Then
Catalogue.Combo_Sai = Catalogue.Data_Sai.Recordset.Fields(SAI_lib).Value
End If
Loop
End Sub