Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
In quella che ho chiamato (3), aggiungi il seguente codice:
Private Sub Form_Current()
Parent.Form.Filter = "[ID]=" & Me.ID
Parent.Form.FilterOn = True
End Sub
Con clic su un record di (3), visualizzi il record in (1).
Se non hai motivi per impostare diversamente la query sottostante la (3), puoi impostare come ID decrescente: nelle Proprietà/Dati/Ordina per: [ID] DESC
In tal modo l'ultimo record inserito sarà sempre il primo in (1) e la (2) non serve.
Nella (1)
- per salvare il record inserito, aggiungi un tasto che esegue Salva Record
- aggiungi
Private Sub Form_AfterUpdate()
Me.Sottomaschera(3).Requery ' Sostituendo il nome a Sottomaschera(3)
End Sub
Per inserire un nuovo record nella (1), aggiungi un tasto che esegue Vai a nuovo record.