VB sous access
Fermé
m_makhoukh
Messages postés
114
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
17 juin 2005
-
21 avril 2005 à 09:17
vincent TESSIER - 22 avril 2005 à 10:02
vincent TESSIER - 22 avril 2005 à 10:02
A voir également:
- VB sous access
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- Controller access network - Télécharger - Contrôle parental
6 réponses
random
Messages postés
1612
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
30 mars 2006
155
21 avril 2005 à 09:23
21 avril 2005 à 09:23
ben dans l'éditeur vb outil référence tu coches dao
m_makhoukh
Messages postés
114
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
17 juin 2005
2
21 avril 2005 à 10:22
21 avril 2005 à 10:22
merci je suis arrivé.
mais il n'accepte ce bou de code ,;utilisation incorrecte de NEW.
mais il n'accepte ce bou de code ,;utilisation incorrecte de NEW.
Public Sub ado() Dim tdf As New DAO.Database Set tdf = Nothing end Sub
random
Messages postés
1612
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
30 mars 2006
155
21 avril 2005 à 10:54
21 avril 2005 à 10:54
regarde dans la'ide à createdatabase
ou currentdb
ou currentdb
m_makhoukh
Messages postés
114
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
17 juin 2005
2
21 avril 2005 à 12:12
21 avril 2005 à 12:12
merci.
en fait j'ai un sopuci c'etque quand je veux creer un champ il me met une erreur d'execution 13 au niveau de set FLD.
merci d'avance.
voici le code:
Public Sub ado()
Dim masession As Workspace
Dim DB1 As Database
Dim TD As TableDef
Dim FLD As Field
Dim Db As Database
Dim qdf As QueryDef
Dim chSQL As String
Dim MonJeu As Recordset
Set masession = DBEngine.Workspaces(0)
Set DB1 = masession.OpenDatabase("C:\Documents and Settings\Stagiaire Mohamed\Mes documents\access\base_democonsomm\bdconsomm.mdb")
DB1.OpenRecordset ("Base demo Consommations")
Set TF = DB1.CreateTableDef("plan_inventaire")
Set FLD = TF.CreateField("produit", dbInteger)
TF.Fields.Append FLD
End Sub
en fait j'ai un sopuci c'etque quand je veux creer un champ il me met une erreur d'execution 13 au niveau de set FLD.
merci d'avance.
voici le code:
Public Sub ado()
Dim masession As Workspace
Dim DB1 As Database
Dim TD As TableDef
Dim FLD As Field
Dim Db As Database
Dim qdf As QueryDef
Dim chSQL As String
Dim MonJeu As Recordset
Set masession = DBEngine.Workspaces(0)
Set DB1 = masession.OpenDatabase("C:\Documents and Settings\Stagiaire Mohamed\Mes documents\access\base_democonsomm\bdconsomm.mdb")
DB1.OpenRecordset ("Base demo Consommations")
Set TF = DB1.CreateTableDef("plan_inventaire")
Set FLD = TF.CreateField("produit", dbInteger)
TF.Fields.Append FLD
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
m_makhoukh
Messages postés
114
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
17 juin 2005
2
21 avril 2005 à 13:03
21 avril 2005 à 13:03
veuillez merepondre svp car je suis bloqué.
merci.
merci.