Copy Selected Column from one table to another

[uzair_zaman]

Hi,
I have two tables (table1 and table2). What I want is, if I will select a column in table1 then i want to copy that selected row and paste it in to table2.
I am assuming that I have to somehow pickup the selected column from table1 and save the data into an array or variables and paste the data in to a column in table2.
I have already wasted alot of time in checking for the solution. Kindly advice?
Thanks in advance.
Regards,
Uzair

[HiTechCoach]

If it were me, I would use an append query.

[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

[HiTechCoach]

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


Actually that is exactly what I was suggesting since you did use an append query.


Your code can be simplified to be just:



Private Sub Command_Click()
Dim st As String

' build the append query SQL
st = "Insert Into [DestinationTable] ([RecID]) Select [RecID] From [SourceTable] Where [RecID] = '" & Me.[RecID] & "';"

' run the append query
CurrentDB.Execute st, dbFailOnError

End Sub

[uzair_zaman]

Exactly. Thanks for your reply.
Regards,
Uzair

[uzair_zaman]

Exactly. Thanks for your reply.
Regards,
Uzair
:yes