• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Msgbox dùng Unicode Tiếng việt
  

  Viết bởi: Noname 13-08-10, 10:10 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (22)

• Gần đây 1 số bạn ở các forum hay hỏi làm cách nào để hiện câu thông báo kiểu msgbox bằng tiếng Việt.
  Có 1 số bạn hướng dẫn theo nhiều cách, tuy nhiên mình thấy vẫn chưa hợp lý:
  - Cách 1: chỉnh Regional and Language Options thành Tiếng Việt.
  Cách này chưa hợp lý ở kiểu gõ và sẽ bị lỗi ở hệ thống bàn phím dùng số.
  - Cách 2: thay đổi font hệ thống trong thẻ Appearance. Chuyển thành font TCVN3 hay VNI. Sau khi đóng chương trình, hệ thống sẽ trả về lại như cũ.
  
  
  Cách này đáp ứng được nhu cầu gõ tếng Việt. Nhưng các ứng dụng khác của toàn windows có liên quan msgbox sẽ bị ảnh hưởng.( thường là Unicode tiếng Việt không đọc được hoặc xấu hoắc). Mặc dù đây là giải pháp được nhiều lập trình viên lựa chọn vì có thể dùng Code tự động, tuy nhiên mình đánh giá rất thấp vì nó ảnh hưởng hệ thống.
  - Cách 3: gọi Code của các ký tự có dấu. Cách này hơi phức tạp mỗi khi gọi 1 thông báo.
  
  Và sau đây mình xin giới thiệu 2 phương pháp để có thể có msgbox bằng tiếng Việt Unicode mà không phải thay đổi hệ thống hay phức tạp gì. Mời bạn xem ứng chương trình demo.
  Có thắc mắc gì xin hỏi tại đây!
  download
  


•   Tự động liên kết các table
  

  Viết bởi: Noname 13-08-10, 10:07 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (5)

• Hỏi: Tôi có một cơ sở dữ liệu Access và thực hiện split thành backend
  
  File QLVB đặt trong thư mục Run (thư mục Run nằm trong thư mục QLVB) chứa form, repost, ...
  File QLVB_en đặt trong thư mục Data (thư mục Data trong thư mục QLVB) chứa các table
  
  
  Khi tôi di chuyển (hoặc đồng bộ) thư mục QLVB (từ USB vào máy và ngược lại) là các liên kết của các table không còn nữa.
  Bạn nào rành về Access có thể viết đoạn mã giúp tôi tự động nối lại các liên kết đó không.
  
  
  Đáp:
  
  
  Với T là tên table, Bạn cho gọi đoạn code sau để link. Có bao nhiêu table thì bạn gọi bấy nhiêu lần với tên table T tương ứng.
  Code:
  
  
  Mã:

  Sub LinkTable(T As String)
' xoa table link cu~
DoCmd.DeleteObject acTable, T
'link lai tablelink moi
DoCmd.TransferDatabase acLink, "Microsoft Access", CurrentProject.Path & "\" & "QLVB_en.mdb", acTable, T, T
End Sub
  .
  
  Chú ý, đọan code này chỉ áp dụng trong trường hợp file chương trình và dữ liệu bạn chung 1 thư mục. Còn khác thư mục thì mình sẽ đưa giải pháp khác. Ví dụ bạn phải khai báo thư mục chứa dữ liệu.
  


•   Thao tác với registry
  

  Viết bởi: Noname 13-08-10, 09:49 PM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp

• Đôi khi bạn có nhu cầu làm việc với registry trong Access, ví dụ lưu vị trí form, lưu đường dẫn mặc định để lấy dữ liệu. Hoặc lưu username mặc định, kiểm tra 1 computer có phải lần đầu tiên sử dụng chương trình không... Mọi việcsẽ dễ dàng hơn nhiều nếu bạn thao tác với registry....
  
  
  SaveSetting (appname, section, key, setting) : dùng ghi vào registry
  GetSetting(appname, section, key[, default]) : đọc giá trị từ registry
  DeleteSetting (appname, section[, key] ) : xoá giá trị trong registry
  GetAllSettings(appname, section) : Lấy hết giá trị của ứng dụng được lưu tại section
  
  
  Ví dụ:
  
  Code:
  
  Mã:

  ' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
    For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
        Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
    Next intSettings
