Button Backup for access 2010
Private Sub Button_Backup_Click() Dim str As String Dim buf As String Dim MD_Date As Variant Dim fs As Object Dim source As String Const conPATH_FILE_ACCESS_ERROR = 75 On Error GoTo Backup_Button_Backup 'buf = Back Up Folder 'buf is created if it does not exist...