Newsgroup: it.comp.appl.access
Titolo: dopo stampa aggiornare il contenuto di un campo di una tanbella

Ciao a tutti, mi spiego meglio, lancio un report con un tasto di
comando che mi apre una query che è l'origine del report, una delle
tabelle della query es. "TAB01" contiene un campo chiamato
"DA_FATTURARE" esso per defaul contiene "NO". Prima di lanciare il
report aggiorno il campo DA_FATTURARE a "ST" solo per i record che
voglio stampare, e dopo lancio la stampa con un tasto di comando inuna
maschera. una volta lanciata la stampa vorei che in automatico oppure
tramite un'altro pulsante mi aggiorni il contenuto del campo
"DA_FATTURARE" da ST a SI
Grazie mille
Salvatore

 ha scritto nel messaggio 
news:b03197a6-8029-427b...@v31g2000vbs.googlegroups.com...

Grazie mille
Salvatore
dopo la riga con cui lanci il comando di stampa, o su un nuovo bottone....
strsql =  "UPDATE TAB01 SET TAB01.DA_FATTURARE= "SI" WHERE 
(((TAB01.DA_FATTURARE)="ST"));"
docmd.setwarnigns=false ' per non far uscire il msg di comferma
docmd.runsql strsql
docmd.setwarnigns=false ' per ripristinare i msg dopo l'avvenuto update
è questo che vuoi? verifica bene quello che fa prima di lanciarlo su un 
database di produzione
ciao
Max 

 (((TAB01.DA_FATTURARE)="ST"));"
diventa di colore rosso, il cursore si posiziona su "SI" e l'errore
è :
Errore di compilazione:
Previsto: Fine istruzione
Ciao a ancora grazie

"sagrimal"  ha scritto nel messaggio 
news:47bc862b-a205-40bd...@p16g2000vbo.googlegroups.com...


Ciao a ancora grazie
_______Risposta
SI lo devi mettere tra apici singoli oppure lui crede che la tua stringa sia 
finita
MA

 - Mostra testo citato -
Ciao Max purtroppo non funziona ancora mi da questo errore
QUesto è l'errore : Argomento non facoltativo  su DoCMd.SetWarnings
Questa è l'istruzione:
Private Sub Comando22_Click()
On Error GoTo Err_Comando22_Click
    Dim stDocName As String
    stDocName = "FATTURA-DEFINITIVA"
    DoCmd.OpenReport stDocName, acPreview
    strsql = "UPDATE BOLLA SET BOLLA.FATTURATA=
'ST'WHERE(((BOLLA.FATTURATA)='SI'));"
    DoCmd.SetWarnings = False ' per non far uscire il msg di comferma
    DoCmd.RunSQL strsql
    DoCmd.SetWarnings = False ' per ripristinare i msg dopo l'avvenuto
update
Exit_Comando22_Click:
    Exit Sub
Err_Comando22_Click:
    MsgBox Err.Description
    Resume Exit_Comando22_Click
End Sub

 ha scritto nel messaggio 
news:ca7d5fde-c39f-4fc0...@t13g2000vbo.googlegroups.com...


QUesto č l'errore : Argomento non facoltativo  su DoCMd.SetWarnings
Questa č l'istruzione:
Private Sub Comando22_Click()
On Error GoTo Err_Comando22_Click
    Dim stDocName As String
    stDocName = "FATTURA-DEFINITIVA"
    DoCmd.OpenReport stDocName, acPreview
    strsql = "UPDATE BOLLA SET BOLLA.FATTURATA=
'ST'WHERE(((BOLLA.FATTURATA)='SI'));"
    DoCmd.SetWarnings = False ' per non far uscire il msg di comferma
    DoCmd.RunSQL strsql
    DoCmd.SetWarnings = False ' per ripristinare i msg dopo l'avvenuto
update
Exit_Comando22_Click:
    Exit Sub
Err_Comando22_Click:
    MsgBox Err.Description
    Resume Exit_Comando22_Click
End Sub
prova cosě, ho fatto una serie di errori di formattazione e definizione 
delle funzioni xkč non l'ho provata ma tirata giů di getto
Private Sub Comando22_Click()
On Error GoTo Err_Comando22_Click
    Dim stDocName As String
    stDocName = "FATTURA-DEFINITIVA"
    DoCmd.OpenReport stDocName, acPreview
    strsql = "UPDATE BOLLA SET BOLLA.FATTURATA=
'ST'WHERE(((BOLLA.FATTURATA)='SI'));"
    DoCmd.SetWarnings False
    DoCmd.RunSQL strsql
    DoCmd.SetWarnings true
update
Exit_Comando22_Click:
    Exit Sub

 - Mostra testo citato -
Errore di complilazione etichetta non definita..... sulla riga On
Error Go To Err_Comendo22_Click()
Private Sub Comando22_Click()
On Error GoTo Err_Comando22_Click
    Dim stDocName As String
    stDocName = "FATTURA-DEFINITIVA"
    DoCmd.OpenReport stDocName, acPreview
    strsql = "UPDATE BOLLA SET
BOLLA.FATTURATA='ST'WHERE(((BOLLA.FATTURATA)='SI'));"
    DoCmd.SetWarnings False
    DoCmd.RunSQL strsql
    DoCmd.SetWarnings True
Exit_Comando22_Click:
    Exit Sub
End Sub

"sagrimal"  ha scritto nel messaggio 
news:3c33e0bc-85ff-4eff...@r4g2000vbq.googlegroups.com...


On Error GoTo Err_Comando22_Click

Exit_Comando22_Click:
    Exit Sub
End Sub
_____________Risposta:
Hai cancellato la gestione degli errori
inserisci alla fine, prima di End sub
Err_Comando22_Click:
msgbox err.number & " " & err.description
resume Exit_Comando22

"MA"  ha scritto nel messaggio news:ilqa11$ick$1...@tdi.cu.mi.it...



On Error GoTo Err_Comando22_Click

Exit_Comando22_Click:
    Exit Sub


resume Exit_Comando22_Click
MA

 "sagrimal"  ha scritto nel messaggionews:3c33e0bc-85ff-4eff...@r4g2000vbq.googlegroups.com...

EVVIVA !!!!   Funziona grazie grazie grazie!!!!