Viết bởi: Xuân Thanh 18-04-12, 01:04 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (2) |
Function TimKiemChuoi(ChuoiMe As String, ChuoiCon As String) As String
ChuoiMe = Trim(ChuoiMe): ChuoiCon = Trim(ChuoiCon)
LM = Len(ChuoiMe): LC = Len(ChuoiCon)
If LM < LC Then MsgBox "O la la!!!!! Sai roi!!!!!" & Chr(13) & "Me ngan hon con !", , "Chu y": Exit Function
Dim i As Integer
Dim Thay As Boolean
Thay = False
For i = 1 To LM - LC + 1
If Mid(ChuoiMe, i, LC) = ChuoiCon Then
Thay = True
Exit For
Else
Thay = False
End If
Next
If Thay = True Then
TimKiemChuoi = ChuoiMe
Else
MsgBox "Khong tim thay", , "Thong Bao"
End If
End Function
Viết bởi: chatchut 17-04-12, 07:26 PM Chuyên mục: Forms - Bài trả lời (4) |
Viết bởi: Xuân Thanh 17-04-12, 01:36 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (33) |
Viết bởi: phantom2ghost 17-04-12, 11:02 AM Chuyên mục: Query - Bài trả lời (4) |
Viết bởi: nguyenbaluc 16-04-12, 05:54 PM Chuyên mục: Table - Bài trả lời (4) |
Chủ đề Mới nhất |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-4 Giờ trước- » Bài trả lời: 15- » Lượt xem: 5,843 |
khoe 247 chuyen gia cham ... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: rssellaumlin-15-04-24, 04:42 PM- » Bài trả lời: 0- » Lượt xem: 13 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,765 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-11-04-24, 06:04 PM- » Bài trả lời: 2- » Lượt xem: 38 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 70 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 467 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: recca123-07-04-24, 11:27 PM- » Bài trả lời: 38- » Lượt xem: 1,484 |
[Lỗi] Automation error kh... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: AnNguyen-05-04-24, 09:30 AM- » Bài trả lời: 4- » Lượt xem: 65 |
Lọc tên vật tư theo nhóm -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-02-04-24, 04:00 PM- » Bài trả lời: 1- » Lượt xem: 44 |
Thơ con cóc -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Xuân Thanh-01-04-24, 06:45 PM- » Bài trả lời: 111- » Lượt xem: 59,004 |
Diễn đàn Thống kê |
» Thành viên: 4,450 » Thành viên mới nhất: Georgekab » Các chủ đề diễn đàn: 9,857 » Các bài viết diễn: 48,435 Thống kê đầy đủ |