• 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ủ
•   nén file Access bằng VBA
  

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

• Bình thường,khi mà các câu lệnh Make, Append, delete thực hiện nhiều lần thì file access của bạn sẽ phình to không tưởng tượng được, có khi lên tới hàng GB, để nén access ta vào menu tool-->database Ulities-->Compact and repair Database
  Nhưng đôi khi chúng ta cần thực hiện điều đó bằng VBA vì đã khóa Menu, thay bằng customise menu, hoặc với mục đích thân thiện với người dùng chỉ trên một nút nhấn.
  
  hãy copy đoạn code sau của tác giả Juan M. Afan de Ribera để làm điều đó
  
  Code:
  
  ' ***** Code Start *****
  
  Mã:

  Public Sub CompactDB()

   CommandBars("Menu Bar"). _
   Controls("Tools"). _
   Controls("Database utilities"). _
   Controls("Compact and repair database..."). _
   accDoDefaultAction

End Sub
  
  


•   Hiện duy nhất một cửa sổ khi mở nhiều form
  

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

• Trích:
  Các bạn giúp mình với, làm sao khi mở một From VD From này la From Main, trong From Main này có các Nút lệnh để mở các From khác. Thì làm sao khi mở một From khác thì trên Takbar không xuất hiện From này mà vẩn còn From Main hiện diện trên Taskbar. Vì nếu tôi mở nhiều Fron trên một chương trình thì Taskbar sẻ đầy.
  

  Trích dẫn:Bạn chỉ cần vào Tools/options
  
  Bỏ dấu check ở mục Windows on Taskbar. khi đó trên Task bar chỉ còn duy nhất 1 màn hình Access thôi, bạn thư nhé.
  ----------------------
  sanyovietnam in MaNguon

  
  

  Trích dẫn:Trích:
  Nguyên văn bởi hungtano
  Bổ sung :
  Vì Access luôn chọn Check box Windows on Taskbar = True (default) nên nếu đem file mdb của bạn sang máy khác thì sẽ gặp lại trường hợp nhiều cửa sổ trên taskbar.
  Cách tổng quát hơn :
  Khi mở form Startup bạn thêm dòng lệnh :
  
  Private Sub Form_Open(Cancel As Integer)
  Application.SetOption "ShowWindowsInTaskbar", False
  End Sub

  
  


•   Kiểm tra 1 form trong chương trình đã được mở hay chưa!
  

  Viết bởi: Noname 09-08-10, 01:39 AM Chuyên mục: Forms - Bài trả lời (2)

• Trong access, đôi khi bạn cần kiểm tra một form có đang load hay chưa để lấy về thông số, tránh động tác thừa vì đôi khi load lên một form dạng bảng, có nhiều đối tượng là rất lâu.
  Function dưới đây sẽ giúp bạn giải quyết vấn đề đó một cách dễ dàng
  
  Code:
  
  
  Mã:

  Function fIsLoaded(ByVal strFormName As String) As Boolean
'Giá trị trả về là 0 nếu chưa mở, -1 là đã mở rồi
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            fIsLoaded = True
        End If
    End If
End Function
'****** Code End ********
  ===================================================
  Cách 2:
  Đơn giản hơn ta xét Function :
  
  
  Mã:

  If CurrentProject.AllForms("YourFormName").IsLoaded = True Then
do something
Else:
do something else
End If
  
  


•   Xuống dòng trong Msgbox
  

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

• Access 97 trở về trước khi xuống dòng dùng ký tự @. Access gần đây dùng vbCrLf để xuống dòng. Việc chủ động xuống dòng trong Msgbox giúp hiển thị thông báo rõ ràng hơn.
  
  
  Mã:

  MsgBox "1. Hello!" & vbCrLf & "2. Xin chào các bạn!" & vbCrLf & "3. Seeuagain!", vbInformation, "Message"
  
  


•   Export dữ liệu ra excel
  

  Viết bởi: Noname 09-08-10, 01:34 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (37)

• Không phải mọi thứ Access đều có thể giúp được bạn, đôi khi phải vận dụng linh hoạt với Excel.
  Câu lệnh Export một đối tượng Access ra Excel
  
  
  Mã:

  DoCmd.OutputTo Kiểu đối tượng, "tên đối tượng", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0
  
  Ví dụ bạn đẩy một query tên là DThutheothang ra excel:
  
  DoCmd.OutputTo acQuery, "DThutheothang", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0
  
  Hoặc là:
  
  Mã:

  DoCmd.TransferSpreadsheet acExport, 8, "qryA", "c:\A.xls", False, ""
  
  Trong trường hợp Export ra excel bị lỗi font Unicode. Bạn có thể tạo 1 macro với Action OutputTo
  



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: thaominhtam-11-09-25, 11:47 AM- » Bài trả lời: 69- » Lượt xem: 5,465

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: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,106

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 686

Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 12,945

(Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 113,409

Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,042

E chia sẽ Quản lý nhà trọ -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 02:28 PM- » Bài trả lời: 0- » Lượt xem: 142

E xin chia sẻ kiểm phiếu ... -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 09:17 AM- » Bài trả lời: 14- » Lượt xem: 854

Giải pháp Chuyển đổi từ đ... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-09-07-25, 09:52 PM- » Bài trả lời: 6- » Lượt xem: 203

File Sổ Quỹ Tiền Mặt cho ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: gatayvn-08-07-25, 04:59 PM- » Bài trả lời: 31- » Lượt xem: 4,216




Diễn đàn Thống kê

» Thành viên: 6,382 » Thành viên mới nhất: ok9schule » Các chủ đề diễn đàn: 9,898 » Các bài viết diễn: 48,825 Thống kê đầy đủ