copy data error

[markjkubicki]

this short snipet is meant to copy the values of all fields in one record to the record currently being displayed in form frmSpec; it's not working... and the error is the allusive #2465 (both the form and the recordset have the same source table: tbeFixtureTypeDetails; but both would never be the same record)

any thoughts, comments or suggestions will be greatly appreciated


Private Sub cmdNextNumeric_Click()
Set Db = CurrentDb()
Set rst = Db.OpenRecordset("SELECT * " & _
"FROM tbeFixtureTypeDetails " & _
"WHERE tbeFixtureTypeDetails.type = '" & Me.[lblInitialAlpha].Caption & "';")
For Each fld In rst.Fields
strFieldName = fld.Name
' ****** it's this next line that is giving me problems
Forms![frmSpec].Fields(strFieldName) = Nz(fld.Value)
' ******
Next fld
Forms![frmSpec].Update
End Sub


many thanks in advance,
mark

[orange]

If you are displaying the records from a table on a Form, why not use a bound form?

Perhaps you should tell us what you are trying to do, and someone may help you with options on how to do it.

This is a new one to me

Forms![frmSpec].Update

[markjkubicki]

i am copyting data from an existing record to a newly created record that is currently displayed

the new record wil not be a complete duplicate of the existing, and the user typically will not know that they want the to create a 'similar' record till after they have started entering data into the new (and current) record (I do have code in place, although edited out of the snipet, that would prevent any data that the user has already entered in the new record from being overwritten -it would typically be only 2 or 3 fields)

the duplicated data is not "redundant"; and could, and most likely will be, edited, at a future time, indepenadanlty in each record.