How to insert records in a table

[shalskedar]

With reference to the attachment my Query is I want to insert 1 common value for the Columns Ref No & Address.

i.e If there are total 6 records in my table,The column Ref No should hold value 310/SA & the column Address should hold value Bedok .


Here the problem is these 2 columns values lies same for all other worksheets,wher eas other columns always 've a differing value.So in the given table i m trying to insert data in these 2 columns differently.
Below is my code to insert the values for columns Ref No & Address.

rs.MoveFirst
For i = 0 To rs.RecordCount
rs.Edit
rs.Fields(7) = CStr(Range("D39").Value)
rs.Fields(9) = CStr(Range("A33").Value)
rs.Update
rs.MoveNext
i = i + 1

[nico5038]

As you need all values set, you can use a faster UPDATE query instead like:

UPDATE tblYourTableName SET [Ref No] = "310/SA", [Address]="Bedok"

Nic;o)

[shalskedar]

As suggested I m using the below code for updating the table.
Can u Plz help me out with the syntax.Below is my code but getting error..

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim str As String
Set db = DAO.DBEngine.Op enDatabase("C:\---")
Set rs = db.OpenRecordse t("outer2", dbOpenDynaset)

db.Execute ("update [outer2] set [outer2].[Refno]=CStr(Range("D3 9").Value)")
MsgBox "done"
End Sub

Getting the error as expected list separator.

[nico5038]

Just use:

currentdb.execute ("update [outer2] set [outer2].[Refno]='" & CStr(Range("D39").Value) & "'")

Nic;o)

[shalskedar]

Thanks alot !!Its working