Macro Clona vai a ultimo record

[Giove]

Ciao, ho trovato questa macro sul forum e l'ho adattata al mio database.
Funziona bene, ma il formulario non si posiziona sull'ultimo record, ma va la primo.

Io vorrei che si posizionasse sull'ultimo RECORD.

Grazie a Tutti

Codice: Seleziona tutto

Sub ClonaRecord(oEvent As Object)
	oForm = oEvent.Source.Model.Parent 
	On Error Goto DONE
	IF oForm.isNew THEN oForm.insertRow() ELSE oForm.updateRow
	iIDCliente = oForm.Columns.GetByName("ID Dipendenti").Value
	n = 1
	For n = 1 to 1
	ThisDatabaseDocument.FormDocuments.getByName("Dipendenti").close
	 ThisDatabaseDocument.FormDocuments.getByName("Lettura test").open
		oForm.moveToInsertRow
		oStatement = oForm.ActiveConnection.createStatement() 
		sColumns = "" 
		sColumns = sColumns & """ID Dipendenti"""  
			    sSQL = "INSERT INTO ""Lettura test"" (" & sColumns & ") SELECT " & sColumns & " FROM ""Dipendenti"" WHERE ""ID Dipendenti"" = " & iIDCliente
		oStatement.executeUpdate( sSQL ) 
	Next n
		oForm.reload
	oForm.last
  DONE:
End Sub

[charlie]

Ciao, va bene lo stesso un nuovo Record? viewtopic.php?f=13&t=5140

[Giove]

Editato: Citazione dell'intero messaggio precedente eliminata perchè inutile (moderatore charlie)

Purtroppo non va bene, devo andare all' ultimo record .

Ciao

[vladboscaneanu]

Codice: Seleziona tutto

Sub Main
ThisComponent.DrawPage.Forms(0).last()'
End Sub

[Giove]

Editato: Citazione dell'intero messaggio precedente eliminata perchè inutile (moderatore charlie)

Scusa ma non riesco a posizionare la tua riga all'interno della macro sottostante... mi puoi aiutare?

Editato: Codice già inserito in messaggio precedente eliminato perchè inutile (moderatore charlie)

[vladboscaneanu]

1.Devi aggiungere alla fine,prima di End Sub, solo il comando,senza Sub e End sub...
2.Oppure elimina completamente il tuo codice e lascia solo quello dell'allegato di prima...
P.S.Pero vedo che stai eseguendo anche un INSERT...che cosa fa lui qui,con la tua domanda,è un mistero al livello di Discovery Channel..almeno per me...

[Giove]

Provato... non funziona.

Grazie

[charlie]

Ciao, la macro di @vladboscaneanu nel suo file esempio funziona.
Se posti il tuo file qualcuno può provare ad aiutarti ad inserirla all'interno della tua macro.
Ma non hai risposto alle obiezioni di @vladboscaneanu circa l'istruzione INSER INTO inserita nella tua macro. Ti serve ad eseguire un comando SQL?