Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Lỗi] Bảng dữ liệu tự nhiên mất record
#1
Tôi nhờ các bác xử lý dùm, tôi có 1 bảng dữ liệu, nhưng không hiểu sao sau khi dùng chương trình được khoảng 1 tuần hoặc 2 tuần khi kiểm tra lại số record trong bảng thì thấy mất khoảng hơn 1 nửa số record trong bảng đó.
Liệu có phải do có virrut hay không. (Chắc chắn là không có thao tác xóa từ chương trình). Phần mềm của tôi có xử dụng 1 số module tham khảo trên diên đàn.

Thank You, các bác nhiều
Chữ ký của connguoi123 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Nếu mất hết thì có thể đổ lỗi là do Access lỗi. Còn mất 1 nửa thì trừ khi có query nào đó xóa, chỉ còn có do có người vào thẳng table xóa thôi!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Hiện tại mình cũng đang bị tình trạng gần giống với bạn. Dữ liệu bị mất 1 hoặc 2 dòng record.
Chương trình của mình viết đề scan hàng thành phẩm.Trong code mình có bẫy lổi.
Khi 1 thùng hàng có 12 sản phẩm(cùng mã hàng) được đóng đủ thì chương trình sẽ hiện thông báo là đã đóng đủ.(1 dòng record tương ứng với 1 sản phẩm).
Mình dùng đầu đọc barcode (giống như siêu thị scan mã vạch để tính tiền sản phẩm) để lưu dữ liệu mổi khi scan.
Khi scan cùng mã hàng thì scan tới sản phẩm thứ 3 hoặc sản phẩm thứ bất kì trong thùng thì kiểm tra lại dữ liệu thấy mất 1 dòng record(tương ứng 1 sp đã được scan rồi). Và cũng có khi là scan đủ số lượng sp. VD như: thùng A1 là 12sp/thùng. Sau khi scan tiếp tục thùng A2 thì sort dữ liệu thấy mất 1 hoặc 2 sp của thùng A1 đã scan đủ 12sp(mã hàng giống nhau). Giống như connguoi123, không có thao tác xóa dữ liệu từ chương trình.040
Chữ ký của Alias90 Xin chào, mình là Alias90, Tham gia http://thuthuataccess.com/forum từ ngày 15-05 -12.
Reply
Những người đã cảm ơn
#4
(27-07-12, 06:56 PM)Noname Đã viết: Nếu mất hết thì có thể đổ lỗi là do Access lỗi. Còn mất 1 nửa thì trừ khi có query nào đó xóa, chỉ còn có do có người vào thẳng table xóa thôi!

Mình chắc chắn là kô có ai vào bảng xóa cả, thế mới là vấn đề chứ. Vì chương trình chưa có ai dùng, mình đang làm dở và theo dõi mà, nên đảm bảo kô ai vào bảng cả.

(07-08-12, 07:37 PM)connguoi123 Đã viết:
(27-07-12, 06:56 PM)Noname Đã viết: Nếu mất hết thì có thể đổ lỗi là do Access lỗi. Còn mất 1 nửa thì trừ khi có query nào đó xóa, chỉ còn có do có người vào thẳng table xóa thôi!

Mình chắc chắn là kô có ai vào bảng xóa cả, thế mới là vấn đề chứ. Vì chương trình chưa có ai dùng, mình đang làm dở và theo dõi mà, nên đảm bảo kô ai vào bảng cả.

NGoài ra, Bacs Noname có thể check giúp xem nội dung Funtion sau có gì kô ổn và liệu có liên quan đến lỗi mất dữ liệu này kô nhé ?

Option Compare Database

Option Explicit


Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function StopMouseWheel Lib "MouseHook" (ByVal hwnd As Long, ByVal AccessThreadID As Long, Optional ByVal bNoSubformScroll As Boolean = False, Optional ByVal blIsGlobal As Boolean = False) As Boolean
Private Declare Function StartMouseWheel Lib "MouseHook" (ByVal hwnd As Long) As Boolean
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private hLib As Long




Public Function MouseWheelON() As Boolean

MouseWheelON = StartMouseWheel(Application.hWndAccessApp)
If hLib <> 0 Then
hLib = FreeLibrary(hLib)
End If

End Function



Public Function MouseWheelOFF(Optional NoSubFormScroll As Boolean = False, Optional GlobalHook As Boolean = False) As Boolean

Dim S As String
Dim blRet As Boolean
Dim AccessThreadID As Long

On Error Resume Next
S = "Lçi, kh«ng t×m thÊy file" & CurrentDBDir() & "MouseHook.dll" & vbCrLf

hLib = LoadLibrary("MouseHook.dll")
If hLib = 0 Then
hLib = LoadLibrary(CurrentDBDir() & "MouseHook.dll")
If hLib = 0 Then
MsgBox S, vbCritical
MouseWheelOFF = False
Exit Function
End If
End If

AccessThreadID = GetCurrentThreadId()
MouseWheelOFF = StopMouseWheel(Application.hWndAccessApp, AccessThreadID, NoSubFormScroll, GlobalHook)

End Function



Function CurrentDBDir() As String

Dim strDBPath As String
Dim strDBFile As String
strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
CurrentDBDir = left$(strDBPath, Len(strDBPath) - Len(strDBFile))

End Function
Chữ ký của connguoi123 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
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
  copy dữ liệu excel vào access có kí tự xuống dòng babyrock2009 2 82 01-12-16, 11:16 AM
Bài mới nhất: babyrock2009
  [Help] [Hàm] Lấy dữ liệu giữa 2 file Access có cùng cấu trúc table trungminh 22 1,252 08-10-16, 12:08 AM
Bài mới nhất: maidinhdan
  [Help] So sánh 2 Table Lấy ra dữ liệu trùng nhau sang 1 table có sẳn khác thdanh 21 1,678 19-07-16, 04:21 PM
Bài mới nhất: maidinhdan
  [Help] ràng buộc dữ liệu giữa 2 field trong 2 bảng khác nhau hoangtiep 5 281 08-07-16, 05:07 PM
Bài mới nhất: maidinhdan
  Chuyển dữ liệu từ bảng A qua bảng B có chọn lọc bdbqn2007 5 375 08-06-16, 11:36 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ơ