Newsgroup: it.comp.appl.access
Titolo: Uso del metodo openreport A2000/W98

Salve a tutto l'NG,
ho una maschera per l'inserimento delle fatture.
Ho creato un tasto che via codice mi permette di
aprire il report per stampare la fattura.
Fino ad ora il report era appoggiato ad una query che
interrogava sul numero della fattura da stampare. Una
volta inserito il numero visualizza solo quella interessata.
Mi piacerebbe automatizzare il tutto in modo che quando
premo il tasto si apra il report della sola fattura aperta dalla maschera in
quel momento.
Ho provato a fare cosě :
Ho basato il report su una query che mostri tutte le fatture. A fronte
dell'evento click del tasto di stampa ho incollato il seguente codice :
On Error GoTo Err_Comando83_Click
    Dim stDocName As String
    Dim pippo As Integer
    pippo = Me.n_fatt.Value  'prende il numero della fatt dalla maschera
correntemente aperta
    DoCmd.OpenReport "fatture", acPreview, Me.n_fatt.Value = pippo
Exit_Comando83_Click:
    Exit Sub
Err_Comando83_Click:
    MsgBox Err.Description
    Resume Exit_Comando83_Click
End Sub
Purtroppo mi mostra sempre tutte le fatture.
Dove sbaglio?
Cordiali saluti
Sergio Della Giora

 ha scritto nel
messaggio news:9mntal$39irk$1...@ID-84518.news.dfncis.de...

L'errore č in questa riga:
DoCmd.OpenReport "fatture", acPreview, Me.n_fatt.Value = pippo, infatti devi
scrivere cosě:
DoCmd.OpenReport "fatture", acPreview, , "[Nome del controllo del report che
contiene il numero della fattura] =" &  pippo
fai attenzione perchč ho aggiunto una virgola, infatti come l'avevi scritto
tu non andava bene neanche la posizione.
Spero di essere stato chiaro fammi sapere.
Ciao Roberto - Syd

Innanzitutto grazie per avermi aiutato.
Ho provato a far ciň che mi hai suggerito, ma probabilmente (anzi
sicuramente) sbaglio ancora qualcosa. Nella riga da te scritta :
DoCmd.OpenReport "fatture", acPreview, , "[Nome del controllo del report che
contiene il numero della fattura] =" &  pippo
non capisco il simbolo "&". Appena lo inserisco mi viene la riga rossa, come
se ci fosse un errore.
Il nome del controllo nel report si chiama [n_fatt].
Ho provato a modificare la stringa in questo modo :
DoCmd.OpenReport stDocName, acPreview, , "[n_fatt]" = pippo
ma mi da un errore di " Tipo dati non corrispondente".
Se invece inserisco :
DoCmd.OpenReport stDocName, acPreview, , me.n_fatt.value = pippo
oppure
DoCmd.OpenReport stDocName, acPreview, , n_fatt = pippo
oppure
DoCmd.OpenReport stDocName, acPreview, , me.n_fatt = pippo
me li mostra tutti come prima.
L'unico modo per usare il carattere & č fare cosě :
DoCmd.OpenReport stDocName, acPreview, , "n_fatt =" & pippo
ma mi mostra una msgbox che chiede il valore di n_fatt.
Boh?!? Non so piů che pesci pigliare. Non riesco a capire dove sbaglio!
Saluti
Sergio Della Giora

 ha scritto nel
messaggio news:9mntal$39irk$1...@ID-84518.news.dfncis.de...

Se sia la maschera che il report hanno come origine record una tabella che
contiene un campo chiamato n_fatt.
Se la maschera ha un controllo associato al campo n_fatt che si chiama anche
lui n_fatt.
Se il report si chiama fatture.
A fronte dell'evento "Su clic" del pulsante di comando genera il seguente
codicge VBA:
    Dim stDocName As String
    Dim stCriteri As String
    stCriteri = "n_fatt=" & Me!n_fatt
    stDocName = "fatture"
    DoCmd.OpenReport stDocName, acPreview, , stCriteri
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel
messaggio news:9mocft$38r3c$1...@ID-84518.news.dfncis.de...

Non č possibile che ti faccia la riga rossa appena inserisci un carattere te
hai inserito la "&" (e commerciale) e hai premuto invio ma non lo dovevi
premere, perchč la riga finisce dopo la variabile pippo.
Questa č la riga giusta:
