[VBA] salvare con nome da access

[Zat]

Smanettandoci sopra sono fiero di mostrarvi il codice che funziona: questa routine permette, con un ciclo for, di salvare una serie di file word con il nome e il cognome della persona a cui si riferiscono.

Viene risolto anche il problema dell'errore di run-time 462, e la soluzione la si trova qui

Molto bene, avanti così

Private Sub Comando20_Click() 
Dim i As Integer 
'Aggiungo il contatore - MODIFICA LIMITE A SECONDA DEI RECORD' 
For i = 1 To 3 
'Late binding 
Dim myApp As Word.Application 
Set myApp = CreateObject("Word.Application")  
  
Dim myDoc As Word.Document 
Set myDoc = myApp.Documents.Add(Template:="scheda2.dot") 
Dim myData As DAO.Database, myRec As DAO.Recordset 
Set myData = CurrentDb 
Dim cognome As String 
Dim nome As String  
'Compila il documento con i rispettivi campi' 
Set myRec = myData.OpenRecordset("SELECT cognome, nome, cf, data FROM [esponenti] where ID like '" & i & "' ") 
myDoc.FormFields("cognome").Result = myRec![cognome] 
myDoc.FormFields("nome").Result = myRec![nome] 
myDoc.FormFields("cf").Result = myRec![cf] 
myDoc.FormFields("data").Result = myRec![data] cognome = myRec![cognome] nome = myRec![nome]  
myDoc.SaveAs ("C:\Sound\" & cognome & " " & nome & ".doc")  
myApp.Visible = True  myDoc.Saved = True  
Set myDoc = Nothing  myApp.Quit  
Set myApp = Nothing  Next  End Sub