We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim txtdbpath As String 'this is your database file Dim txtdbpathcopy As String 'this is your copy path Dim intResponse, fs ' the following double checks, Are you sure? ' intResponse = MsgBox("Are you sure that you wish to make a copy of your database file now?", vbYesNo + vbDefaultButton1 + vbQuestion, "Crystal") ' If (intResponse = 6) Then Set fs = CreateObject("Scripting.FileSystemObject") ' txtdbpath = frmMain.cdgDialog.FileName ' txtdbpath = "D:\Crystal\23456.csv" txtdbpath = App.Path & "\" & "23456.csv" txtdbpathcopy = "D:\" fs.CopyFile txtdbpath, txtdbpathcopy, True '''MsgBox "Backup Done Successfully", vbInformation, "Crystal"
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Geting the MAX and MIN from a group and placing it on another sheet in Excel||6||36|
|pull a field from a programme into Excel||4||12|
|Excel VLookup in a macro where returned column changes every month||7||12|
|Help to find the duplicates||8||14|