Recent content by Access 2003

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 Note: RecID is a Primary...