Đá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
Photo [Hỏi] Không chèn được ActiveX control vào Form killitmore 4 164 06-12-17, 02:49 PM
Bài mới nhất: killitmore
  [Hỏi] Ứng dụng chạy trong mạng lan mrsiro 5 191 27-11-17, 04:46 PM
Bài mới nhất: lehongduc
  Combobox không hiện như rowsource value list thanhhau828 7 219 22-11-17, 11:05 AM
Bài mới nhất: ongke0711
  Code VBA không chạy trong access 2016 tranthanhan1962 5 274 15-11-17, 03:47 PM
Bài mới nhất: tranthanhan1962
  Subform hoạt động được nhưng không thêm dữ liệu vào được pvhung76 7 175 02-11-17, 08:16 AM
Bài mới nhất: pvhung76

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ơ