Newsgroup: it.comp.appl.access
Titolo: stampa report da maschera

Ciao a tutti, ho leggiucchiato un po' il gruppo e ho provato a mettere
in piedi questa cosa con access.
Tutto questo mi serve per stampare un report del record correntemente
visualizzato in una maschera.
Ecco un po' di info:
- la tabella su cui si basano come origine dati sia la maschera che il
report è la stessa
- la chiave primaria della tabella in questione è il campo ID (è un
contatore di access)
- lo stesso campo numerico ID è presente e visualizzato sia nella
maschera
che nel report
- il codice del pulsante "stampa" nella maschera è il seguente:
------------------------------
Private Sub Comando51_Click()
On Error GoTo Err_Comando51_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
    Dim stDocName As String
    stDocName = "rLetteraDimissione"
    DoCmd.OpenReport stDocName, acPreview, , "ID = " & Me!ID
Exit_Comando51_Click:
    Exit Sub
Err_Comando51_Click:
    MsgBox Err.Description
    Resume Exit_Comando51_Click
End Sub
------------------------------
Ho dovuto aggiungere un comando di SALVA RECORD prima della stampa,
altrimenti se stampavo appena avevo inserito i dati (senza spostarmi
tra i
record o senza chiudere la maschera), non mi stampava sul report i dati
aggiornati.
Secondo voi va tutto bene?
Grazie 1000 in anticipo a tutti.
Ciao a tutti, Alexsixf.

 ha scritto nel messaggio 
news:1148061175.3...@y43g2000cwc.googlegroups.com...




    Dim stDocName As String

Exit_Comando51_Click:
    Exit Sub

End Sub
------------------------------
Io uso questa così se c'è un filtro attivo stampo solo i record filtrati:
-----------------
    Dim stDocName As String
If Me.FilterOn Then
        strFilter = Me.Filter
    DoCmd.OpenReport ReportName:="rLetteraDimissione", View:=acPreview, 
WhereCondition:=strFilter
Else
    stDocName = "rLetteraDimissione"
    DoCmd.OpenReport stDocName, acPreview, , "tuaTabella.ID =" & Me.ID
End If
-----------------
Ciao Metz 

 Ciao Metz
Ok, grazie della dritta, ora provo a metterla nel mio codice.
Ciao, Alexsixf.

 >[...]
Mi è venuto un dubbio, e volevo avere delle info da voi, sempre
riferendomi al codice del mio primo msg.
Con questo codice:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,acMenuVer70
salvo il record nel db, prima di aprire il report, giusto?
E con questo codice:
stDocName = "rLetteraDimissione"
    DoCmd.OpenReport stDocName, acPreview, , "ID = " & Me!ID
Apro un report che visualizza lo stesso record che stava visualizzando
la maschera, giusto? Sono sicuro che non mi si presenti un report con
da diversi da quelli che erano correntemente visualizzati sulla mascher
a video, vero?
Così comincio ad imparare qualcosa di Vb anche io, finalmente...
Grazie per la pazienza, ciao a tutti !
Alexsixf.


Oppsss.... scusate, ho fatto qualche errore di battitura, riposto il
messaggio corretto:
Mi è venuto un dubbio, e volevo avere delle info da voi, sempre
riferendomi al codice del mio primo msg.
Con questo codice:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,acMenuVer70
salvo il record nel db, prima di aprire il report, giusto?
E con questo codice:
stDocName = "rLetteraDimissione"
    DoCmd.OpenReport stDocName, acPreview, , "ID = " & Me!ID
Apro un report che visualizza lo stesso record che stava visualizzando
la maschera, giusto? Sono sicuro che non mi si presenti un report con
dati diversi da quelli che erano correntemente visualizzati sulla
