hueqlhc > 26-03-13, 11:27 AM
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
Dim soCT As Integer
DoCmd.GoToRecord , , acNewRec
soCT = Nz(DMax("[Manhankhau]", "Nhankhau"))
Couter.Value = soCT + 1
Manhankhau = Format(Couter, "000000000")
Exit_Command7_Click:
Exit Sub
Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click
End Sub
hueqlhc > 27-03-13, 10:05 AM
bomnhauag > 27-03-13, 10:39 AM
hueqlhc > 27-03-13, 11:10 AM
(27-03-13, 10:39 AM)bomnhauag Đã viết: vấn đề của bạn theo Bợm nghĩ là do xung đột giữa kiểu dữ liệu Integer và Text nên hàm DMax làm việc tắc trách (toàn ra giá trị là 0 thôi). Vì kô có dữ liệu để xem nên không biết lỗi ra sao! Thân.
soCT = Nz(DMa"[Manhankhau]", "Nhankhau"))
msgbox soCT
Couter.Value = soCT + 1
bạn chèn dòng này vào kiểm tra thử xem soCT nó có ra đúng kết quả như ý không nhé rồi tính tiếp.
nhannt4 > 27-03-13, 04:24 PM
domfootwear > 01-04-13, 09:17 AM
(27-03-13, 11:10 AM)hueqlhc Đã viết:Cách đơn giản nhất là thiết kế thêm cột ID, vời kiểu dữ liệu của cột này là autonumber, set cột này làm khóa chính... Sẽ giải quyết được vấn đề nhập trùng.(27-03-13, 10:39 AM)bomnhauag Đã viết: vấn đề của bạn theo Bợm nghĩ là do xung đột giữa kiểu dữ liệu Integer và Text nên hàm DMax làm việc tắc trách (toàn ra giá trị là 0 thôi). Vì kô có dữ liệu để xem nên không biết lỗi ra sao! Thân.
soCT = Nz(DMa"[Manhankhau]", "Nhankhau"))
msgbox soCT
Couter.Value = soCT + 1
bạn chèn dòng này vào kiểm tra thử xem soCT nó có ra đúng kết quả như ý không nhé rồi tính tiếp.
Mình kiểm tra lai file (mình có đưa đường dẫn mà http://www.mediafire.com/?kn1piqq8i2jzd62) của mình rồi nó vẫn nhảy mà.
Mình đã phát hiện ra lỗi của mình rồi, đó là do khi nhiều người nhập cùng lúc thì nó bị trùng MaNhankhau thì người nào lưu trước thì CSDL chấp nhận, còn người nào lưu sau thì nó không chấp nhận, nó báo lỗi ngay.
Nhưng chưa tìm ra hướng giải quyết. Mong các bạn xem lại giúp. Thanks.
Minh Tiên > 03-04-13, 09:32 AM
Xuân Thanh > 03-04-13, 10:01 AM
(26-03-13, 11:27 AM)hueqlhc Đã viết: Mình muốn nhập dữ liệu từ nhiều máy qua CSDL sau (file đính kèm http://www.mediafire.com/?kn1piqq8i2jzd62
CSDL này đã share full, link talbe qua các máy nội bộ (Lan)
Nhưng khi nhập dữ liệu vào thì nó báo lỗi là trùng MaNhankhau nên không thể nhập.Các ae có thể chỉ cho mình hướng nào mà khi nhập dữ liệu thì nó không báo trùng không.
Đây là code mà mình viết
Mã:Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
Dim soCT As Integer
DoCmd.GoToRecord , , acNewRec
soCT = Nz(DMax("[Manhankhau]", "Nhankhau"))
Couter.Value = soCT + 1
Manhankhau = Format(Couter, "000000000")
Exit_Command7_Click:
Exit Sub
Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click
End Sub
Mong nhận được hồi âm. Thanks