Adding data to a table based on text boxes and comboboxes

[TKTheKid]

Hi all,

Please refer to form formWarehouseData in my attached database file. On the very right, under "Adding Tickets," I have text boxes and comboboxes in place so a user can add data to the table tableWarehouseData.

My question is, what would the code be like for commandAdd_Click to add the data to tableWarehouseData? I have the code for the message box in place there just like I have in commandEdit_Click, but I'm not sure how to actually get the data into tableWarehouseData.

Thank you,


Tony

[June7]

Simplest is to bind the controls to fields and move to new record. Then code in the button simply saves the record: DoCmd.RunCommand acCmdSaveRecord

If you want to use unbound controls (Quantity would also need to be unbound), options:
1. move to new record, populate fields with values entered in controls, example: Me!Ticket = Me.textAddTicket
2. run SQL INSERT action

[TKTheKid]

Simplest is to bind the controls to fields and move to new record. Then code in the button simply saves the record: DoCmd.RunCommand acCmdSaveRecord

If you want to use unbound controls (Quantity would also need to be unbound), options:
1. move to new record, populate fields with values entered in controls, example: Me!Ticket = Me.textAddTicket
2. run SQL INSERT action

So for option 2, there would be code using INSERT that could enter data from my text boxes and comboboxes directly into tableWarehouseData? I think that's the better option. What would that look like?

Thanks.

[June7]

If Not IsNull(Me.textAddTicket) AND Not IsNull(Me.textAddLocation) AND Not IsNull(Me.comboAddUPC) AND Not IsNull(Me.textAddQuantity) Then
CurrentDb.Execute "INSERT INTO tblWarehouseData(Ticket, Loc, Article, Quantity) VALUES(" & Me.textAddTicket & ", '" & Me.textAddLocation & "', '" & Me.comboAddUPC & "', " & Me.textAddQuantity & ")"
End If