problema database access 97 su access 2019

Question

ciao, scusate ho un database access creato con access97 e ha funzionato tutto fino a quando sono stata costretta a passare a office 2019 

questo è il codice che mi avevano scritto per copiare i dati di un record sul record successivo

Private Sub CopiaInNuovo_Click()

  Dim CF As String, IDF As Long, Descr As String, ALIVA As Integer

  Dim IDTipo As Long, IdTaglia As Long, IDGruppo As Long, IDColore As Long

  Dim db As DAO.Database, rs As DAO.Recordset, costo, Prezzo, SPUNTASTOCK

  If Me.NewRecord = True Then Exit Sub

  CF = Me.CodiceFornitore: IDF = Me.Fornitore: Descr = Me.descrizione: ALIVA = Me.ALIVA

  IDTipo = Me.Tipo: IdTaglia = Me.Taglia: IDGruppo = Me.Gruppo: IDColore = Me.Colore

  costo = Me.costo: Prezzo = Me.Prezzo: SPUNTASTOCK = Me.SPUNTASTOCK

  DoCmd.GoToRecord , , acNewRec

  Me.codice = "Questo lo devi sostituire"

  Me.CodiceFornitore = CF

  Me.Fornitore = IDF

  Me.descrizione = Descr

  Me.ALIVA = ALIVA

  Me.Tipo = IDTipo

  Me.Taglia = IdTaglia

  Me.Gruppo = IDGruppo

  Me.Colore = IDColore

  Me.costo = costo

  Me.Prezzo = Prezzo

  Me.SPUNTASTOCK = SPUNTASTOCK

  Me.codice.SetFocus

End Sub

come detto funzionava benissimo, funzionava anche con office 2010, con office 2019 quando passa al record successivo, ne crea due di record e quindi lascia un primo record vuoto e scrive sul secondo.

Spero di essere stata chiara

qualcuno mi può aiutare?

grazie in anticipo

Answer 1

ciao Francesca,

codice non molto bello e per certi versi non propriamente corretto indipendentemente dalla versione di Access.

Le variabile oggetto che seguono sono dichiarate e non utilizzate :

Dim db As DAO.Database, rs As DAO.Recordset,

e quelle che seguono sembrano numeriche dal nome  :

costo, Prezzo, SPUNTASTOCK

ma sono dichiarate variant. 

Credo che tu non stia utlizzando option explicit altrimenti avresti ottenuto un errore.

Ti ho messo su una demo al volo che duplica due campi ti segnala la duplicazione e reimposta il bookmark sullo stesso record da cui la duplicazione si attiva QUI.

Per renderla effettiva nel tuo database devi modificare il nome della tabella e dei campi e prestare attenzione soprattutto al stringa sql che attiva l'insert nella tabella.

Ciao, Sandro.

Answer 2

Lo devi postare tramite un cloud storage tipo DropBox o OneDrive poi inserire nel post, sul forum, l'indirizzo che ti viene rilasciato all'atto della condivisione.

Answer 3

posso fare di meglio, ti giro tutto il programma. non credo sia fattibile qui, se mi dai un'indirizzo di posta ti giro tutto

Grazie!!!

e  comunque sembra strano ma se provo sull'altro pc dove ho office 2010 funziona qui con 2019 fa quello scherzetto di lasciare un record vuoto

Answer 4

ciao Francesca,

nemmeno io sono un programmatore quindi siamo in due :-).

Se mi credo, credi anche al fatto che per ottenere quanto stai chiedendo ci sono modi migliori di quello che mostri e te ne ho mostrato uno nella demo che ti consiglio ancora una volta di controllare e cercare di clonare nel tuo scenario, non è per nulla difficile.

Se hai difficoltà prova ad indicare la tabella di riferimento  - quella in cui devi inserire i dati - e vedo di cercare di aiutarti.

Il codice che mostri, non ha nulla di trascendentale e mi stupisco dell'anomalia che denunci con A19, potrebbe esserci dell'altro che mi sfugge o che trascuri...

Facci sapere.

Ciao, Sandro.

Answer 5

ti premetto che non ho le competenze per risponderti, ovviamente ti credo, non sono una programmatrice, sono una semplice utilizzatrice che ha qualche piccola dimestichezza con access, quel pezzo di codice fa parte del programmino che gestisce il mio magazzino, vorrei poter continuare ad usarlo perché mi ci trovo bene, era stato fatto sulle mie esigenze (sono parecchi anni che lo uso) il problema è che sono passata da office 2010 a office 2019 e qualcosa (ovviamente non so cosa) è cambiato. riesci o riuscite a capire come posso ovviare al problema che mi si presenta?

vi prego!!!