Using MS Access as a front end for SW 1

[tmalinski]

Is it possible to create/open a new solidworks file and populate some of it's properties using MSAccess as a front end? I'm pretty sure opening or creating the file is simple enough, but what about it's properties.
I have a MSAccess guru at my disposal he just needs some basic direction.
Thanks,
Tom

Tom Malinski

http://www.okayind.com/

Dell Prec 670, Xeon 3.8,2GB Ram, Nvidia Quadra FX 3450/4000 SDI
SWorks Pro & PDMWorks 2007 SP3.0

 

[JMirisola]

Wouldn't the properties be in the template that the file uses?

Jeff Mirisola, CSWP
CAD Administrator
SW '07 SP2.0, Dell M90, Intel 2 Duo Core, 2GB RAM, nVidia 2500M

http://designsmarter.typepad.com/jeffs_blog

 

[tmalinski]

The properties are there from the template file, but the values put into them would need to be updated for each file.
Example:

DetailNo
ToolNo
Description

My Access database automatically bumps these values and generates the next sequential file name also!

Tom Malinski

http://www.okayind.com/

Dell Prec 670, Xeon 3.8,2GB Ram, Nvidia Quadra FX 3450/4000 SDI
SWorks Pro & PDMWorks 2007 SP3.0

 

[Stoker]

No problem. You can open a file, add or edit properties and save as a new file. Here is an example for your Access guru. Remind him/her to enable the SolidWorks type libraries in the Access VBA references. This example opens a part file, adds a description custom property and saves as a new file. The custom properties do not need to be already created in the original SolidWorks file.

Private Sub cmdButton_Click()

Dim swApp               As SldWorks.SldWorks
Dim swDoc               As SldWorks.ModelDoc2
Dim lErrors             As Long
Dim lWarnings           As Long
Dim BoolStatus          As Boolean
Dim strTemplateName     As String
Dim strDocName          As String
    
Set swApp = CreateObject("SldWorks.Application")
strTemplateName = "C:\\MyPart.sldprt"
Set swDoc = swApp.OpenDoc6(strTemplateName,swDocPART, swOpenDocOptions_Silent, "", lErrors,  lWarnings)
BoolStatus = swDoc.AddCustomInfo3("", "Description", swCustomInfoText, "My Description")
    
strDocName = "C:\\MyNewPart.sldprt"
BoolStatus = swDoc.SaveAs4(strDocName, swSaveAsCurrentVersion, swSaveAsOptions_Copy, lErrors, lWarnings)
swApp.CloseDoc (strTemplateName)
   
Set swDoc = Nothing
Set swApp = Nothing

End Sub

 

[tmalinski]

Stoker, thanks for the help. I'm sure this will give us a kick start.

a star for you...

tom

Tom Malinski

http://www.okayind.com/

Dell Prec 670, Xeon 3.8,2GB Ram, Nvidia Quadra FX 3450/4000 SDI
SWorks Pro & PDMWorks 2007 SP3.0