Code:
Private Sub CenterSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCenterSearch.Click
'Center name is required. If it not there, ask for it.
' (user can delete it if record is not needed).
If Me.fCenterName.Text = Nothing Then
MsgBox("Practical Test Center name is required." & (Chr(13) + Chr(10)) _
& "Please enter a Practical Test Center name.", MsgBoxStyle.Exclamation + MsgBoxStyle.OKOnly, "No Test Center Name")
Me.fCenterName.Focus()
Exit Sub
End If
' check for displayed records
CheckforDisplayedRecords()
If PrcTestCenterDatesBeingUsed = True Then
PrcTestCenterDatesDataSet.Clear()
PrcTestCenterDatesDataSet.Dispose()
End If
If ArchivePrcTestCenterDatesBeingUsed = True Then
ArchivedPrcTestCenterDatesDataSet.Clear()
ArchivedPrcTestCenterDatesDataSet.Dispose()
End If
' Set the variable to only close the form, not the application
DoNotExitApp = True
' Close this screen
Me.Close()
End Sub
Comment