Private Sub Query1_SelectionChanged() Dim TotalCount As Integer TotalCount = Me.Query1.Count If TotalCount = 1 Then Me.ShowMessageBox("This is a Bostik Part. Please check batch card again") End If If TotalCount = 0 Then Me.ShowMessageBox("Please Press Enter to continue") End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)