Newsgroup: it.comp.appl.access
Titolo: modificare contenuto record tramite controlli da form

Ciao A tutti.
il problema e' il seguente.
ho creato un report in cui vi e' la casella di testo non associata [txtfrm]
ho creato una maschera con i seguenti 4 controlli:
[SCONTO] --> casella combinata con origine riga interna (solo numeri da 0 a
60) --> valore di default=0
[RIVENDITORI] --> pulsante di comando.
[AGENTI] --> pulsante di comando
[PUBBLICO] pulsante di comando.
Cosa voglio fare:
Prima necessita'.
Seleziono un valore>0 per [SCONTO] e poi clicco su [RIVENDITORI].
devo ottenere:
apertura del report con la stampa del valore [txtfrm] che, in base alla
selezione precedente, e' = "Sconto applicato ai Rivenditori" & "[SCONTO]" &
"%"
Seconda necessita'.
Seleziono un valore>0 per [SCONTO] e poi clicco su [AGENTI].
devo ottenere:
apertura del report con la stampa del valore [txtfrm] che, in base alla
selezione precedente, e' = "Sconto applicato agli Agenti" & "[SCONTO]" & "%"
Terza necessita'.
[SCONTO] = zero e poi clicco su [PUBBLICO].
devo ottenere:
apertura del report con la stampa del valore [txtfrm] che, in base alla
selezione precedente, e' = null
Ho fatto alcuni tentativi prima assegnando ai pulsanti delle macro con
l'esecuzione delle seguenti azioni:
ApriReport
impostaValore, dove [txtfrm] assumeva i tre valori possibili ma non mi ha
dato nessun risultato.
Ora sto provando con un po' di codice ma peggio che andar di notte (in
effetti ancora non e' che ci capisca molto di sto VBA)... comunque...
Private Sub AGENTI_Click()
txtbox = "Sconto applicato per gli Agenti:"
On Error GoTo Err_Comando20_Click
    Dim stDocName As String
        stDocName = "replistino"
    DoCmd.OpenReport stDocName, acPreview
Exit_Comando20_Click:
    Exit Sub
Err_Comando20_Click:
    MsgBox Err.Description
    Resume Exit_Comando20_Click
End Sub
Ovvero, ho creato, nella maschera, un'altra casella non associata a cui
assegno un valore al momento dell'evento su_click ma non succede nulla.
ho anche pensato di fare un'altra prova ma non so come fare.Ovvero.
Private Sub AGENTI_Click()
txtbox = "Sconto applicato per gli Agenti:"
codice che mi attiva una macro con cui,
Apro il Report, modalità anteprima
Assegno a[txtfrm] il valore di [txtbox]
end sub
ma come faccio?
Grazie a tutti.
Francesco

 ha scritto nel messaggio
news:b5vt25$du8$1...@grillo.cs.interbusiness.it...

Presupponendo che la maschera resti aperta durante l'esecuzione del report.
Inserisci nella maschera anche una casella di testo non associata nella
quale memorizzi, a fronte dell'evento "Su clic" dei pulsanti di comando, una
descrizione diversa a seconda del pulsante di comando premuto.
Nel report inserisci due caselle di testo non associate nella cui origine
controllo fai riferimento rispettivamente alla casella di testo ed alla
casella combinata di cui sopra contenute nella maschera.
Naturalmente a fronte dell'evento "Su clic" dei pulsanti di coamndo aprirai
anche il report.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:I8Wga.56606$Lr4.1...@twister2.libero.it...

Ciao Roberto,
la logica che ho usato nei miei tentativi e' stata proprio questa ma non ho
ottenuto nulla.
Comunque, adesso sto riprogettando il tutto complicandomi ancora di piu' la
vita... ti faro' sapere.
grazie.
Francesco.