Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: Noname 09-08-10, 01:22 AM Chuyên mục: Forms - Bài trả lời (18) |
Tạo dòng chữ chạy trên Form của Access: Cũng như mong muốn ở trên, trên 1 Form bất ký mình muốn chạy một dòng chữ để cần thông tin về vấn đề nào đó ví dụ như là "Chương trình này được tạo bởi...."
Trích dẫn: Nguyên văn bởi HungTano
Hùng Tano
+ Bạn tạo 1 label , tên : LblWelcome - 1 nút lịnh, tên CmdRun
Nhập các đoạn code sau :
Private Sub CmdRun_Click()
LblWelcome.Caption = "This program is designed by ..." & Space(3)
Me.TimerInterval = 200
End Sub
Private Sub Form_Timer()
Dim x, y As String
x = Left(LblWelcome.Caption, 1)
y = Right(LblWelcome.Caption, Len(LblWelcome.Caption) - 1)
LblWelcome.Caption = y + x
End Sub
|
|
Viết bởi: Noname 09-08-10, 01:18 AM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp |
Trong Access 2K trở lên chạy trên Windows XP/2K, không cần phải thay thế font hệ thống bằng các font TCVN, VNI, Vietware..., bạn vẫn có thể sử dụng font Unicode tiếng Việt trong các thành phần từ khi lập trình cho đến khi sử dụng: ô nhập liệu, tiêu đề trên form, menu, toolbar... Quan trọng nhất, bạn có thể viết code sử dụng font Unicode để tạo các message box hiển thị tiếng Việt. Điểm mấu chốt là khi tạo các form, report, menubar, toolbar, bạn sử dụng font Unicode dựng sẵn, nhưng khi lập trình (viết code) bạn dùng font Unicode tổ hợp. Lưu ý: khi viết code nhớ chọn font có chữ Vietnamese ở đằng sau, ví dụ font Times New Roman (Vietnamese).
Cài đặt hệ điều hành 2K/XP
Vào Control panel->Regional and Language Options. Trong bảng này có 3 tab:
+ Tab Regional options (gọi là Tab 1)
+ Tab Languages (gọi là Tab 2)
+ Tab Advanced (gọi là Tab 3)
- Đầu tiên bạn vào Tab 2, đánh dấu chọn "Install files for complex script and right-to-left languages (including Thai)" (nếu chưa chọn). Có thể chương trình yêu cầu bạn đưa vào đĩa cài đặt WinXP(2K). Lưu ý: không nên dùng các đĩa cài đặt XP đã được chỉnh sửa như Wesmosiss WinXP,...
- Chọn OK và khởi động lại máy.
- Vào lại Tab 1, chọn Vietnamese.
- Vào Tab 3, chọn Vietnamese.
- Chọn OK và khởi động lại máy.
Cài đặt MS Office
Sau khi đã cài đặt MS Office, bạn vào Start -> Programs -> Microsoft Office Tools -> Microsoft Office Language Settings, chọn ngôn ngữ mặc định là Vietname
|
|
Viết bởi: Noname 09-08-10, 01:16 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (6) |
Bạn nào có biết cách phân quyền sử dụng trong Access không chỉ cho mình với. Có nghĩa là với chương trình mình tạo ra thì chỉ có mình mới có thể sửa source code được, có thể sửa design... được thôi, người sử dụng chỉ được quyền sử dụng và không có quyền truy cập vào source code cũng như table... để sửa chương trình. Ở bên mình mọi người cũng có kiến thức về Access nên biết là cứ bấm F11 là vào được data của chương trình.
Đáp
Trích dẫn:Nguyên văn bởi hungtano
Bạn phải làm 2 việc :
1) Vào Tools --> Startup : bỏ chọn tất cả các check box trên biểu mẫu này. (không cho users sử dụng các phím tắt)
Còn muốn triệt để hơn, không cho xem code thì .mdb --> .mde
2) Disable phím SHIFT
Nguyên lý : trong database có 1 thuộc tính (property) gọi là : AllowBypassKey. Thuộc tính này cho phép bạn enable/disable phím SHIFT.
+ Nếu AllowBypassKey = False --> disable phím SHIFT
+ Nếu AllowBypassKey = True --> enable phím SHIFT
Cách làm : bạn tạo 1 Form (tạm gọi : F_ShiftKey) có 2 nút lịnh : 1 để enable và 1 disable phím SHIFT. Đưa 2 private sub dưới đây vào..........
Private Sub DisableSHIFTButton_Click()
On Error GoTo ErrHandler
Dim db As Database
Dim ThuocTinh As Property
Set db = CurrentDb
db.Properties("AllowBypassKey") = False
Set db = Nothing
Egress:
On Error Resume Next
Set db = Nothing
Set ThuocTinh = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number
If Err.Number = 3270 Then ' Property not found.
Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, False)
db.Properties.Append ThuocTinh
Resume Next
Else
MsgBox Err.Description
Resume Egress
End If
End Sub
=================================================
Private Sub EnableSHIFTButton_Click()
On Error GoTo ErrHandler
Dim db As Database
Dim ThuocTinh As Property
Set db = CurrentDb
db.Properties("AllowBypassKey") = True
Set db = Nothing
Egress:
On Error Resume Next
Set db = Nothing
Set ThuocTinh = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number
If Err.Number = 3270 Then ' Property not found.
Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, True)
db.Properties.Append ThuocTinh
Resume Next
Else
MsgBox Err.Description
Resume Egress
End If
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++
OK chưa bạn ? .............................................. Chưa đâu !
Bây giờ đặt F_ShiftKey ở đâu trong chương trình để không ai được quyền mở ngoại trừ Admin ? Có nhiều cách : cách đơn giản nhất là đặt ….ở đâu cũng được với 1 điều kiện : để mở F_ShiftKey cần phải biết password.
Ở sự kiện Form_Open, bạn yêu cầu nhập đúng password : Lambada mới cho mở form này.
Private Sub Form_Open(Cancel As Integer)
Dim Message, Title, MyValue
Message = "Ban vui long cho biet mat khau :" ' Set prompt.
Title = "Kiem tra" ' Set title.
MyValue = InputBox(Message, Title)
If MyValue <> "Lambada" Then
DoCmd.Close
End If
End Sub
|
|
Viết bởi: Noname 08-08-10, 11:51 PM Chuyên mục: Ms Excel - Bài trả lời (1) |
Hỗ trợ tách tên, họ.
Hướng dẫn cài đặt:
Chép add-in docso.rar về máy giải nén thành docso.xla
Mở Excel lên. Vào tool-->Add-ins
Browse... tới file docso.xla vừa chép về. OK
Đóng Excel lại và...tận hưởng
Hướng dẫn sử dụng:
A1= 123456
=VND(A1) ==> One hundred twenty three thousand four hundred fifty six dongs only
=DVN(A1) ==>Một trăm hai mươi ba ngàn bốn trăm năm mươi sáu đồng chẵn ( chú ý font dùng VNI- Times)
=USD(A1) ==>One hundred twenty three thousand four hundred fifty six dollars only
B1= Nguyễn Duy Tuấn
=tachten(B1,1) ==>Nguyễn Duy
=tachten(B1,0) ==> Tuấn
Tải về
|
|
Viết bởi: Noname 08-08-10, 11:41 PM Chuyên mục: Ms Excel - Không có hồi đáp |
PIT: tính thuế thu nhập cá nhân.
Cú pháp: PIT(mức lương chịu thuế,người phụ thuộc)
VD: PIT(8.000.000,1)=120.000 (mức lương chịu thuế:8000.000, số người phục thuộc:1)
GROSS: quy đổi mức lương ra gross (dùng cho trường hợp trả lương Net)
Cú pháp: GROSS(mức lương NET,người phụ thuộc)
VD: GROSS(7.880.000,1)=8.000.0000
NET: quy đổi ra mức lương NET từ GROSS
Cú pháp: NET(mức lương GROSS,người phụ thuộc)
VD: NET(8.000.000,1)=7.880.000
Mã:
Function pit(gross, ngPhuthuoc As Single) As Single
Dim giamtru As Single
giamtru = 4000000 + ngPhuthuoc * 1600000
If gross - giamtru > 0 Then
If gross - giamtru < 5000000 Then
pit = (gross - giamtru) * 0.05
ElseIf gross - giamtru < 10000000 Then
pit = 250000 + (gross - giamtru - 5000000) * 0.1
ElseIf gross - giamtru < 18000000 Then
pit = 750000 + (gross - giamtru - 10000000) * 0.15
ElseIf gross - giamtru < 32000000 Then
pit = 1950000 + (gross - giamtru - 18000000) * 0.2
ElseIf gross - giamtru < 52000000 Then
pit = 4750000 + (gross - giamtru - 32000000) * 0.25
ElseIf gross - giamtru < 80000000 Then
pit = 9750000 + (gross - giamtru - 52000000) * 0.3
Else
pit = 18150000 + (gross - giamtru - 80000000) * 0.35
End If
Else
pit = 0
End If
End Function
Function gross(net As Single, ngPhuthuoc As Single) As Single
Dim giamtru As Single
giamtru = 4000000 + ngPhuthuoc * 1600000
If net - giamtru > 0 Then
If net - giamtru < 4750000 Then
gross = (net - giamtru) / 0.95 + giamtru
ElseIf net - giamtru < 9250000 Then
gross = 5000000 + ((net - giamtru - 4750000) / 0.9) + giamtru
ElseIf net - giamtru < 16050000 Then
gross = 10000000 + ((net - giamtru - 9250000) / 0.85) + giamtru
ElseIf net - giamtru < 27250000 Then
gross = 18000000 + ((net - giamtru - 16050000) / 0.8) + giamtru
ElseIf net - giamtru < 42250000 Then
gross = 32000000 + ((net - giamtru - 27250000) / 0.75) + giamtru
ElseIf net - giamtru < 61850000 Then
gross = 52000000 + ((net - giamtru - 42250000) / 0.7) + giamtru
Else
gross = 80000000 + ((net - giamtru - 61850000) / 0.65) + giamtru
End If
Else
gross = net
End If
End Function
Function net(gross, ngPhuthuoc As Single) As Single
Dim giamtru As Single
giamtru = 4000000 + ngPhuthuoc * 1600000
If gross - giamtru > 0 Then
If gross - giamtru < 5000000 Then
net = gross - ((gross - giamtru) * 0.05)
ElseIf gross - giamtru < 10000000 Then
net = gross - (250000 + (gross - giamtru - 5000000) * 0.1)
ElseIf gross - giamtru < 18000000 Then
net = gross - (750000 + (gross - giamtru - 10000000) * 0.15)
ElseIf gross - giamtru < 32000000 Then
net = gross - (1950000 + (gross - giamtru - 18000000) * 0.2)
ElseIf gross - giamtru < 52000000 Then
net = gross - (4750000 + (gross - giamtru - 32000000) * 0.25)
ElseIf gross - giamtru < 80000000 Then
net = gross - (9750000 + (gross - giamtru - 52000000) * 0.3)
Else
net = gross - (18150000 + (gross - giamtru - 80000000) * 0.35)
End If
Else
net = gross
End If
End FunctionTải file ví dụ tại đây
| Chủ đề Mới nhất |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-26-07-26, 02:14 PM- » Bài trả lời: 75- » Lượt xem: 7,098 |
| 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: 72 |
| Đồ 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: 214 |
| 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: 87 |
| 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: 44 |
| 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,495 |
| 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: 166 |
| Dùng MS Access làm Front ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: AKBui-18-03-26, 01:42 PM- » Bài trả lời: 14- » Lượt xem: 3,517 |
| Kiểm phiếu Bầu cử 3 cấp (... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-13-03-26, 02:09 AM- » Bài trả lời: 0- » Lượt xem: 138 |
| Khi vị trí quản lý khiến ... -Chuyên mục: Kỹ năng văn phòng-Đăng bởi lần cuối: KhoSim-04-03-26, 01:02 AM- » Bài trả lời: 0- » Lượt xem: 110 |
| Diễn đàn Thống kê |
|
» Thành viên: 13,923 » Thành viên mới nhất: Bluetoothird » Các chủ đề diễn đàn: 9,909 » Các bài viết diễn: 48,846 Thống kê đầy đủ |