Viết bởi: Noname 09-08-10, 01:31 AM Chuyên mục: Thư Viện Hàm - Bài trả lời (5) |
Trích:
Function NZ(anyValue As Variant) As Variant
NZ = IIf(IsNull(anyValue), 0, anyValue)
End Function
Viết bởi: Noname 09-08-10, 01:29 AM Chuyên mục: Query - Không có hồi đáp |
Trích dẫn:Nguyên văn bởi huynhvantham
Nó là kết hợp 2 ký tụ: CHAR(13) và CHAR(10)
Ví dụ bạn muốn Insert:
Chạy trong Sql Query: In sert into tablename(firstname,lastname) values('Nguyen' + CHAR(13) + CHAR(10) + 'Van', 'A')
Nếu bạn dùng TEXTAREA thì khi insert vào database thì bạn không cần phài thêm ký tụ xuống dòng. Vì TEXTAREA nó đả hổ trợ bạn chỉ cần gán giá trị của TEXTAREA cho Field dưới database là ok.
Viết bởi: Noname 09-08-10, 01:22 AM Chuyên mục: Forms - Bài trả lời (18) |
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 |
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) |
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
Chủ đề Mới nhất |
Dòng Video Youtube Ngâm N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-16-10-24, 06:02 PM- » Bài trả lời: 13- » Lượt xem: 90 |
Tìm tên 2 hoặc nhiều mã k... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: ongke0711-15-10-24, 11:16 AM- » Bài trả lời: 3- » Lượt xem: 43 |
Dòng Thơ Trích Đoạn (tiếp... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-13-10-24, 04:55 PM- » Bài trả lời: 2- » Lượt xem: 27 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-10-10-24, 02:47 PM- » Bài trả lời: 52- » Lượt xem: 2,524 |
hực Hành Crosstab Query T... -Chuyên mục: Query-Đăng bởi lần cuối: huyhoang22-10-10-24, 11:23 AM- » Bài trả lời: 13- » Lượt xem: 1,334 |
Giúp em với ạ, Access bị ... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: Duytd.24-09-10-24, 07:35 PM- » Bài trả lời: 2- » Lượt xem: 31 |
Cách tạo report có điều k... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-06-10-24, 09:16 PM- » Bài trả lời: 5- » Lượt xem: 2,971 |
Đặt điều kiện cho Crossta... -Chuyên mục: Query-Đăng bởi lần cuối: ledangvan-05-10-24, 10:09 AM- » Bài trả lời: 1- » Lượt xem: 54 |
Đặt điều kiện trong Cross... -Chuyên mục: Query-Đăng bởi lần cuối: mrgior-04-10-24, 09:35 PM- » Bài trả lời: 0- » Lượt xem: 15 |
Function tạo barcode 128 ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-29-09-24, 05:49 PM- » Bài trả lời: 1- » Lượt xem: 83 |
Diễn đàn Thống kê |
» Thành viên: 4,929 » Thành viên mới nhất: vinpack » Các chủ đề diễn đàn: 9,871 » Các bài viết diễn: 48,580 Thống kê đầy đủ |