Add Record and a Specified Field

[jeoku]

Hi,

I am using a form to add a record to a table and need to be able to specify one of the fields in the table that will be added to. This field is predetermined by another form selection. If there is a way to force a value on a title box with a control source this would also do the trick.

Thanks.

[rpeare]

you can set the value of any field by having code like this:


Field_Name = "TEST TEXT"

if the value is a text field

Field_Name = 12345

if the value is a numeric value

etc.

you just have to make sure your field is LOCKED and it is only populated after the person has made the appropriate choice in their data.

if you are trying to store a calculated value i'd caution you against that. There's no reason to store calculated values as they can be performed at the run time of any query/report/form.

[jeoku]

I think I would have to set the value of the field after I add the new record. Since I can't use the wizard what would be the code to add a new record first? And then I would use your suggested code to set that particular field.

[rpeare]

if you're using a bound form you don't have to specifically create a record, it's started as soon as you put data in any field of that record.

[jeoku]

I got some help and was able to figure somehting out. Here is what I did. It creates a blank record with just the specified field, and then I can go back and edit that particular record.

Private Sub AddSubmittal_Click()
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "INSERT INTO [Submittals] ([Project Title]) VALUES " & "('" & Me.Text26 & "');"
dbs.Close