Tùy chọn
Thủ Thuật Access
-
Trang chủ
giúp tạo form login
|
Viết bởi: thangbom01 12-07-11, 02:59 PM Chuyên mục: Forms - Bài trả lời (4) |
http://www.mediafire.com/?180dc2pcwizd7as
|
|
Viết bởi: khaccuong 12-07-11, 10:21 AM Chuyên mục: Table - Bài trả lời (1) |
Tôi muốn trong một table của tôi chỉ có thể lưu được tối đa 10 record thi làm như thế nào? Đang rất cần mong cac bạn chỉ giáo.
|
|
Viết bởi: Nguyendinhthanh 11-07-11, 03:29 PM Chuyên mục: Forms - Không có hồi đáp |
Vẽ 2 box (Box1, Box2)
Vẽ 1 text (Tyle)
Chọn Back color cho box1
Tạo cmd xử lí (Ví dụ cmd1)
ở sự kiện click
Dim i As Long
Box2.Visible = True
Box1.Visible = True
Tyle.Visible = True
Box1.Top = Box2.Top
Box1.Left = Box2.Left
Box1.Height = Box2.Height
i = 1
Box1.Width = (Box2.Width) * i / 3
Tyle.Value = 100 * (i / 3)
Me.Requery
Me.Refresh
Me.Repaint
Sleep (1000) ' thuc hien lenh 1
i = 2
Box1.Width = (Box2.Width) * i / 3
Tyle.Value = 100 * (i / 3)
Me.Requery
Me.Refresh
Me.Repaint
Sleep (1000) ' Thuc hien lenh 2
i = 3
Box1.Width = (Box2.Width) * i / 3
Tyle.Value = 100 * (i / 3)
Me.Requery
Me.Refresh
Me.Repaint
Sleep (1000) ' thuc hien lenh 3
......
MsgBox "Xong roi"
Box2.Visible = False
Box1.Visible = False
Tyle.Visible = False
demo
|
|
Viết bởi: trico9.0 10-07-11, 10:26 PM Chuyên mục: Macro - Bài trả lời (8) |
cám ơn!!!
Public Function DoiSoRaChu(ByVal number As Long)
Dim KetQua, SoTien, Nhom, Chu, Dich, N1, N2, N3 As String
Dim I, J, N As Byte
Dim Hang, Nghin, Dem
Hang = Array("", "tam", "muoi", "")
Dem = Array("", "mot", "hai", "ba", "bon", "nam", "sau", "bay", "tam", "chin")
Nghin = Array("", "nghin ty", "ty", "trieu", "ngin", "dong")
If nunber = 0 Then
KetQua = "Khong dong "
Else
If Abs(number) >= 1E+15 Then
KetQua = "So lon qua muc cho phep!"
Else
KetQua = ""
If number < 0 Then
KetQua = "Am"
End If
SoTien = Format(Abs(number), "###############0.00")
SoTien = Right(Space(15) & SoTien, 18)
For I = 1 To 5
Nhom = Mid(SoTien, I * 3 - 2, 3)
If Nhom <> Space(3) And Nhom <> "000" Then
Chu = ""
N1 = Left(Nhom, 1)
N2 = Mid(Nhom, 2, 1)
N3 = Right(Nhom, 1)
Hang(3) = Nghin(I)
For J = 1 To 3
Dich = ""
N = Val(Mid(Nhom, J, 1))
If N > 0 Then
Dich = Dem(N)
If N3 = "1" And N2 > "1" And J = 3 Then Dich = "mot"
If N = "5" And N2 > "0" And J = 3 Then Dich = "lam"
Dich = Dich & Hang(J)
End If
Select Case J
Case 1 And N1 = "0"
Dich = "Khong tram "
Case 2 And N = "1"
Dich = "Muoi "
Case 3 And N = "0" And Val(Nhom) <> 0
Dich = Hang(J)
Case 2 And N = "0" And Val(N3) > 0 And Len(Chu) > 0
Dich = "linh "
End Select
Chu = Chu & Dich
Next J
KetQua = KetQua & Chu
End If
Next I
End If
End If
If KetQua = "So lon qua muc cho phep!" Then
DoiSoRaChu = "So lon qua muc cho phep!"
Else
DoiSoRaChu = UCase(Left(KetQua, 1)) & Mid(KetQua, 2) & "chan."
End If
End Function
|
Viết bởi: ngamyeuem 10-07-11, 07:02 PM Chuyên mục: Forms - Không có hồi đáp |
link ý tưởng: http://www.mediafire.com/?babyu5uds40to0k
bạn nào được làm ơn gửi qua Email cho mình nha: thang.dangky@gmail.com
cảm ơn các bạn rất nhiều....
| 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,293 |
| 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: 128 |
| 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: 146 |
| 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,886 |
| 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: 157 |
| Đồ 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: 584 |
| 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: 174 |
| 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: 508 |
| 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,594 |
| 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: 272 |
| 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 đủ |