N
Nexus
I keep seeming to have this error : "Field cannot be
updated" under my command button click event. Not too
sure which field they are referring to.
Private Sub cmdToolTransact_Click()
Dim strToolID As String, intCurrentInvLevel As Integer
strToolID = lstGetToolDetail
intCurrentInvLevel = txtInventoryLevel
Select Case lstTransactionType
Case "Tool Issue"
InventoryLevel = intCurrentInvLevel -
txtTransactionQty
Case "Tool Return"
InventoryLevel = intCurrentInvLevel +
txtTransactionQty
Case "Lost Tool"
InventoryLevel = intCurrentInvLevel -
txtTransactionQty
Case "Damaged Tool"
InventoryLevel = intCurrentInvLevel -
txtTransactionQty
Case "Tool Returned after Rework"
InventoryLevel = intCurrentInvLevel +
txtTransactionQty
Case "Receipt of Purchased Tool"
InventoryLevel = intCurrentInvLevel +
txtTransactionQty
End Select
DoCmd.Requery "txtInventoryLevel"
End Sub
updated" under my command button click event. Not too
sure which field they are referring to.
Private Sub cmdToolTransact_Click()
Dim strToolID As String, intCurrentInvLevel As Integer
strToolID = lstGetToolDetail
intCurrentInvLevel = txtInventoryLevel
Select Case lstTransactionType
Case "Tool Issue"
InventoryLevel = intCurrentInvLevel -
txtTransactionQty
Case "Tool Return"
InventoryLevel = intCurrentInvLevel +
txtTransactionQty
Case "Lost Tool"
InventoryLevel = intCurrentInvLevel -
txtTransactionQty
Case "Damaged Tool"
InventoryLevel = intCurrentInvLevel -
txtTransactionQty
Case "Tool Returned after Rework"
InventoryLevel = intCurrentInvLevel +
txtTransactionQty
Case "Receipt of Purchased Tool"
InventoryLevel = intCurrentInvLevel +
txtTransactionQty
End Select
DoCmd.Requery "txtInventoryLevel"
End Sub