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 On_Hold_DblClick(Cancel As Integer) On Error GoTo Err_On_Hold_DblClick Dim stDocName As String Dim stLinkCriteria As Integer Me!LastRecordNumber = Me.CurrentRecord stDocName = "FrmStatus" stLinkCriteria = "([MOLineKey1]='" & Me![MOLineKey] & "')" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_On_Hold_DblClick: Exit Sub Err_On_Hold_DblClick: MsgBox Err.Description Resume Exit_On_Hold_DblClick 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.