[ACCESS] Copia da -> a

[air.wolf]

Ciao
Io ho una tabella con una 20 di campi. La chiave è un codice. Avrei bisogno di fare una maschera che dice: "cerca il codice che trovi nella text 1 all'interno del campo codice, copia tutti gli altri campi relativi a questo codice (tranne quello del codice ovviamente); cerca il codice che trovi nella text 2 all'interno del campo codice, incola tutti i campi (tranne quello del codice ovviamente); se il codice della text 2 è inesistente segnalamelo".

grazie

ciao

[air.wolf]

Se a qualcuno interessa, ho fatto così:

Option Compare Database
Option Explicit

Dim db As DataBase
Dim tabe1, TABE2 As Recordset

Sub r_duplica()
Dim COD1, COD2, FIL
COD1 = InputBox("Inserisci il codice di ORIGINE :", , "")
If COD1 <> "" Then
COD2 = InputBox("Inserisci il codice di DESTINAZIONE :", , "")
If COD2 <> "" Then
Set db = OpenDatabase("path
ome.mdb")
Set tabe1 = db.OpenRecordset("SELECT * FROM NOMETABELLA WHERE codice='" & COD1 & "'")
Set TABE2 = db.OpenRecordset("SELECT * FROM NOMETABELLE WHERE codice='" & COD2 & "'")
While Not tabe1.EOF
For Each FIL In tabe1.Fields
If UCase(FIL.Name) <> "CAMPO DA NON COPIARE" And UCase(FIL.Name) <> "ALTRO CAMPO DA NON COPIARE" Then
TABE2.Edit
TABE2.Fields(FIL.Name).Value = FIL.Value
TABE2.update
End If
Next
tabe1.MoveNext
Wend
tabe1.Close
TABE2.Close
db.Close
End If
End If
End Sub



Ciao