Member Avatar for deepeshgavel86

search button coding in vb.net

  • 2 Contributors
  • 1 Reply
  • 94 Views
  • 10 Hours Discussion Span
  • Latest Post Latest Post by zerocool21
Member Avatar for zerocool21

hope this might help u a bit!

Private Sub COORIGIN_COMBO_Click()
COORIGIN_COMBO.DropDown
End Sub


Private Sub VT_COMBO_CLICK()
VT_COMBO.DropDown
End Sub

Private Sub CMD_SEARCH_Click()
'to allow the search button to match criteria with that available in DB
'Sheets("India").Select

'Check if user left it blank
If Me.VT_COMBO.Value = "" Then
MsgBox "Please select the SURNAME", vbExclamation
Me.VT_COMBO.SetFocus
Exit Sub
End If

'Check if user left it blank
If Me.COORIGIN_COMBO.Value = "" Then
MsgBox "Please select the Country of Origin", vbExclamation
Me.COORIGIN_COMBO.SetFocus
Exit Sub
End If


'if criteria matches the following then open the particular spreadsheet
If VT_COMBO.Value = "Singh" And COORIGIN_COMBO.Value = "INDIA" Then
Sheets("INDIA").Select
End If

If VT_COMBO.Value = "LIM" And COORIGIN_COMBO.Value = "CHINA" Then
Sheets("CHINA").Select
End If


Unload Me
End Sub

Edited by zerocool21 because: n/a
commented: use code tags -1
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.