Ciao a tutti,
avevo 1 maschera nella quale, con un tasto, mi esportava in xls i dati (ho bisogno di dare il comando da VBA perchè devo inserire una legenda alla fine). Il DB è in una rete aziendale.
Il tutto funzionava finchè non ho dovuto inserire una sottomaschera nella maschera per la quale devo fare l'output.
nota: voglio che l'output venga creato da ogni utilizzatore sul desktop ed aperto...
L'output lo voglio solo sulla maschera, non sulla sua sottomaschera
Da allora, se mi copio il file sul mio desktop, il comando funziona, invece in rete mi dà "comando o azione "outputsu" attualmente non disponibile".
Qeual'è l'errore?
Grazie in anticipo...
il codice è:
Private Sub ESPORTA_Click()
On Error GoTo Err_ESPORTA_Click
Dim mysheet As Object, myfield As Variant
Dim rst As Recordset
Dim X As Integer
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
Dim T As Variant
oApp.Visible = True
T = Now()
T = "_" & Year(T) & Month(T) & Day(T)
Set rst = Me.Recordset
'CREA L'OUTPUT XLS SUL DESKTOP
DoCmd.OutputTo acOutputForm, "NOMEFILE", acFormatXLS, Environ("USERPROFILE") & "\Desktop\NOMEFILE" & T & ".xls"
'AVVIA XLS E APRE IL FILE APPENA CREATO
Set mysheet = oApp.Workbooks.Open(Environ("USERPROFILE") & "\Desktop\NOMEFILE" & T & ".xls").Sheets(1)
X = rst.RecordCount
mysheet.Cells(X + 3, 1).Value = "LEGENDA..."
' e qui inizio con la legenda.... (MA NON E' QUESTO IL PROBLEMA)
Exit_ESPORTA_Click:
Exit Sub
Err_ESPORTA_Click:
MsgBox Err.Description
Resume Exit_ESPORTA_Click
End Sub