Buonasera e grazie in anticipo
la procedura per la quale chiedo aiuto duplica molti campi (ma non tutti) di un record da un tabella di dati anagrafici
in sostanza duplica quasi completamente una anagrafica
ma avrei bisogno di fleggare a vero un campo logico della tabella in questione per riconoscerlo come record derivante da una procedura di duplicazione
Private Sub pulDuplica_Click()
' QUI
Dim myNumAnagrafe As Long
Dim myQuest As String
Dim myNome As String
Dim myElencoCampi As String
myElencoCampi = "NOME,SEX,NATO_IL,NATO_A,NATO_PROV,COD_FISCALE,EXTRA_UE,INDIRIZZO,CAP,CITTA,PROV,"
myElencoCampi = myElencoCampi & "TELEFONO,TEL_ALTRI,EMAIL,SOCIAL,CORSO,EX_PATENTE,DATA_ISCRIZIONE,"
myElencoCampi = myElencoCampi & "PRIVATISTA,ESTENSIONE,LISTINO,PROMOZIONI,NOTE_VELOCI,"
myElencoCampi = myElencoCampi & "APP_REG,APP_MAIL,APP_IOS,ALTRE_SCUOLE,FINANZIAMENTO,CC_SCUOLA,"
myElencoCampi = myElencoCampi & "NOTE_LUNGHE,PATENTE_NUM,PATENTE_DATA,PATENTE_SCAD,FILEFOTO"
myNumAnagrafe = 0
If Not IsNull(Me.crpAnagrafica) Then
myNumAnagrafe = Me.crpAnagrafica.Value
If myNumAnagrafe > 0 Then
myNome = Me.crpAnagrafica.Column(1)
myQuest = "CREAZIONE DI UNA NUOVA ANAGRAFICA ATTIVA" & vbCrLf
myQuest = myQuest & "DUPLICANDO I DATI PRINCIPALI DI" & vbCrLf
myQuest = myQuest & myNome & vbCrLf
myQuest = myQuest & "CONFERMI ?"
If MsgBox(myQuest, vbYesNo) = vbYes Then
CurrentDb.Execute "INSERT INTO Anagrafe (" & myElencoCampi & ") SELECT " & myElencoCampi & " FROM Anagrafe WHERE ID_ANAGRAFE = " & myNumAnagrafe
Me!crpAnagrafica.Requery
Call crpAnagrafica_AfterUpdate
End If
End If
End If
End Sub
Dopo aver fatto INSERT INTO dovrei andare a flaggare Vero un campo di quel record appena aggiunto
Come dovrei fare? Devo andare all'ultimo record e modificare il campo?