
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