Ready to get started with anonymous questions today? It's easy! Learn more.
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.
Join the community of 500,000 technology professionals and ask your questions.