salivb
Messages postés3Date d'inscriptionmercredi 21 mai 2003StatutMembreDernière intervention27 mai 2003
-
27 mai 2003 à 08:14
salivb
Messages postés3Date d'inscriptionmercredi 21 mai 2003StatutMembreDernière intervention27 mai 2003
-
27 mai 2003 à 08:15
haouam saliha
Bonjour,
la partie du code que j'ai écrite est :
Private Sub c1_Click() Dim DB As Database
Set DB = OpenDatabase("C:\Mes documents\logis0")
Dim T As Recordset
Set T = DB.OpenRecordset(c1.Text)
Dim F As Field
For Each F In T.Fields
List1.AddItem F.Name
Next F
List1.Text = List1.List(1)
End Sub
le compilateur m'affiche une erreur d'incompatibilité de types à la ligne d'ouverture de la table (ligne en rouge)
Merci