Free for PREMIUM members
Private Sub cmdAdd_Click()
Dim iRom As Long
Dim ws As Worksheet
Set ws = Worksheets("PartsData")
'find first empty row in the database
iRow = ws.Cells(Rows.Count, 1) _
'check for a part number
If Trim(Me.txtPart.Value) = "" Then
MsgBox "Please enter part number"
'assign the values
ws.Cells(iRow, 1).Value = Me.txtPart.Value
ws.Cells(iRow, 2).Value = Me.txtLocation
ws.Cells(iRow, 3).Value = Me.txtDate
ws.Cells(iRow, 4).Value = Me.txtQuantity
'clear the data
Me.txtPart.Value = ""
Me.txtLocation = ""
Me.txtDate = ""
Me.txtQuantity = ""
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.