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