R
Rob Bunocore
I have a database that I use to create another database. I use the
following code to do that.
Private Function strCreateAccessDatabase(strDBPath As String) As
String
On Error GoTo ErrorHandler
Dim catNewDB As ADOX.Catalog
Dim strConnect As String
Dim answer As Integer
If Dir(strDBPath) <> "" Then
'MsgBox "This database already exists " & vbCrLf & strDBPath
answer = MsgBox("This database already exists " & vbCrLf &
strDBPath & " Do you wish to overwrite the exisiting file?", vbYesNo,
"File Already Exists")
Select Case answer
Case vbYes
Kill strDBPath
Set catNewDB = New ADOX.Catalog
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBPath
catNewDB.Create strConnect
Set catNewDB = Nothing
strCreateAccessDatabase = strConnect
Case vbNo
Exit Function
End Select
Else
Set catNewDB = New ADOX.Catalog
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBPath
catNewDB.Create strConnect
Set catNewDB = Nothing
strCreateAccessDatabase = strConnect
End If
Exit Function
ErrorHandler:
Set catNewDB = Nothing
End Function
I then set a database password
Private Function setDBPassword(strDBPath As String, strOldPwd As
String, strNewPwd As String)
Dim dbsDB As DAO.Database
Dim strOpenPwd As String
strOpenPwd = ";pwd=" & strOldPwd
Set dbsDB = OpenDatabase(Name:=strDBPath, Options:=True,
ReadOnly:=False, Connect:=strOpenPwd)
With dbsDB
.NewPassword strOldPwd, strNewPwd
.Close
End With
Set dbsDB = Nothing
End Function
The problem is that I want to transfer a macro and name it autoexec in
the target database. Because I save my project as a MDE file, I get
an error saying that it can't change the name of the macro.
DoCmd.TransferDatabase acExport, "Microsoft Access", Me.txtPath,
acMacro, "ImportMacro", "autoexec"
Does anyone have any code that I could use to set the Start up
features in the Target Database?
Thanks.
Robby
following code to do that.
Private Function strCreateAccessDatabase(strDBPath As String) As
String
On Error GoTo ErrorHandler
Dim catNewDB As ADOX.Catalog
Dim strConnect As String
Dim answer As Integer
If Dir(strDBPath) <> "" Then
'MsgBox "This database already exists " & vbCrLf & strDBPath
answer = MsgBox("This database already exists " & vbCrLf &
strDBPath & " Do you wish to overwrite the exisiting file?", vbYesNo,
"File Already Exists")
Select Case answer
Case vbYes
Kill strDBPath
Set catNewDB = New ADOX.Catalog
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBPath
catNewDB.Create strConnect
Set catNewDB = Nothing
strCreateAccessDatabase = strConnect
Case vbNo
Exit Function
End Select
Else
Set catNewDB = New ADOX.Catalog
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBPath
catNewDB.Create strConnect
Set catNewDB = Nothing
strCreateAccessDatabase = strConnect
End If
Exit Function
ErrorHandler:
Set catNewDB = Nothing
End Function
I then set a database password
Private Function setDBPassword(strDBPath As String, strOldPwd As
String, strNewPwd As String)
Dim dbsDB As DAO.Database
Dim strOpenPwd As String
strOpenPwd = ";pwd=" & strOldPwd
Set dbsDB = OpenDatabase(Name:=strDBPath, Options:=True,
ReadOnly:=False, Connect:=strOpenPwd)
With dbsDB
.NewPassword strOldPwd, strNewPwd
.Close
End With
Set dbsDB = Nothing
End Function
The problem is that I want to transfer a macro and name it autoexec in
the target database. Because I save my project as a MDE file, I get
an error saying that it can't change the name of the macro.
DoCmd.TransferDatabase acExport, "Microsoft Access", Me.txtPath,
acMacro, "ImportMacro", "autoexec"
Does anyone have any code that I could use to set the Start up
features in the Target Database?
Thanks.
Robby