Viết bởi: kagetsu 16-04-12, 04:55 PM Chuyên mục: Table - Bài trả lời (12) |
Viết bởi: casio262 16-04-12, 10:15 AM Chuyên mục: Thủ thuật VBA - Bài trả lời (17) |
Private Sub Command2_Click()
Dim i As Integer
Dim check As Integer
check = 0
If Forms![form2]![sOnt] = 0 Or Forms![form2]![sOnt] = 1 Then
MsgBox "ko phai la so nguyen to", 14, "Thong bao"
End If
For i = 2 To Sqr(sOnt)
If sOnt Mod i = 0 Then
check = 1
Exit For
End If
Next
If check = 0 Then
MsgBox "La so nguyen to", 14, "Thong bao"
Else
MsgBox "Ko phai la so nguyen to", 14, "Thong Bao"
End If
End Sub
Viết bởi: MyBB.vn 16-04-12, 08:01 AM Chuyên mục: Góc MyBB - Không có hồi đáp |
Viết bởi: assyrian19 15-04-12, 09:49 PM Chuyên mục: Ms Excel - Không có hồi đáp |
Viết bởi: hondatron 15-04-12, 02:48 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (4) |
Public Function DK() As Boolean
If (TxtA <= 0 Or TxtB > 100) Or (TxtB <= 0 Or TxtB > 100) Or (TxtC <= 0 Or TxtC > 100) Then
MsgBox "Mot trong cac gia tri chi nam trong khoang 0-100", vbApplicationModal
TxtA = 0: TxtB = 0: TxtC = 0
Dk = False
Else
Dk = True
End If
End Function
Private Sub CmbTH_Click()
If DK() = False Then
Exit Sub
End if
.........
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: Nguyên Thông-18-04-24, 10:15 PM- » Bài trả lời: 16- » Lượt xem: 5,868 |
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,781 |
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: 72 |
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: 542 |
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,502 |
[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: 66 |
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: 45 |
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,093 |
Xin các bác một chương tr... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: ongke0711-30-03-24, 02:57 AM- » Bài trả lời: 2- » Lượt xem: 51 |
Diễn đàn Thống kê |
» Thành viên: 4,473 » Thành viên mới nhất: macarterga » Các chủ đề diễn đàn: 9,856 » Các bài viết diễn: 48,435 Thống kê đầy đủ |