Minh Tiên > 20-11-13, 04:34 PM
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