[VBA] Access: query molto lenta con campi indicizzati

[abellos]

Ciao a tutti,
in una maschera di access ho questo codice:

Private Sub nota_avanzo_Change()
    Call ModificaNotaAvanzo
End Sub


Private Sub ModificaNotaAvanzo()
    Dim SQL As String
    Dim RS As DAO.Recordset
    Dim DB As DAO.Database
    
    Set DB = CurrentDb
    SQL = "SELECT nota_avanzo FROM pratiche WHERE pratica=" & Me.nPratica  ' - 1
	SQL = "SELECT nota_avanzo FROM pratiche WHERE idpratica=" & Me.idPR    ' - 2
    Set RS = DB.OpenRecordset(SQL)
    RS.Edit
    
    RS!nota_avanzo = Me.nota_avanzo.Text
    RS.Update
    RS.Close
    Set RS = Nothing
    DB.Close
    Set DB = Nothing
End Sub

Nota_avanzo su database e' un campo memo, nella maschera si tratta di una textbox che quando viene modificata salva il suo contenuto su DB.
Nella tabella pratiche ho due campi uno che si chiama pratica e uno idpratica.
Il campo idpratica e' numerico intero lungo autoincrementante e indicizzato con duplicati non ammessi e chiave primari, il campo pratica e' numerico precisione doppia indicizzato duplicati non ammessi.
Se uso SQL 1 per modificare il dato impiega 0,02 - 0,05 secondi, se uso SQL 2 ogni carattere che premo ci vogliono dai 4 ai 7 secondi per avere nuovamente il controllo della maschera e poter digitare un altro carattere.
Mi e' successo anche di avere bisogno di una query che si basa sul campo idpratica e risultava molto lenta.
Volevo capire il motivo di una differenza cosi elevata, nella tabella ci sono 176762 record, mi sapete aiutare?

[optime]

idPR è indicizzato?

[abellos]

idPr e' una textbox nella maschera, idpratica nella tabella e' indicizzato con duplicati non ammessi ed e' anche chiave primaria

[alka]

Che senso ha fare il salvataggio ogni volta che si modifica il testo nella casella?

E ancora, perché non fare direttamente una UPDATE invece di aprire una query con SELECT che sia editabile, aggiornare il campo e salvarlo, facendo quindi una pletora di passaggi poco performanti e operazioni inutili?

[optime]

cavolo, non l'avevo visto! ogni carattere digitato cerca e salva? wow!

[abellos]

si avete ragione, ma ho fatto cosi in modo che chi lo usa se si dimentica di salvare la nota non la perda, vedo se riesco a fare in altro modo.

ho provato come suggerisci tu alka ma i tempi non cambiano, ci sono sempre differenze molto elevate se uso nella clausola WHERE idpratica oppure pratica, non capisco il motivo dato che sono entrambi campi indicizzati e numerici

avete altre idee?

[optime]

richiedo: la colonna pratiche.idPR è indicizzata?

[optime]

idpratica oppure pratica ... sono entrambi campi indicizzati e numerici

ok, non avevo visto.

puoi postare il codice attuale?

[abellos]

ciao,
il codice che uso ora e'

Private Sub ModificaNotaAvanzo()
    Dim SQL As String
    Dim StartTime As Double
    Dim Tempo1 As Double
    Dim Tempo2 As Double
    
    StartTime = Timer


    SQL = "UPDATE pratiche SET nota_avanzo='" & FixApici(Me.nota_avanzo.Text) & "' WHERE pratica=" & Me.nPratica
    CurrentDb.Execute SQL
    CurrentDb.Close
    
    Tempo1 = Round(Timer - StartTime, 2)
    
    tempi.Caption = "T1: " & Tempo1 & " s"
                        
End Sub

la funzione fixApici raddoppia solamente gli apici ' in modo da non avere problemi se si inseriscono apostrofi

[SirJo]

richiedo: la colonna pratiche.idPR è indicizzata?

aveva già risposto di si, vedi messaggi precedenti