Esporta dati in Excel da elenco filtrato

Question

Buongiorno a tutti

Una maschera continua visualizza l'elenco dei clienti e, a seconda dell'agente loggato, la maschera visualizza solo i clienti relativi all'agente e, nel caso in cui l'agente/utente loggato sia la direzione, la maschera visualizza l'elenco completo dei clienti.

In testa alla maschera, ho inserito un pulsante che permette di esportare la tabella clienti in Excel.

E' possibile fare in modo che, nel caso in cui l'agente loggato sia diverso dalla Direzione, vengano esportati solo i record relativi ai clienti dell'agente loggato?

Grazie a tutti per l'attenzione

Ciro

Answer 1

ciao Ciro,

crea una query e chiamandola come vuoi.

Prova a creare un command button che modifica on the fly la query che hai salvato.

Supponendo si chiami query3,

Const strSql As String = "select * from clienti " ' occhio allo spazio dopo il nome della tabella.

Dim qdf As DAO.QueryDef

Set qdf = DBEngine(0)(0).QueryDefs("query3")

qdf.SQL = strSql & me.filter

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "query3", "tuoFullPathFile.xlsx", -1 ' personalizza il nome del percorso completo del file di Excel

qdf.Close

Set qdf = Nothing

valuta anche il metodo outPutTO, sicuramente meno efficiente rispetto a TransferSpreadsheet, ma ti consente qualche minima formattazione.

Generalmente per questo genere di cose io opto per l'automazione aprendo una istanza verso Excel, ma ognuno ha I suoi approcci.

Ciao, Sandro.

Answer 2

Ciao Sandro,

ringrazio te e Mimmo per l'aiuto, alla fine ho optato per entrambe le soluzioni, in pratica ho scritto il seguente codice:

Private Sub Immagine46_Click()

    On Error GoTo Errore

    DoCmd.SetWarnings (WarningOff)

    DoCmd.RunSQL "SELECT CLIENTE.* INTO tblFiltrati FROM CLIENTE Where " & Me.Filter

    Dim Message, Title, Default, MyValue

    Message = "Inserire il nome del File da salvare...!"  ' Set prompt.

    Title = "Esporta Tabella Clienti in Excel"    ' Set title.

    Default = ""    ' Set default.

    ' Display message, title, and default value.

    MyValue = InputBox(Message, Title, Default)

    If MyValue = "" Then GoTo Errore

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tblFiltrati", Me.PERCORSO & "" & MyValue & ".xlsx", t

Dim strInput As String

    strInput = (Me.PERCORSO & "" & MyValue & ".xlsx")

    Application.FollowHyperlink strInput, , True

    GetUserAddress = True

    GoTo A

Errore:

    MsgBox "Non hai selezionato il nome del file " & vbCrLf & vbCrLf & "o stai tentando di aprire un file non correttamente salvato" & vbCrLf & vbCrLf & "prova a ripetere la procedura!!!", vbCritical, "ATTENZIONE!!!"

A:

    DoCmd.SetWarnings (WarningOn)

End Sub

Grazie ancora a entrambi per l'aiuto prezioso.

a presto

Ciro

Answer 3

Ciao,

quindi hai un me.filter da sfruttare.

Prova a creare una tabella temporanea con

DoCmd.runSql ("SELECT CLIENTE.* INTO tblFiltrati FROM CLIENTE Where " & Me.Filter

quindi esporta la tabella tblFiltrati.

Mimmo

Answer 4

Ciao Mimmo,

grazie per la risposta, il problema è che non posso usare la query origine dei dati semplicemente perché, questa seleziona tutti i record, i filtri vengono applicati successivamente per mezzo di combo

Ciro

Answer 5

Ciao,

prova ad esportare in Excel utilizzando la query origine  dati della maschera.

Mimmo