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.
Dim Msg, Style, Title, Help, MyString, Response On Error GoTo Error_Trap If Me.txtNetWt = "" Then 'Continue on. Do nothing Else Msg = "You are about to change a value that affects the Weight fields. If you continue Qty and NetWt and GrosWT fields will be blanke." _ & vbCrLf _ & vbCrLf _ & "Is this what you want?" Style = vbYesNo + vbDefaultButton2 Title = "Question" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then 'continue on Else Me.txtSize.Undo Cancel = True End If End If Exit_Error: Exit Sub Error_Trap: If Err.Number = 3270 Then 'Property not found Resume Next Else MsgBox "Error #" & Err.Number & ": " & Err.Description & ". Wdy code. See brnRetrieve_Click " Resume Exit_Error End If
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.