Bottone inserisci record

[turi]

Ciao a tutti ragazzi, spero che anche questa volta mi darete una mano.
Ho un form principale ed un sub form, essi sono relazionati tra loro tramite Cognome, nome e data di nascita (forse era meglio relazionarlo con l'id ).
quando visualizzo un utente a fianco c'è il sub form (tabellare) che mi visualizza tutti gli accessi dello stesso all'associazione.
Vorrei creare un pulsante che all'esecuzione dello stesso prenda il dato da un campo al quale imposterei il valore predefinito della data odierna (Campo Data di oggi) e lo inserisca direttamente nella tabella "accesso" andando direttamente al record successivo della tabella accesso (quindi senza la necessità di pigiare "nuovo record" dopo la pressione del pulsante).

Allego un'immagine per rendere più fluida la comprensione

Grazie.

[turi]

Ho trovato questa macro:

Codice: Seleziona tutto

REM  *****  BASIC  *****

Sub AggiornaPresenze(Event as object)

	Dim Form as Object
	Dim idProgetto as Integer
	
	Dim Conn, Stmt as Object
	Dim Sql as String

	
    Form = Event.Source.Model.Parent
    Conn = Form.ActiveConnection
    
	idProgetto = Form.getbyname("idProgetto").currentvalue

	Sql="INSERT INTO ""Presenze"" (""idProgetto"", ""dataAppuntamento"", ""codiceFiscale"")"
	Sql=Sql+" SELECT ""Calendario"".""idProgetto"", ""Calendario"".""data"", ""Anagrafe"".""codiceFiscale"" FROM ""Calendario"", ""Anagrafe"""
	Sql=Sql+" WHERE ""Calendario"".""idProgetto"" = "+idProgetto

	If MsgBox(Sql, 1) <> 1 Then
		MsgBox("Operazione annullata!", 0)
		Exit Sub
	End If

    Stmt = Conn.CreateStatement()
	Stmt.executeupdate(Sql)
	Stmt.close()

End sub

Dovrebbe andare bene per ciò che devo fare ma non la so impostare per le mie esigenze.

tabella 1 = librosoci
tabella 2 = accesso

la macro dovrebbe prendere da "librosoci" Data oggi (insieme a cognome, nome e data di nascita (la relazione)) e dovrebbe inserirli nella tabella "accesso" (sub form tabellare di librosoci).

Spero di essermi spiegato bene, a fare gli esempi sono proprio negato