Chào mừng, Khách
Bạn cần phải đăng ký trước khi bạn có thể đăng trên trang web của chúng tôi.

Tên người dùng
  

Mật khẩu
  





Diễn đàn Tìm kiếm

(Tìm kiếm nâng cao)

Diễn đàn Thống kê
» Thành viên: 3,201
» Thành viên mới nhất: buin87869
» Các chủ đề diễn đàn: 8,588
» Các bài viết diễn: 37,393

Thống kê đầy đủ

Thành viên online
Hiện đang có 43 người dùng trực tuyến.
» 0 Thành viên | 39 Khách
AhrefsBot, Bing, Cốc Cốc, Google

Chủ đề Mới nhất
Hàm kiểm tra dữ liệu để i...
Chuyên mục: Thủ thuật VBA
Đăng bởi lần cuối: ongke0711
9 Giờ trước
» Bài trả lời: 11
» Lượt xem: 426
Ẩn những record theo đi...
Chuyên mục: Forms
Đăng bởi lần cuối: nam8384
Hôm qua, 04:58 PM
» Bài trả lời: 4
» Lượt xem: 72
lấy dữ liệu từ query sang...
Chuyên mục: Table
Đăng bởi lần cuối: ongke0711
Hôm qua, 04:01 PM
» Bài trả lời: 3
» Lượt xem: 50
Không kết nối được Access...
Chuyên mục: Thư Viện Ứng Dụng
Đăng bởi lần cuối: paulsteigel
Hôm qua, 10:51 AM
» Bài trả lời: 1
» Lượt xem: 71
Một kho Sách linh tinh
Chuyên mục: Thư Viện Giáo Trình
Đăng bởi lần cuối: ongke0711
12-11-18, 11:56 PM
» Bài trả lời: 4
» Lượt xem: 140
[Video+Demo] 2 Cách Tạo S...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: mrtoanbin
12-11-18, 01:59 PM
» Bài trả lời: 35
» Lượt xem: 5,365
[Góc thơ] THAO THỨC
Chuyên mục: Góc Thơ
Đăng bởi lần cuối: Nguyễn Thành Sáng
12-11-18, 01:29 PM
» Bài trả lời: 773
» Lượt xem: 65,142
Phần mềm quản lý Cafe (ac...
Chuyên mục: Thư Viện Ứng Dụng
Đăng bởi lần cuối: lamvankhanh
12-11-18, 10:10 AM
» Bài trả lời: 19
» Lượt xem: 4,964
Tạo Gantt chart trong Acc...
Chuyên mục: Thư Viện Ứng Dụng
Đăng bởi lần cuối: vulhu06
10-11-18, 08:58 AM
» Bài trả lời: 2
» Lượt xem: 103
[Demo] Hàm đặt pass cho f...
Chuyên mục: Thư Viện Hàm
Đăng bởi lần cuối: mrtoanbin
10-11-18, 08:57 AM
» Bài trả lời: 30
» Lượt xem: 6,422

 
  Convert Null thành zero
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)

Khi bạn phải cộng trừ với 1 giá trị rỗng, lập tức sẽ bị báo lỗi dữ liệu. Nhất là trường hợp các bạn dùng left join sẽ bị cộng khi bên kia không tìm thấy khóa. Vì vậy một mẹo nhỏ là bạn tạo một hàm đển convert giá trị null thành số 0. Sau đó, mỗi khi cộng trừ nhân chia thì ta thêm trước field đó dòng NZ([field chứa giá trị])
Convert Null-Zero

Mã:
Trích:
Function NZ(anyValue As Variant) As Variant
NZ = IIf(IsNull(anyValue), 0, anyValue)
End Function

In mục này

  Ký Tự xuống dòng trong SQL
Viết bởi: Noname - 09-08-10, 01:29 AM - Chuyên mục: Query - Không có hồi đáp

Hỏi
Cho tôi hỏi khi mình nhập bằng textare có ký bấm enter để xuống dòng vậy phim enter này lưu xuống SQl bằng ký tự gì vậy? bạn nào biết chỉ dùm nha, tôi đã dùng thử "\n" nhưng không đúng

Đá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.

In mục này

  Tạo Dòng Chữ chạy trên form
Viết bởi: Noname - 09-08-10, 01:22 AM - Chuyên mục: Forms - Bài trả lời (18)

Hỏi
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

In mục này

  Sử dụng Unicode tiếng Việt trong MS Access
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

TG:Võ hùng- PC world


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

In mục này

  Phân quyền sửa Chương trình trong Access
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)

Hỏi
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

In mục này

Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line