If txtsearch.Text = "" Then MsgBox "Input textbox!", vbInformation, "No Data" txtsearch.Text = "" msgError.Caption = "" Else Data1.Refresh Data1.RecordSource = "select * from Customer_data where Email_Suffix = '" + txtsearch.Text + "' " Data1.Refresh If Data1.Recordset.RecordCount = 0 Then Data1.Refresh MsgBox "No Match!", vbExclamation, "Not found" msgError.Caption = "" Else If txtsearch.Text <> "" Then msgError.Caption = Data1.Recordset.Fields("Ship_to_Identifier") MsgBox "Match Found!!!", vbInformation, "Data found" dbkey.Enabled = True 'Text Box 'txtkey.Enabled = True 'cmdKeyIdentify.Enabled = True Data1.Refresh ElseIf Data1.Recordset.RecordCount = 0 Then MsgBox "Data is lack!", vbExclamation, "Error" Else msgError.Caption = Data1.Recordset.Fields("Ship_to_Identifier") End If End If End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)