Ordinamento records nella maschera

Originariamente inviato da mailman_1969

Problema: avendo messo il Requery nella sub del comando salva, quando devo modificare un record che non e' l'ultimo inserito, al salvataggio, la maschera fa ovviamente il riordino e si porta sull'ultimo record, mentre, io avrei bisogno di non spostare il focus dal record corrente.
Se condizionassi il requery solo se il record corrente e' l'ultimo inserito, potrebbe essere una soluzione valida?

Ho provato questa soluzione e funziona...

Private Sub cmdfrmOLsalva_Click()
On Error GoTo Err_cmdfrmOLsalva_Click

Dim indice As Integer

    DoCmd.RunCommand acCmdSaveRecord
    
    indice = Nz(DMax("IDtabOLid", "TabOreLavorate"), 0)
    If indice > frmOLIDtabOLid.Value Then GoTo Exit_cmdfrmOLsalva_Click
    
Me.Requery
        
Exit_cmdfrmOLsalva_Click:
    Exit Sub

Err_cmdfrmOLsalva_Click:
    MsgBox Err.Description
    Resume Exit_cmdfrmOLsalva_Click
    
End Sub

Si potrebbe fare in altro modo?

Questa mattina ho testato meglio la funzione e mi si blocca con messaggio di errore "overflow" quando esegue la riga:

indice = Nz(DMax("IDtabOLid", "TabOreLavorate"), 0)

e' perche' in tabella ci sono circa 82.000 records e non riesce a leggerli tutti?
Qualche suggerimento?
Grazie in anticipo

Originariamente inviato da mailman_1969

...si blocca con messaggio di errore "overflow"

Il valore massimo che una variabile di tipo integer può assumere è 32.767

Integer — For integers that range from -32,768 to +32,767.
https://support.microsoft.com/en-us/...2-36b93f966a33

Devi usare una variabile Long.

Originariamente inviato da mailman_1969

Questa mattina ho testato meglio la funzione e mi si blocca con messaggio di errore "overflow" quando esegue la riga:

indice = Nz(DMax("IDtabOLid", "TabOreLavorate"), 0)

e' perche' in tabella ci sono circa 82.000 records e non riesce a leggerli tutti?
Qualche suggerimento?
Grazie in anticipo

Prima che arrivi qualcun altro, mi do dello "stupido" da solo, ho copiato il codice da una altra maschera in cui funzionava ma mi sono dimenticato di cambiare la dichiarazione di indice: essendo un ID ci va Long invece di Integer.

Scusate, adesso funziona.