Xin hỏi về lệnh docmd open
bdtrung1986 > 22-05-14, 08:29 PM
Xin chào các bác. Em có 1 vướng mắc cả tuần nay loay hoay mãi mà chưa ra.
Chả là em có viết 1 lệnh mở form để đối chiếu số lượng tồn và số lượng xuất, nếu số lượng xuất > số lượng tồn thì hiện thông báo.
Private Sub soluongxuat_BeforeUpdate(Cancel As Integer)
On Error GoTo BeforeUpdate_Error
DoCmd.OpenForm "formton", acNormal, "", "[idPNKchitiet]= [forms]![formxuatkho].[formxuatkhosub].[idPNKchitiet]", , acHidden
If [Forms]![formton]![tondauky] < [Forms]![Formxuatkho]![Formxuatkhosub]![soluongxuat] Then
MsgBox "So Luong Khong Du" & vbCrLf & "So Luong Ton Hien Tai La: " & [Forms]![form ton]![tondauky] & ""
Me.Undo
End If
BeforeUpdate_Exit:
Exit Sub
BeforeUpdate_Error:
MsgBox Err.Description
Resume BeforeUpdate_Exit
End Sub
nhưng khi chạy code trên chương trình toàn bắt nhập parameter value. Các bác xem hộ em cái điều kiện mở form em viết như trên sai chỗ nào ạ.