copiare record già esistente in altra tabella

[ZumbaMan]

Ciao,

ho due tabelle: una si chiama "colleghi" e l'altra "rubrica telefonica".
Sono collegate da relazione 1 a molti. Visualizzo le suddette tabelle in una maschera (colleghi) con sottomaschera (rubrica). Attraverso il seguente codice verifico se, dopo aggiornamento del campo numero_tel, il numero di telefono inserito è già presente nella tabella:

Private Sub numero_tel_AfterUpdate()
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM Tbl_RubTel WHERE NumTel = '" & Me.numero.tel" 
Set rs = CurrentDb.OpenRecordset(strSQL)
With rs
  If Not .EOF Then
    MsgBox "Il numero è già presente in archivio", vbExclamation, "Attenzione"
   Cancel = True
   End If
 End With
End Sub

La mia domanda è: come, se il numero è già esistente, copiarlo in un'altra tabella, con riferimento a chi è assegnato (colleghi), in modo tale da avere un elenco di chi ha numeri di telefono comuni???

spero di essere stato chiaro e grazie

 

[Kairex]

Ciao ....
Con una query di creazione tabella che ti crea la tabella nuova con ID , Nome e Cognome e Num tel ....