Advertisement
Advertisement
| 02.07.2008 at 09:28AM PST, ID: 23145132 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: |
Private Sub cmdExportMDB_Click()
'This refresh is necessary since the refresh rate is the frequency of saving changes back to the table.
'The default refresh rate can be set by the user but the default value is 60 seconds so if the data are
'copies to a file less than 60 seconds after a change, the change does not occur in the output file.
Me.Refresh
Dim db As DAO.Database
'create a string variable to use as a test for the presence of the WF87Link.mdb file
Dim TestLinkFile As String
'If the file exists, DIR will return the file name, if not it will be a blank string
TestLinkFile = Dir("C:\WetForm\WF87Link.mdb")
'This tests for the existence of the file, if the file doesn't exist then it is created.
If TestLinkFile = " " Then
Set db = CreateDatabase("C:\WetForm\WF87Link.mdb", dbLangGeneral, dbVersion40)
db.Close
Set db = Nothing
End If
|