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
From novice to tech pro — start learning today.