With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
Private Sub Command133_Click() If Nz(Me.txtDate, "") = "" Then MsgBox "You must enter a date." Me.txtDate.SetFocus Exit Sub Else If Nz(Me.cboToLocation, "") = "" Then MsgBox "You must enter a To Location." Me.cboFromLocation.SetFocus Exit Sub Else If Nz(Me.txtProductID, "") = "" Then MsgBox "You must select a Product ID." Me.txtProductID.SetFocus Exit Sub Else If Nz(Me.txtQty, "") = "" Then MsgBox "You must enter a quantity." Me.txtQty.SetFocus Exit Sub Else End If End If End If End If If (MsgBox("Are you sure you want to transfer the inventory quantity of " & txtQty & " from " & txtFromName & " to " & txtToName & ".", vbYesNo)) = vbNo Then Cancel = True Else Dim RS As DAO.Recordset Set RS = CurrentDb.OpenRecordset("tblInventoryDetails") 'Code to add negative value to tblInventoryDetails RS.AddNew RS!TranxDate = Me.txtDate RS!SoldQty = Me.txtQty RS!ProductID = Me.txtProductID RS!LocationID = Me.cboFromLocation RS!InvTransfer = True RS.Update 'Code to add positive value to tblInventoryDetails RS.AddNew RS!TranxDate = Me.txtDate RS!IncomingQty = Me.txtQty RS!ProductID = Me.txtProductID RS!LocationID = Me.cboToLocation RS!InvTransfer = True RS.Update MsgBox "The inventory has been transferred." RS.Close Set RS = Nothing End If DoCmd.GoToRecord , "", acNewRec End Sub
|MS Access Define a New Field Name In A Query When Special Characters Are Used In The Field Name||14||29|
|MS Access XML Export Query Setup Multiple Tag Values||15||30|
|MS Access 03, TransferText, decimal places||8||46|
|tabctrl with page click event||9||10|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!