Newsgroup: it.comp.appl.access
Titolo: Duplicare un record parzialmente

Vorrei duplicare un record solamente certi campi per esempio denominazione
indirizzo ecc. e non il numero della lettera inviata
Con l'autocomposizione mi raddoppia pari pari tutti i campi del record e
questo non mi sta bene
Ho provato vedere nel sito comune però non trovo nulla
Chi mi può aiutare a risolvere il problema
Grazie Valter

Ho paura che senza 2 righe di codice non si faccia nulla.
Devi recuperare innanzitutto il record in un Recordset, e a questo punto hai
tutti i campi disponibili.
Esegui un bell Addnew nella tabella e gli salvi solo i campi che ti sevono.
Non so se la risposta è troppo evasiva, non sapendo il livello di
programmazione a cui sei.
Alex.
-- 
Posted from [212.141.54.103] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
000301c11397$178d2500$850d623e@w1v7p0...

Bè la programmazione mia non è molto elevata direi di base, che ci sia da
fare un pò di righe di codice sono consapevole ma spero che mi possa dare
un'indicazione in tal senso.
Grazie Valter

Sai usare ADO?Bene perchè un Recordset lo apri con questo.
****************************************************************************
Public connConnection As ADODB.Connection  *** Sono Public solo se le metti
in un Modulo ***
Public rsRecordSet As ADODB.Recordset         *** Sono Public solo se le
metti in un Modulo ***
****************************************************************************
Private Sub cmdOpenConnection_Click()
    Dim strConnect As String
    Dim strProvider As String
    Dim strDataSource As String
    Dim strDataBaseName As String
    strProvider = "Provider= Microsoft.Jet.OLEDB.3.51;"
    strDataSource = App.Path
    strDataBaseName = "\ADOTutorial.mdb;"
    strDataSource = "Data Source=" & strDataSource & _
        strDataBaseName
    strConnect = strProvider & strDataSource
    Set connConnection = New ADODB.Connection
    connConnection.CursorLocation = adUseClient
    connConnection.Open strConnect
    Set rsRecordSet = New ADODB.Recordset
    rsRecordSet.CursorType = adOpenStatic
    rsRecordSet.CursorLocation = adUseClient
    rsRecordSet.LockType = adLockPessimistic
    rsRecordSet.Source = "Select * From TuaTabella Where (Condition)"  ***
Ovv.nte le condiz. le sai TU! ***
    rsRecordSet.ActiveConnection = connConnection
    rsRecordSet.Open
End Sub
**********************************************
Ora nel Recordset hai una copia Esatta del record che soddisfa le tue
condizioni.
Per inserire un Nuovo Record nella Tabella ora:
Private Sub cmdSave_Click()
        NewCampo1=rsRecordSet.Fields("NomeCampo1").Value
        NewCampo2=rsRecordSet.Fields("NomeCampo2").Value
        rsRecordSet.AddNew
        rsRecordSet.Fields("NomeCampo1").Value=NewCampo1 *** Che avrai
copiato prima dal Recordset ****
        rsRecordSet.Fields("NomeCampo2").Value=NewCampo2 *** Che avrai
copiato prima dal Recordset ****
        rsRecordSet.Update **** Questa operazione salva il tutto nella
Tabella ****
End sub
Ovviamente va dichiarata la variabile rsRecordSet as ADODB.Recordset o a
livello di modulo o generica nella Form per poter essere recuperata dalla
Sub che effettua il Salvataggio.
Spero tutto chiaro!!! Perchè se hai dubbi credo sia complesso.
Ho usato ADO di proposito perchè DAO(nonostante più semplice sparirà).
Alex.
-- 
Posted from [212.141.54.102] 
