• 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ủ
•   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!
  


•   Danh sách thủ thuật có trên Blog Thủ thuật access
  

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

• 
  



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,254

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: 125

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: 142

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,849

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: 145

Đồ 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: 563

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: 164

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: 468

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,589

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: 267




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 đủ