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

Lệnh requery không chạy như ý muốn

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Lệnh requery không chạy như ý muốn
• Lệnh requery không chạy như ý muốn

• Lệnh requery không chạy như ý muốn

  canhcfc > 10-11-14, 01:11 PM

  Xin chào mọi người!
  Trong Access mình có Form1 là form chính, trong Form1 có subform là SubFr1
  Form chính và phụ không liên kết bằng Linkchield & MasterChild
  Khi đó mình nhập data trên form chính sau khi lưu mình dùng:
  

  Mã:

  SubFr1.requery

  để nhìn thấy data đã nhập trong SubFr1
  ban đầu mã chạy ok nhưng khi dữ liệu lên >300 record thì lệnh trên không chạy kịp, sau khi bấm Lưu thì khoảng 1s sau mình ấn F5 mới thấy dữ liệu trên subform.
  Theo mình thì do Subform chưa refresh kịp thì đã đến lệnh end Sub
  vậy bạn nào có cách giải quyết xin hãy giúp mình.

• RE: Lệnh requery không chạy như ý muốn

  vulhu06 > 11-11-14, 11:45 AM

  (10-11-14, 01:11 PM)canhcfc Đã viết: Xin chào mọi người!
  Trong Access mình có Form1 là form chính, trong Form1 có subform là SubFr1
  Form chính và phụ không liên kết bằng Linkchield & MasterChild
  Khi đó mình nhập data trên form chính sau khi lưu mình dùng:
  

  Mã:

  SubFr1.requery

  để nhìn thấy data đã nhập trong SubFr1
  ban đầu mã chạy ok nhưng khi dữ liệu lên >300 record thì lệnh trên không chạy kịp, sau khi bấm Lưu thì khoảng 1s sau mình ấn F5 mới thấy dữ liệu trên subform.
  Theo mình thì do Subform chưa refresh kịp thì đã đến lệnh end Sub
  vậy bạn nào có cách giải quyết xin hãy giúp mình.

  
  Bạn thử gõ thêm lệnh subfr1.refresh xem sao

• RE: Lệnh requery không chạy như ý muốn

  canhcfc > 12-11-14, 01:59 PM

  trong VBA mã

  Mã:

  SubFr1.requery

  không có bạn @Vulhu06 ơi

• RE: Lệnh requery không chạy như ý muốn

  canhcfc > 14-11-14, 12:32 AM

  Mình đã tìm ra được nguyên nhân:
  Không phải do lệnh requery bị chậm mà là do các Link table, khi mới link lần đầu tiên thì chạy ok nhưng các lần sau khi mở access mà không link lại (access tự động link theo đường dẫn cũ) thì sẽ chạy rất chậm. Cái này mình chỉ biết hiện tượng, còn nguyên nhân thì mời các cao thủ vào giải thích.
  Mình giải quyết bằng các mỗi lần mở form thì xóa tất cả link table và sau đó tiến hành link lại.
  Không biết có bác nào có cao kiến gì hay hơn không xin chỉ giáo
  

  Mã:

  Function DeleteAttachedTbls()
On Error GoTo Error_Handler
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef

    DoCmd.SetWarnings False
    Set db = CurrentDb()
    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then
            DoCmd.DeleteObject acTable, tdf.Name
        End If
    Next

Error_Handler_Exit:
    DoCmd.SetWarnings True
    Set tdf = Nothing
    Set db = Nothing
    Exit Function
Error_Handler:

    Resume Error_Handler_Exit
End Function

'Link table

DoCmd.TransferDatabase acLink, "microsoft access", Me.Application.CurrentProject.Path & "\DATA_QLVT.accdb", acTable, "vattu", "vattu"
    DoCmd.TransferDatabase acLink, "microsoft access", Me.Application.CurrentProject.Path & "\DATA_QLVT.accdb", acTable, "phatsinh", "phatsinh"
    DoCmd.TransferDatabase acLink, "microsoft access", Me.Application.CurrentProject.Path & "\DATA_QLVT.accdb", acTable, "tablebpsd", "tablebpsd"
    DoCmd.TransferDatabase acLink, "microsoft access", Me.Application.CurrentProject.Path & "\DATA_QLVT.accdb", acTable, "tondauvt", "tondauvt"
• Bài trước Bài tiếp