I think this should be easy - set a value in a table

[dhstein]

I'm trying to update the field in a table from by reading in a text file.
The code is below

Dim rs As DAO.Recordset
Dim rsProducts As DAO.Recordset


Set rsProducts = CurrentDb.OpenRecordset("tblProduct")
rsProducts.Index = "ProductSKU"

..
.. Other Code here
..


Set rs = CurrentDb.OpenRecordset("Set_Product_Table", dbOpenSnapshot)



rsProducts.Seek "=", ![ProductSKU]
If rsProducts.NoMatch Then
MsgBox "This is a new item"
MsgBox ![ProductSKU]
With rsProducts
.AddNew
'?????????????????????????????????
' What code here sets the ProductSKU field for the new
record
'in the products table to the value
' of ProductSKU that is displayed in the MsgBox above?
' ???????????????????????????????
.Update
End With


Thanks for any help on this.

 

[Arvin Meyer [MVP]]

' What code here sets the ProductSKU field for the new record

!ProductSKU = Me.txtProductSKU

or:

!ProductSKU = "12345678"

 

[dhstein]

' What code here sets the ProductSKU field for the new record

!ProductSKU = Me.txtProductSKU

or:

!ProductSKU = "12345678"
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

I'm trying to update the field in a table from by reading in a text file.
The code is below

Dim rs As DAO.Recordset
Dim rsProducts As DAO.Recordset


Set rsProducts = CurrentDb.OpenRecordset("tblProduct")
rsProducts.Index = "ProductSKU"

.
. Other Code here
.


Set rs = CurrentDb.OpenRecordset("Set_Product_Table", dbOpenSnapshot)



rsProducts.Seek "=", ![ProductSKU]
If rsProducts.NoMatch Then
MsgBox "This is a new item"
MsgBox ![ProductSKU]
With rsProducts
.AddNew
'?????????????????????????????????
' What code here sets the ProductSKU field for the new
record
'in the products table to the value
' of ProductSKU that is displayed in the MsgBox above?
' ???????????????????????????????
.Update
End With


Thanks for any help on this.

Thanks for trying Arvin - but that didn't work - got the message method or data member not found

 

[Arvin Meyer [MVP]]

You must make sure that all the names of the objects are correct. I used
generic names based upon your post.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

' What code here sets the ProductSKU field for the new record

!ProductSKU = Me.txtProductSKU

or:

!ProductSKU = "12345678"
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

I'm trying to update the field in a table from by reading in a text
file.
The code is below

Dim rs As DAO.Recordset
Dim rsProducts As DAO.Recordset


Set rsProducts = CurrentDb.OpenRecordset("tblProduct")
rsProducts.Index = "ProductSKU"

.
. Other Code here
.


Set rs = CurrentDb.OpenRecordset("Set_Product_Table", dbOpenSnapshot)



rsProducts.Seek "=", ![ProductSKU]
If rsProducts.NoMatch Then
MsgBox "This is a new item"
MsgBox ![ProductSKU]
With rsProducts
.AddNew
'?????????????????????????????????
' What code here sets the ProductSKU field for the
new
record
'in the products table to the value
' of ProductSKU that is displayed in the MsgBox above?
' ???????????????????????????????
.Update
End With


Thanks for any help on this.

Thanks for trying Arvin - but that didn't work - got the message method
or data member not found