Grazie Oregon per la tua gentilezza e disponibilità
Ti allego il codice che ti ripeto in fase di progettazione funziona correttamente (seguito anche con il debug), mentre non appena uso il runtime per distribuirlo mi da errore
Private Sub cmdInviaVoucher_Click()
On Error GoTo Errore
Dim strSQL As String
Dim NomOperatore As Variant
Dim DatInvio As Variant
Dim strNomeFile As String
Dim strEmail As String
Dim intrisposta As Integer
Dim Dipendente As String
Dipendente = Me.Operatore
If IsNull(Me.txtMailAg) Then
strEmail = ""
Else: strEmail = Me.[txtMailAg]
End If
intrisposta = MsgBox("Sei sicuro di voler inviare il VOUCHER in un unico file per email?", vbYesNo + vbQuestion, "")
If intrisposta = vbYes Then
strSQL = "UPDATE Voucher Set [Statovoucher] = 'Inviato' WHERE IdPratica=" & Me.IDPratica
DatInvio = "UPDATE Voucher Set [DataInvio] = Now() WHERE IdPratica=" & Me.IDPratica
NomOperatore = "UPDATE Voucher Set [InviatoDa] = Dipendente WHERE IdPratica=" & Me.IDPratica ' sicuramente la sintassi è sbagliata
DBEngine(0)(0).Execute strSQL
DBEngine(0)(0).Execute DatInvio
DBEngine(0)(0).Execute NomOperatore ' arrivato qui salta e va in Errore
Forms!Pratica.Refresh
DoCmd.OpenReport "Voucher unico", acViewReport, "", "[Voucher.IdPratica]=" & [IDPratica], acHidden
DoCmd.SendObject acReport, "Voucher unico", "PDFFormat(*.pdf)", strEmail, "", "", "Invio Voucher Pratica N° " & Me.NPratica & " emessa giorno " & [Data emissione pratica] ,"", True, ""
Else
Exit Sub
End If
Errore: Exit Sub
End Sub
Se poi posso abusare della tua gentilezza. Questo codice ha anche un problema ad un certo punto. devo fare in modo di scrivere sul campo [inviatoDa] il contenuto del campo Me.operatore, solo che il programma va in errore sulla riga 'DBEngine(0)(0).Execute NomOperatore'. Sicuramente ho sbagliato la sintassi
Grazie sempre e ti auguro una buona giornata