DeleteSetting "MyApp", "Startup"
  
  


•   Chặn xoay chuột để tới lui record
  

  Viết bởi: Noname 13-08-10, 09:39 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (4)

• Chặn xoay chuột để tới lui record
  Thiết kết trên Form mình đã tắc Record Selector để không cho tới lui các Record đã nhập trước đó, nhưng khi dùng nút giữa xoay chuột nó vẫn chạy tới lui.
  
  Hỏi: Làm sao để chặn thao tác xoay chuột "Cuộn lên xuống bằng nút xoay trên Mouse".
  
  Đáp: Form Wheel
  Trong sự kiện xoay chuột, ta chèn code này vào:
  
  Code:
  
  
  Mã:

  Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Can't use Wheel Button"
If Count = -3 Then
DoCmd.GoToRecord , , acNext
Else
DoCmd.GoToRecord , , acPrevious
End If
End Sub
  
  


•   Lệnh Tạm ngưng trong Access
  

  Viết bởi: Noname 13-08-10, 09:37 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1)

• Trong Access, khi bạn cần tạm ngưng chương trình trong một khoảng thời gian nào đó trước khi thực hiện lệnh mới. Ta dùng hàm Sleep. Để sử dụng được hàm này, ta khai báo :
  
  
  Mã:

  Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
  Và sử dụng:
  
  
  Mã:

  Sleep (5000)
  để tạm ngưng 5 giây!
  



Chủ đề Mới nhất

[Demo P3] Login+ Phân quy... -Chuyên mục: Share Code-Đăng bởi lần cuối: anhquan-4 Giờ trước- » Bài trả lời: 86- » Lượt xem: 22,622

Demo Login + Phân quyền (... -Chuyên mục: Share Code-Đăng bởi lần cuối: anhquan-9 Giờ trước- » Bài trả lời: 82- » Lượt xem: 30,375

Đăng ký miễn phí tài khoả... -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: tranthanhan1962-Hôm qua, 09:06 PM- » Bài trả lời: 3- » Lượt xem: 52

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: cpucloi-Hôm qua, 07:53 AM- » Bài trả lời: 30- » Lượt xem: 4,875

Thơ Những Mối Tình Buồn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-31-03-23, 10:17 PM- » Bài trả lời: 11- » Lượt xem: 95

Cách chẻ từng câu trong đ... -Chuyên mục: Class Moudules-Đăng bởi lần cuối: btamsgn-31-03-23, 11:31 AM- » Bài trả lời: 6- » Lượt xem: 155

Tính tổng trong Report -Chuyên mục: Report-Đăng bởi lần cuối: ledangvan-30-03-23, 09:04 AM- » Bài trả lời: 4- » Lượt xem: 99

Hàm DateAdd -Chuyên mục: Query-Đăng bởi lần cuối: tranthanhan1962-30-03-23, 12:08 AM- » Bài trả lời: 9- » Lượt xem: 90

Quản lý lịch làm việc hiệ... -Chuyên mục: Liên Kết Website-Đăng bởi lần cuối: Ngocmai858-29-03-23, 06:25 PM- » Bài trả lời: 0- » Lượt xem: 17

[Phần 1]Demo Link Table n... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: huantrau-27-03-23, 10:56 AM- » Bài trả lời: 24- » Lượt xem: 3,332




Diễn đàn Thống kê

» Thành viên: 3,828 » Thành viên mới nhất: anhquan » Các chủ đề diễn đàn: 9,739 » Các bài viết diễn: 47,679 Thống kê đầy đủ