Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lệnh requery không chạy như ý muốn
#1
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.
Chữ ký của canhcfc Xin chào, mình là canhcfc, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -14.
Reply
Những người đã cảm ơn
#2
(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
Chữ ký của vulhu06 Xin chào Guest
Reply
Những người đã cảm ơn canhcfc
#3
trong VBA mã
Mã:
SubFr1.requery
không có bạn @Vulhu06 ơi040
Chữ ký của canhcfc Xin chào, mình là canhcfc, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -14.
Reply
Những người đã cảm ơn
#4
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"
Chữ ký của canhcfc Xin chào, mình là canhcfc, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -14.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Navigation Bar không sử dụng được các control khác trên Form minhtungph 15 656 16-10-17, 12:15 PM
Bài mới nhất: minhtungph
  Code VBA không chạy trong access 2016 tranthanhan1962 2 110 26-09-17, 09:38 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] cách Khóa form không cho click ra ngoài toidjtjmtoi 3 158 08-09-17, 12:30 PM
Bài mới nhất: toidjtjmtoi
  [Lỗi] Lỗi không mở được form cawboy 5 159 28-08-17, 06:42 PM
Bài mới nhất: ongke0711
  [Hỏi] Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian truongtrungviet 14 783 02-07-17, 05:01 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