Newsgroup: it.comp.appl.access
Titolo: help per eventi

devo creare una maschera che contenga dei tasti comando per stampare i
record in dei report predefiniti, (fino qui tutto ok) ma quando mando in
stampa invecie di stampare solamente il record selezionato o su cui lavoro
mi stampa tutti i record.
Ho pensato ad utilizzare qualche query ma come posso fare???
Ringraziando anticipatamente
Antonio.
Le risposte possono essere inviate a:
kub...@tiscalinet.it
skyg...@tiscalinet.it
h2...@libero.it
a.lo...@libero.it
lolli...@infinito.it
Si prega di spedire le eventuali risposte e discussioni oltre che sul nsg
anche in uno dei sopraelencati  indirizzi.

Ciao,
La soluzione è quella di completare il comando docmd.OpenReport,ecc.
con un criterio che sarà la chiave del record stesso es.
Supponiamo che sei sul record n con chiave Id_Num_Record=10 il tuo
comando sarà il seguente:
docmd.openReport "nome
report",acNormal,,"id_num_record="&trim(str(me.id_num_record)))
dove il primo id_num_record corrisponde al campo chiave dell'origine
dati del tuo report e il secondo è il campo chiave della tua origine
dati della tua maschera.
Spero di essere stato chiaro.

-- 
Ferdinando Landi       e-mail: 
la...@mi.camcom.it

Crea un pulsante nella maschera di input , nominandolo ad es. "OK".
Nelle proprietà del pulsante, su CLICK, inserisci la seguente routine
evento......
Private Sub OK_Click()
'La riga sottostante salverà il record corrente insieme alle modifiche'
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
On Error GoTo Err_OK_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "NOMINATIVI"
    stLinkCriteria = "[IDNominativo]=" & Me![IDNominativo]
    DoCmd.OpenReport stDocName, , , stLinkCriteria
Exit_OK_Click:
    Exit Sub
Err_OK_Click:
    MsgBox err.Description
    Resume Exit_OK_Click
End Sub
Dopo aver creato un report es. "NOMINATIVI", con origine dati dalla stessa
tabella o query della maschera di input, potrai cliccare sul pulsante "OK",
e ti verrà stampato solo il record con l' "IDNominativo" visualizzato.
--
Posted from 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Devo ringraziare tutti quelli che hanno risposto al mio quisito, anche se in
maniera un po' complessa, comunque sono sicuro di poter utilizzare al meglio
i vostri consigli.
Ringraziandovi ancora tantissimo
Antonio

Mi devo innanzitutto scusare con i signori del newsgroup per aver spedito il
msg in html, da quello che ho capito non è buona edu.. ma ci tenevo tanto a
sottolineare le cose.
Devo ringraziare entrambi comunque ma per diritto di cronaca devo informare
che:
La soluzione proposta da Ferdinando Landi è praticamente perfetta per il mio
utilizzo, solamente che nel msg individuato in precedenza diceva:
domcd.openReport
"nome_report",acNormal,,"id_num_record="&trim(str(me.id_num_record)))
mentredovrebbe essere così
domcd.openReport
"nome_report",acNormal,,"id_num_record="&trim(str(me.id_num_record))
(sicuramente un errore di battitura)
La soluzione proposta da ""
GE.VI
 E.D.P."" è perfetta pure questa ma anche in
questa c'era un dubbio:
Private Sub OK_Click()
DoCmd.DoMenuItem acFromBar, acRecordsMenu, acSaveRecord, , acMenuVer70
On Error GoTo Err_OK_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "NOMINATIVI"
    stLinkCriteria = "[IDNominativo]=" & Me![IDNominativo]
    DoCmd.OpenReport stDocName, , , stLinkCriteria
Exit_OK_Click:
    Exit Sub
Err_OK_Click:
    MsgBox Err.Description
    Resume Exit_OK_Click
End Sub
Dove NOMINATIVO era il nome del report, e IDNominativi è la
tabella/query/maschera di input
Ma Access non riconosceva Private Sub OK_Click() perchè OK non andava
immesso ma si doveva lasciare il nome tipo assegnato, tipo "Comando 276"
esempio
Private Sub Comando276_Click()
DoCmd.DoMenuItem acFromBar, acRecordsMenu, acSaveRecord, , acMenuVer70
On Error GoTo Err_OK_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "NOMINATIVO"
    stLinkCriteria = "[IDNominativo]=" & Me![IDNominativo]
    DoCmd.OpenReport stDocName, , , stLinkCriteria
Exit_OK_Click:
    Exit Sub
Err_OK_Click:
    MsgBox Err.Description
    Resume Exit_OK_Click
End Sub
Almeno questo è quello a cui sono arrivato io con i miei tentativi, se al
contrario io mi dovessi essere sbagliato e dovessi aver detto delle
fesserie, allora mi scuso con le persone sopracitate a cui devo la riuscita
del mio programmino.
Antonio
h2...@libero.it

Caro Lollo per rinominare il pulsante con il nome "OK", vai nelle sul
proprietą/altro/nome elemento e scrivi nella riga OK.
Tutto OK?
Nel caso non dovessi riuscire, nella routine in tutte le sue parti dove
compare la parola OK cambiala con il nome del pulsante es. Comando276.
Cmq fai come ti ho detto e non avrai problemi.
Tutto OK? fammi sapere.
Maurizio
--
Posted from 
smtp1.libero.it
 [193.70.192.51] 
