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 txtWaitEnd_GotFocus() Dim strSQL As String Dim rs As DAO.Recordset Dim a As Long, b As Long, c As Long a = Me.LVLInfoID strSQL = "SELECT LVLInfoDtailID, LVLInfoID, LVLMachPollPositionID From tbl_LVLInfoDetails WHERE LVLInfoID=" & a Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) If rs.RecordCount > 0 Then rs.MoveLast rs.MoveFirst b = rs.RecordCount With rs .FindFirst "[LVLMachPollPositionID] = " & Me.LVLMachPollPositionID If .AbsolutePosition = b - 1 Then Parent.[sfrm_LVLInfoDetails_AmtOut].SetFocus Else End If End With End If rs.Close Set rs = Nothing 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.