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
Bonjour,
je suis un nouveau membre dans le forum, j'espere que mon message sera lu et je remercirais d'avance la personne qui pourras m'y repondre.
je travail sur une base de donnees access et j'aimerais ecrire un programme sous vb(dans access) pour automatiser les requetes pour cela il faut que j'utilise la bibliotheque DAO mais je ne sais pas comment car il ne connait pas cet objet .
merci de me repondre .
A voir également:

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
ben dans l'éditeur vb outil référence tu coches dao
0
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
merci je suis arrivé.

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
0
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
regarde dans la'ide à createdatabase
ou currentdb
0
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
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
0

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
veuillez merepondre svp car je suis bloqué.

merci.
0
vincent TESSIER
22 avril 2005 à 10:02
bonjour,
je n'arrive pas à faire en sorte que, dans un formulaire la valeur d'un champ "n° de fauteuil" soit nulle ou grisée dès que la valeur d'un transport soit différente de "fauteuil"
0