Piloter aautocad avec access

[LFA]

Salut encore me

 

Somebody can help me please?

 

Je crée une application indépendante sur access 2002 qui sera liée soit avec autocad ou intellicad.

Mais gros probleme, je retrouve plus comment passer d'une appli a l'autre ave le vba,

du style

 

 

clic clic sur access dessin sur autocad et retour automatique sur access

 

 

Merci

[Pako]

Yo LFA,

Style, genre, quelque chose comme ça :

 

par le lien Access :

Ouverture de la base de données

Set appAccess = New Access.Application

NomBase = "C:\data.mdb"

Set EspaceTravail = appAccess.DBEngine.Workspaces(0)

Set BaseDonnees = EspaceTravail.OpenDatabase(NomBase, ReadOnly)

Requete = "Select * from Catalogue"

Set Enreg = BaseDonnees.OpenRecordset(Requete)

Enreg.MoveFirst

[LFA]

Salut Pako,

Merci pour ton aide, mais je cherchais a ouvrir un autocad ou intellicad à partir d'une application access

Mon but, créer une base de donnée Access avec qui contient les dimension de pièce mécanique et faire le dessin en automatique sur autocad.

 

Avantage avoir une base de donnée et une bibliothèque de pièce sous la main

 

fini les cd remplis de blocs autocad

 

 

J'ai écris la séquence suivante:

 

dans un module: pour intellicad

 

Option Compare Database

Global app As INTELLICAD.Application

Function logi()

On Error Resume Next

'lancement de l'application intellicad

Set app = GetObject(, "icad.application")

If err Then

err.Clear

Set app = CreateObject("icad.application")

'si intellicad n'existe pas sur le poste sortir de la procédure

If err Then

err.Clear

MsgBox "l'application Intellicad n'est pas présente sur votre poste!" _

, , "Composant manquant!"

Exit Function

End If

 

app.Visible = True

 

End If

Call truc 'mon module de focus(permet de switcher entre 2 application

Call cad 'mon module dessin

End Function

 

 

Bye