Newsgroup: it.comp.appl.access
Titolo: Estrapolare dati da una Tabella collegata ed incrementare e popolando l'altra

Salve a tutti
Ho un problema che non so come fare, e mi spiego subito.
Ho creato un database con campi Cognome, Nome, Data di Nascita, Indirizzo, PEC ed altri campi.
Ho creato una maschera con i campi relativi alla tabella nominata sopra e fin qui ci siamo.
Ho un'altro database di access collegato in rete dove viene aggiornato ogni giorno io avrei bisogno di estrapolare solo i cognomi e i nomi e riportarli nella mia tabella senza apporre nessuna modifica alla tabella collegata in rete.
Essendo che nella mia tabella oltre ai cognomi ed i nomi ci sono altri dati io vorrei che dalla mia maschera collegata alla mia tabella con più dati quando vado a popolare il mio dbase, devo prima fare una ricerca sulla tabella in rete il nominativo che cerco ed a sua volta me lo deve riportare nella mia tabella dove io lo incremento popolando i restanti campi, ovviamente senza apporre nessuna modifica alla tabella in rete.
Spero di essermi fatto capire.
Grazie a tutti.

..:: GiGhEn ::.. submitted this idea :

Se ho ben inteso, questa dovrabbe fare il tutto:
=================================================
Private Sub Command0_Click()
Dim LocalDB As Database, RemoteDB As Database
Dim LocalTableName As String, NewLinkedTableName As String
Dim NewLinkedTable As TableDef, RemoteTableName As String
Dim RemoteFilename As String, SQL As String
 
'---  Definizioni  --------------------
LocalTableName = "Nomi"
NewLinkedTableName = "t_Nomi"
RemoteFilename = "D:\Database1.accdb"
RemoteTableName = "Nomi"
'--------------------------------------
 
' Crea la tabella collegata
Set LocalDB = CurrentDb
Set RemoteDB = OpenDatabase(RemoteFilename)
 
Set NewLinkedTable = LocalDB.CreateTableDef(NewLinkedTableName)
NewLinkedTable.Connect = ";DATABASE=" & RemoteFilename
NewLinkedTable.SourceTableName = RemoteTableName
LocalDB.TableDefs.Append NewLinkedTable
RemoteDB.Close
 
' APPEND i record di RemoteTableName che non si trovano
' in LocalTableName
SQL = "INSERT INTO " & LocalTableName & "( Cognome, Nome ) "
SQL = SQL & "SELECT " & NewLinkedTableName & ".Cognome, "
SQL = SQL & NewLinkedTableName & ".Nome FROM "
SQL = SQL & NewLinkedTableName & " LEFT JOIN "
SQL = SQL & LocalTableName & " ON "
SQL = SQL & "(" & NewLinkedTableName & ".Nome = "
SQL = SQL & LocalTableName & ".Nome) AND ("
SQL = SQL & NewLinkedTableName & ".Cognome = "
SQL = SQL & LocalTableName & ".Cognome) "
SQL = SQL & "WHERE (((" & LocalTableName & ".Cognome) Is Null) "
SQL = SQL & "AND ((" & LocalTableName & ".Nome) Is Null));"
LocalDB.Execute SQL
 
' Elimina la tabella collegata
DoCmd.DeleteObject acTable, "t_Nomi"
 
End Sub
================================================
 
Bruno

 DoCmd.DeleteObject acTable, "t_Nomi"
 
Corrige:
DoCmd.DeleteObject acTable, NewLinkedTableName
 
Bruno


Ciao, scusami dl ritardo nel risponderti, ho avuto un lutto in famiglia e non avevo la testa per stare al pc. Comunque veniamo a noi.
Il codice che mi hai proposto non l'ho provato perche dalla lettura vedo che mi fai inserire un evento su click di un pulsante, ed io non avevo chiesto questo. 
In effetti io la mia tabella gia' l'h0 creata devo fare solo il collegamento della mi tabella e quella collegata in rete.
Spero di essermi fatto capire, se hai bisogno di altri dettagli non esitare a conttattarmi.
Cia e grazie.