Originally Posted by
uzair_zaman
Hi,
Thanks for your reply. I have actually solved it by adopting a different approach:
--------------------------------------
[FONT='Times New Roman','serif']Private Sub Command_Click()
Dim st As String
Dim db As DAO.Database
Set db = DBEngine(0)(0)
st = "Insert Into [DestinationTable] ([RecID]) Select [RecID] From [SourceTable] Where [RecID] = '" & Me.[RecID] & "';"
db.Execute st, dbFailOnError
Set db = Nothing
End Sub
---------------------------
I have used the concept of the above code to copy the column and paste it into another table using a Primary Key.
I am leaving the details here if someone else need it later on.
Thanks and regards,
Uzair