Button to add text from textbox as new record in database

[zipaway]

So I have a form with an unbound textbox named (ProjectNumber) and a button (AddProjectNumberButton). When I click the button I want the text from the textbox added as a new record to the (Projects) table under the (Project_Number) field.



I tried the code below but it didn't work. It screwed up on the "Dim RS As DAO.Recordset" line. Any help would greatly be appreciated.

Private Sub AddProjectNumberButton_Click()
Dim RS As DAO.Recordset
Set RS = CurrentDb.openrecordset(Projects, dbopendynaset)
RS.AddNew
RS("Project_Number") = Me![ProjectNumber]
RS.Update
RS.Close
Set RS = Nothing
End Sub

[ranman256]

Try: RS.fields("Project_Number").value = Me![ProjectNumber]

You dont need this datatype DAO.RECORDSET...just use: Dim RS)
(its not needed, but if you do use it, be sure you have in your REFERENCES )

[zipaway]

Try: RS.fields("Project_Number").value = Me![ProjectNumber]

You dont need this datatype DAO.RECORDSET...just use: Dim RS)
(its not needed, but if you do use it, be sure you have in your REFERENCES )

So I did that, now the second line has an error.

Dim RS
Set RS = CurrentDb.openrecordset(Projects, dbopendynaset)
RS.AddNew
RS.fields("Project_Number").Value = Me![ProjectNumber]
RS.Update
RS.Close
Set RS = Nothing

[ranman256]

You actually dont need ANY code. The button should run an update query, Using the value in the box. (Zero coding!)

[rpeare]

dim db
dim sSQL as string
set db = currentdb
sSQL = "INSERT INTO Projects (Project_Number) VALUES (" & [projectnumber] & ")"
db.execute ssql
set db = nothing

[zipaway]

You actually dont need ANY code. The button should run an update query, Using the value in the box. (Zero coding!)

Wow I didn't think of that, but how do you link the textbox to the Update Query???

[rpeare]

it's not actually linking if you're just appending a record

you create an append query, add the table you want, add the field you want to append to and put [forms]![formname]![fieldname] in the FIELD row.

[zipaway]

it's not actually linking if you're just appending a record

you create an append query, add the table you want, add the field you want to append to and put [forms]![formname]![fieldname] in the FIELD row.

Thanks, this worked.