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
|count unique records in access report||2||23|
|How to format a date field in an expression within a query in Access 2010||5||36|
|Improving performance of a query that uses a subquery||9||31|
|Set focus on next field when character count = 5||9||12|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!