|
|
Viết bởi: cuongvan09 25-06-12, 01:10 PM Chuyên mục: Forms - Bài trả lời (6) |
|
|
Viết bởi: cuongvan09 25-06-12, 09:19 AM Chuyên mục: Forms - Bài trả lời (12) |






|
|
Viết bởi: kedaotau 24-06-12, 09:32 PM Chuyên mục: Forms - Bài trả lời (1) |
|
|
Viết bởi: khanhduycsgt 24-06-12, 07:45 PM Chuyên mục: Forms - Bài trả lời (20) |
![[Hình: 1.jpg]](http://i1209.photobucket.com/albums/cc391/khanhduycsgt/1.jpg)
Dim s, s1, s2, s3, s4, s5 As String 'Khai bao cac bien chua thong tin
'Day la dong lenh SQL de apply cho lstDANHSACH.rowsource:
s = "SELECT tblTHONGTIN.MaCB, tblTHONGTIN.Hovaten, tblTHONGTIN.Ngaysinh, tblTHONGTIN.Quequan, tblTHONGTIN.Dantoc FROM tblTHONGTIN WHERE (1=1"
'Day la cac phan mo rong de chen vao sau doan SQL tren:
s1 = " AND ((tblTHONGTIN.MaCB) = " & [txtMaCB] & ")"
s2 = " AND ((tblTHONGTIN.Hovaten) like '" & "*" & [txtHovaten] & "*" & "')"
s3 = " AND ((tblTHONGTIN.Ngaysinh)=" & [txtNgaysinh & ")"
s4 = " AND ((tblTHONGTIN.Quequan) like '" & "*" & [txtQuequan] & "*" & "')"
s5 = " AND ((tblTHONGTIN.Dantoc)=" & Me.txtDantoc & ")"
'Cu moi textbox co du lieu thi se chen dieu kien loc vao doan SQL tren:
If IsNull(Trim(txtMaCB)) = False Then
s = s + s1
End If
If IsNull(Trim(txtHovaten)) = False Then
s = s + s2
End If
If IsNull(Trim(txtNgaysinh)) = False Then
s = s + s3
End If
If IsNull(Trim(txtQuequan)) = False Then
s = s + s4
End If
If IsNull(Trim(txtDantoc)) = False Then
s = s + s5
End If
'Chen them phan duoi ket thuc cu phap lenh SQL tren:
Me.lstDANHSACH.RowSource = s & ") ORDER BY tblTHONGTIN.MaCB; "
Me.lstDANHSACH.Requery
|
Viết bởi: quanghoasla 24-06-12, 05:33 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (4) |
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,315 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 133 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 150 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,913 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 170 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 612 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 178 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 560 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,598 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 275 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |