Newsgroup: it.comp.appl.access
Titolo: Copia-dupplica record, come in codice?

Rieccomi a disturbarvi ^_^
Dovrei fare questa operazione (pulsante):
In una maschera, su click vorrei:
1) impostare una variabile contenente il numero del record in cui mi trovo
2) aprire le tabelle [Tab1],[tab2],etc
3) copiare di ognuna tutto il record corrispondente alla contenuto della
    variabile in un nuovo record
----------------------------------------------------------------------------------------------------------------
Ho provato a fare:
----------------------------------------------------------------------------------------------------------------
 ' Imposto il record corrente della maschera
RecCorr = Me.CurrentRecord
 ' Scelta costruzioni elettriche
Set rst = CurrentDb.OpenRecordset("select * from [TABELLA1] order 
by[Contatore];")
 rst.Move RecCorr
 ' Seleziona record e copia.
  DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdCopy
   rst.MoveLast
  DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdPaste
----------------------------------------------------------------------------------------------------------------
Ma mi da errore in incolla, cosa baglio :-/ ?
----------------------------------------------------------------------------------------------------------------
Grazie per l'eventuale aiuto, e di sopportarmi ^_^
-- 
A.GiovanniB. 


Sul sito della microsoft c'è il codice da applicare su un pulsante di
una maschera per duplicare il record corrente della maschera
principale e tutti i record della/e sottomaschere.
Prova a cercare, se non ricordo male il codice si chiama BtnDuplicate.
Ciao Giuseppe.

Prova a cercare, se non ricordo male il codice si chiama BtnDuplicate.
Ho cercato appunto quel che mi hai consigliato:
http://support.microsoft.com/kb/208824/it
Ma "buio" ;-/
Copierebbe una maschera con i relativi record
e poi dopo il punto ".AddNew" dovrei aggiungere (scrivere) a mano i vari
 campi? ;-/
Facendo un pulsante e scegliendo "operazioni su record",
 crea una macro che fa le seguenti cose:
  Seleziona record
  Copia
  Vai a nuovo
  Seleziona record
  Incolla
Mi servirebbe la stessa cosa in codice ;-/
Dovrebbe essere:
  DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdCopy
  rst.MoveLast
  DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdPaste
Ma mi da errore in incolla:
    Errore di run-time '2046'
    Comando o azione 'Incolla' non disponibile
Non so dove sbaglio ;-/
-- 
A.GiovanniB.

     variabile in un nuovo record
Il record nella maschera ha un identificativo univoco?
Se si, te la cavi in tempo zero con
Docmd.RunSQL "INSERT INTO Tabelladestinazione (*) SELECT * FROM
OrigineDatiMaschera WHERE ID=" & forms!NomeMaschera!ID
cia'
Max

 OrigineDatiMaschera WHERE ID=" & forms!NomeMaschera!ID
:-/
Passo, mi ci son addentrato una mezz'oretta ed alla fine non mi "digerisce" 
un
 campo testo.
Se non trovo un'altra soluzione in codice, mi tengo le macro per fare il
 copia/incolla del record (come del resto fa in automatico il wizard di 
access per
 il pulsante copia record), e tutte le altre funzioni in codice.
Ti ringrazio comunque per il tempo che mi hai dedicato.
-- 
A.GiovanniB. 

 Dovrebbe essere:




Perché non trasformi la macro in VB, così vedi come è il codice e poi te
lo modifichi come vuoi.
Pino
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 lo modifichi come vuoi.
Ehm... come?
-- 
A.GiovanniB. 

Facendo un mix macro/codice funziona:
    RecCorr = Me.CurrentRecord
    Set RST = CurrentDb.OpenRecordset("select * from TABELLA order by 
[Contatore];")
    RST.Move RecCorr
       DoCmd.SetWarnings False
       DoCmd.OpenTable TABELLA , , acEdit
          DoCmd.GoToRecord , , acGoTo, RecCorr
            DoCmd.RunMacro "COPIARecord.COPIA"
          DoCmd.GoToRecord , , acNewRec
            DoCmd.RunMacro "COPIARecord.INCOLLA"
          DoCmd.Save
       DoCmd.Close , TABELLA
Facendo così il programma funziona, anche se "mi sembra poco bello"
 usare una macro per il:
  [seleziona record] -> [copia]
  [seleziona record] -> [incolla]
Pace ^_^
Tnk comunque per la vostra disponibilità ad un semi-newbie
-- 
A.GiovanniB. 

 Ehm... come?
Se ricordo bene, strumenti, macro, converti  in vb


 Se ricordo bene, strumenti, macro, converti  in vb
Mi LOLlo da solo ;°°}
Macro->Salva come->Modulo...
Tnk.
-- 
A.GiovanniB.