With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Private Sub cmdDoSomething_Click() Dim ctlDisplay As Control Set ctlDisplay = Me.txtStatus WriteLog "c:\MyLog.txt", "Stuff is happening", "Global", ctlDisplay End Sub
Public Function WriteLog(LogSpec As String, LogMsg As String, LogType As String, ByVal ctlDisplay As Control) Dim fs, ts, strLogText As String strLogText = Format(Now(), "MMDD:HHNNSS") & " " & LogType & ": " & LogMsg & vbCrLf Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(LogSpec, 8, True, 0) ts.Write strLogText ts.Close Set ts = Nothing Set fs = Nothing If Not IsEmpty(cltDisplay) Then ctlDisplay.Text = strLogText & Left(ctlDisplay.Text, 2048) End Function
|MS Access VBA Code to Include Library References||4||49|
|SetProperty Foreground Colour||5||14|
|Insert query not working with a linked sharepoint table with a multi-value field||10||13|
|vba code to check folder size doesn't work on Win 7 PC's||8||25|