dtcomsystem > 12-12-13, 04:09 PM
dinh_trong_hoa > 13-12-13, 12:11 PM
(12-12-13, 04:09 PM)dtcomsystem Đã viết: MỌI NGƯỜI ƠI, CÓ CODE CHƯƠNG TRÌNH KIỂM PHIẾU ĐOÀN THANH NIÊN KHÔNG CHO MÌNH XIN VỚI?HIX HIX
Private Sub timkiem_Click()
Dim s, s1 As String
s = "SELECT [danh_sach].[stt], [danh_sach].[ma_phieu] ... (Nếu danh sách của bạn nhiều mục, muốn hiện những mục nào thì liệt kê ra) FROM [danh_sach]WHERE (1=1"
s1 = " AND (([danh_sach].[ma_phieu]) like '" & "*" & [textbox1] & "*" & "')"
.... (Nếu có nhiều điều kiện thì liệt kê ra như trên)
If IsNull(Trim(textbox1)) = False Then
s = s + s1
End If
.... (Nếu có nhiều điều kiện thì liệt kê ra như trên)
Me.listbox.RowSource = s & ") ORDER BY [danh_sach].[stt]; "
Me.listbox.RequeryXuân Thanh > 13-12-13, 03:03 PM
dtcomsystem > 13-12-13, 05:23 PM
(13-12-13, 03:03 PM)Xuân Thanh Đã viết: 1/ Nhắc bạn lần 2 : Tiêu đề bài viêt và nội dung bài viết không được viết chữ hoa toàn bộ và phải viết tiếng Việt có dấu. Lần sau còn như thế này nữa thì bài viết bị move vào thùng rác
2/ Bạn vào Thư viện ứng dụng để tải file về nghiên cứu
Thân mến