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.
Private Sub Form_Load() custAgent(sn("cust_number")) Then Me.TimerInterval = 90 Forms!f_builder.txtXCustNum = sn("Customer_number") Forms!f_builder.txtXCustNum.ForeColor = 255 Else Forms!f_builder.txtXCustNum = IIf(IsNull(sn("Customer_number")), "", sn("Customer_number")) End If end sub Private Sub Form_Timer() With Forms!f_builder.txtXCustNum .ForeColor = (IIf(.ForeColor = vbRed, vbWhite, vbRed)) End With Me!lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss AMPM") End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Calculation in a Report||13||41|
|Access Report via Windows Desktop Shortcut||12||42|
|Access 2016 Query to text file csv makes my computer do the blue screen of death||4||12|
|Button to auto fill form with previous record||3||17|
Join the community of 500,000 technology professionals and ask your questions.