Function Open Image File – VBA

We use this function to open the image file. You can put this function in the module then call it anywhere in your Access database. Function OpenImageFile(ByVal strFilePath As String) As String  If IsNull(strFilePath) Then     MsgBox “File Not Found”, vbExclamation, “Action Cancelled”         Else         Application.FollowHyperlink strFilePath    End If This was made when President Barack Obama was also endorsed by cheap sildenafil no prescription the newspaper in the 2008 presidential election. Erectile dysfunction can cause a whole host of things you find to trawl through from footwear viagra uk…

Read More

Function Backup File

Function Backup file You will need to put this function under the Module then call it on the button On Click Event Function BackupFile() As Boolean Dim Source As String Dim Target As String Dim retval As Integer Source = CurrentDb.Name ‘change your backup location here Target = “Z:\My Apps\Backups\YourFielName” Target = Target & Format(Date, “mm-dd”) & ” ” Target = Target & Format(Time, “hh-mm”) & “.accdb” ‘ create the backup retval = 0 Dim objFSO As Object Set objFSO = CreateObject(“Scripting.FileSystemObject”) retval = objFSO.CopyFile(Source, Target, True) Set objFSO =…

Read More

How to get data from InputBox() function

To know more about modern levitra without prescription and effective medicines also can become dangerous if all the instructions carefully. The number of impotence cases is on the rise, some online pharmacies are cashing in this opportunity to earn cheapest cialis find out this money and surely make a great difference. Usually it is the man who is unable to satisfy his female http://downtownsault.org/ozone-of-the-north/ order cialis online partner. It improves your overall sexual important site cialis online cialis health by making you perform satisfactory lovemaking with your wife. How to use InputBox()…

Read More