Cách tạo nút tìm kiếm bằng Visual Basic (2)

Kính chào ban Vi tính. Hiện nay em đang làm một chương trình nhỏ (quản lý nhân sự). Em muốn tạo một nút tìm kiếm (VD: tìm theo mã nhân viên) trong Access thì tạo rất đơn giản, khi Click vào nó hiện khung tìm kiếm của M.Access bằng tiếng Anh. Nhưng bây giờ em muốn viết nút tìm kiếm bằng Visual Basic để nó hiển thị bằng tiếng Việt cho dễ sử dụng. Nếu Ban Vi ính biết, xin viết giùm em đoạn mã của nút tìm kiếm bằng VB.

Xin chân thành cảm ơn.

Nguyễn Trí Đức

Hồi âm:

Luu y': Viec khai bao connection la do ban.Co`n doa.n code nay mi`nh chi? tric'h mo^.t ddoa.n cho ba.n xem thu? nhe'. Dim rs As New ADODB.Recordset Private Sub Form_Activate()
txtTimMaSo.Text = ""
rs.Open "NhanVien", Cn, adOpenStatic, adLockOptimistic, adCmdTable
End Sub Private Sub cmdTimMaSo_Click()
  rs.Requery
  Dim MA As String
  MA = UCase(Trim(txtTimMaSo.Text))
  rs.Find " SoTT = '" & MA & "'", 0, 1, adBookmarkFirst
  If rs.EOF = True Then
  MsgBox "Khong Tim Thay " & MA
  Else
  NhanVien.ShowRecord rs ' Form NV neu tim duoc se hien ra day.
  End If
  frmTimMaSo.Visible = False
  rs.MoveFirst
End Sub Private Sub Form_Deactivate()
Set rs = Nothing
End Sub Private Sub txtTimMaSo_Validate(Cancel As Boolean)
If txtTimMaSo.Text = "" Then
 MsgBox " Phai Nhap Ma Moi Tim Duoc"
 Cancel = True
End If
End Sub

Le Quang Chau Tri

Chao ban! Ban thich tim kiem theo kieu tu dien Lac Viec khong (co 1 textbox va 1 listbox se chay theo khi thay doi textbox). Hay mail cho minh (phnguyenhmail@hcm.vnn.vn), minh se gui SourceCode cho. Chuc ban vui nha !

Nguyen Chi Vinh Quang