Tùy chọn
Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
- Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
-
Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
Minh Tiên > 20-11-13, 04:34 PM
tmtien261 một đoạn code kiểm tra Mã hàng và số lượng tồn trước khi Update vào tblXuathangban bằng ADODB. Cứ mỗi lần Update vào thì báo lỗi như hình sau. Báo xong vẫn Update vào table bình thường. Mình gà mờ mới ngâm cứu ADODB nên không biết lỗi là do nguyên nhân gì ? NHờ các Pro chỉ giúp cách gỡ. Cảm ơn nhiều !
1. Đoạn code:
2. Báo lỗi:Mã:Private Sub cboMahangban_BeforeUpdate(Cancel As Integer)
On Error GoTo Loi_Err
Call OpenMyConnection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = MyConn
.Source = "SELECT Soluongton FROM tblHanghoa where Mahang='" & Me.cboMahangban & "'"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
With rs1
Set .ActiveConnection = MyConn
.Source = "SELECT Donvitinh, Soluongban FROM tblXuathangban_Chitiet_Tam where Mahang='" & Me.cboMahangban & "'"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
If rs.RecordCount < 0 Then
MsgBox "Mã hàng này chưa có !"
Cancel = True
Exit Sub
Else
If rs!Soluongton <= 0 Then
MsgBox "Loại hàng này đã hết !"
Cancel = True
SendKeys "{Esc}"
Exit Sub
Else
If rs!Soluongton <= Nz(rs1!Soluongban, 0) Then
MsgBox "Loại hàng này chỉ còn lại: " & rs!Soluongton & " " & rs1!Donvitinh
Cancel = True
SendKeys "{Esc}"
Exit Sub
End If
End If
End If
rs.Close: rs1.Close
Set rs = Nothing
Set rs1 = Nothing
Call CloseMyConnection
Loi_Exit:
Exit Sub
Loi_Err:
MsgBox "Err:" & Err.Number & " : " & Err.Description & " In: cboMahangban_BeforeUpdate of frmXuathangban !"
Resume Loi_Exit
End Sub
[img]Báo lỗi[/img]
(Err.N:-2147352567: Er.D: Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.)
Rất mong các Pro xem xét chỉ giáo cách gỡ. Cảm ơn nhiều ! -
RE: Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
khuuquytrung > 21-11-13, 11:08 PM
tmtien261 thuộc đẳng cấp cao
Nhờ các cao thủ khác thôi. -
RE: Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
Minh Tiên > 22-11-13, 08:59 AM
Các Pro ơi ! Xin giành chút thời gian chỉ giúp nguyên nhân báo lỗi như trên là do thiếu lệnh gì hay sai jj ? tmtien261 đã hỏi bác Mail, bác goo nhưng vẫn không tìm được nguyên nhân.
Cảm ơn các Pro nhiều ! -
RE: Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
ttm20062008 > 22-11-13, 10:39 AM
Thấy bác bảo update vào table bình thường vậy bỏ lệnh on error goto Loi_Err -
RE: Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
Minh Tiên > 22-11-13, 12:00 PM
Mình đã bỏ Loi_Err, xong vẫn xuất hiện thông báo như hình vẽ.
Thanks ! -
RE: Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
MTNQ > 22-11-13, 12:40 PM
Mình nghĩ lỗi ở câu này:
.Source = "SELECT Donvitinh, Soluongban FROM tblXuathangban_Chitiet_Tam where Mahang='" & Me.cboMahangban & "'"
Vì đây là trước khi update nên không thể tìm thấy record với DK trên
Sao bạn không so sánh trực tiếp với Soluongban nhập trên form nhỉ?
VD: If rs!Soluongton <= Me!txtSoluongban Then .... -
RE: Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
Minh Tiên > 22-11-13, 04:31 PM
Mình đã tìm ra nguyên nhân của lỗi này rồi.
Thực ra do trước khi kiểm tra "Soluongban" ở SubForm, nếu là Null thì "CT" ko hiểu sẽ phải thực hiện thế nào ?
Để khắc phục lỗi này, mình thêm đoạn code sau:
...> Bổ sung thêm:Mã:... cũ
With rs1
Set .ActiveConnection = MyConn
.Source = "SELECT Donvitinh, Soluongban FROM tblXuathangban_Chitiet_Tam where Mahang='" & Me.cboMahangban & "'"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
Sau đó sửa câu:Mã:Dim vSoluongban As Integer
If rs1.RecordCount > 0 Then
vSoluongban = rs1!Soluongban
Else
vSoluongban = 0
End If
Thành câu:Mã:If rs!Soluongton <= Nz(rs1!Soluongban, 0) Then
Thế là chạy vi vu.Mã:If rs!Soluongton <= vSoluongban Then
Không biết còn cách nào đang giỡn (Đơn giãn) hơn không ? Nhờ các Pro chỉ giáo giúp.
Cảm ơn các ACE nhiều !
Thân chào ! -
RE: Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
Xuân Thanh > 23-11-13, 11:57 AM
Dò tìm theo điều kiện mà MatTroiNguQuen đã chỉ dẫn là nhanh nhất và gọn nhất, ít xảy ra lỗi
Thân mến -
RE: Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
MTNQ > 23-11-13, 11:15 PM
(22-11-13, 04:31 PM)tmtien261 Đã viết: ....
Thế là chạy vi vu.
Không biết còn cách nào đang giỡn (Đơn giãn) hơn không ? Nhờ các Pro chỉ giáo giúp.
Cảm ơn các ACE nhiều !
Thân chào !
Mình không biết bạn xây dựng thuật toán cho đề án như thế nào nên phân vân ko biết góp ý ra sao nhưng chỉ xét thủ tục bạn viết cho sự kiện trên vẫn có chỗ không ổn:
-Câu này lấy về một tập hợp các bản ghi có Mahang='" & Me.cboMahangban & "'" :
rs1.Source = "SELECT Donvitinh, Soluongban FROM tblXuathangban_Chitiet_Tam where Mahang='" & Me.cboMahangban & "'"
- Câu này luôn trả về giá trị Soluongban của bản ghi đầu tiên tìm được:
(...) <= rs1!Soluongban
=> Nếu muốn lấy tổng Soluongban có Mahang='" & Me.cboMahangban & "'" trong bảng tblXuathangban_Chitiet_Tam thì mình nghĩ câu SELECT nên viết như sau:
Mã:rs1.Source = "SELECT Donvitinh, sum(Soluongban) as Soluongban FROM tblXuathangban_Chitiet_Tam where Mahang='" & Me.cboMahangban & "' GROUP BY Donvitinh"
Không biết mình góp ý vậy có đúng với ý của bạn khi viết thủ tục này không, có gì sai bạn bỏ qua nhé!
-
RE: Lỗi khi kiểm tra điều kiện trong BeforUpdate bằng ADODB.
MTNQ > 24-11-13, 12:47 AM
