Code in getting the windows user’s fullname. Dim strComputer As StringDim strUserName As StringDim objUser As Object strComputer = “ComputerName”strUserName = “UserNameSet objUser = GetObject(“WinNT://” &…
When you query a multiple join in MSSQL you use this following query:SELECT a.columna, b.columnb, c.columncFROM tablea AS a LEFT JOIN tableb AS b ON a.id = b.id…
Subtracting Date Time in MSSQL –YEARSELECT DATEDIFF(year, ‘2012-12-31’, ‘2013-01-01’) –QuarterSELECT DATEDIFF(quarter, ‘2012-01-01 23:59:59’, ‘2013-01-01 00:00:00’) –MonthSELECT DATEDIFF(month, ‘2012-12-31 23:59:59.9999999’, ‘2013-02-01 00:00:00.0000000’) –DaySELECT DATEDIFF(day, ‘2012-12-01 23:59:59.9999999’, ‘2012-12-31…
VB Send Email with a HTML Format body Private Sub Command1_Click()Dim EmailList, Mailbod As String, MyfileDim objOutlook As Outlook.ApplicationDim newapp As Outlook.MailItem, objRecip As Outlook.RecipientDim objRWhtm…
Copy File then rename the copied file with date and time using dos commandC:FileName.bak Z: /C /Y ren Z:FileName.bak FileName.bak%date:~4,2%-%date:~7,2%-%date:~10,4%-%time:~1,1%%time:~3,2%%time:~6,2% I discovered that when the folder name is with…
When your developing an MS Access application make sure you remove the Ribbon so that your application looks clean. Here’s how to remove the Ribbon. ‘Disable MS Access Ribbon DoCmd.ShowToolbar…