Using MS Access as a front end for SW
Using MS Access as a front end for SW
(OP)
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
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






RE: Using MS Access as a front end for SW
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
RE: Using MS Access as a front end for SW
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
RE: Using MS Access as a front end for SW
CODE
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
RE: Using MS Access as a front end for SW
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