🚀 go-pugleaf

Ho una maschera con tre txtbox in cui inserisco tre valori. Alla
pressione del tasto visualizza viene eseguita questa routine:
Private Sub Visualizza_Click()
On Error GoTo Err_Visualizza_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    If Not IsNull(Me.Corso) Then
        stLinkCriteria = "[CodCorso] = " & Me![Corso]
    End If
    If Not IsNull(Me.Materia) Then
        If Not IsNull(Me.Corso) Then
            stLinkCriteria = stLinkCriteria & " And " & "[CodMateria] =
" & Me![Materia]
        Else
            stLinkCriteria = "[CodMateria] = " & Me![Materia]
        End If
    End If
    If Not IsNull(Me.Personale) Then
        If Not IsNull(Me.Materia) Or Not IsNull(Me.Corso) Then
            stLinkCriteria = stLinkCriteria & " And " & "[CodPersonale]
= " & Me![Personale]
        Else
            stLinkCriteria = stLinkCriteria & "[CodPersonale] = " &
Me![Personale]
        End If
    End If
    stDocName = "mVisualizzaCalendario"
    DoCmd.Close
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Visualizza_Click:
    Exit Sub
Err_Visualizza_Click:
    MsgBox Err.Description
    Resume Exit_Visualizza_Click
End Sub

Mi si apre quindi la maschera mVisualizzaCalendario a cui vengono
passati i criteri di selezione contenuti in stLinkCriteria.

Ora io vorrei, alla pressione di un bottone sulla maschera
mVisualizzaCalendario, inserire i dati contenuti nel rekordset che
popola la maschera in un foglio di excel.
In pratica, come faccio passare alla query che vado ad aprire e che
popolerà il foglio di excel, i parametri provenienti dalla maschera
che ha il pulsante visualizza? Spero di essere stato chiaro.