Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

[ACCESS] Copia da -> a

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

[ACCESS] Copia da -> a

Messaggioda air.wolf » mar lug 13, 2004 9:09 am

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
Avatar utente
air.wolf
Senior Member
Senior Member
 
Messaggi: 327
Iscritto il: ven set 12, 2003 3:32 pm
Località: Veneto

Messaggioda air.wolf » ven ago 06, 2004 4:23 pm

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
Avatar utente
air.wolf
Senior Member
Senior Member
 
Messaggi: 327
Iscritto il: ven set 12, 2003 3:32 pm
Località: Veneto


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising