Newsgroup: it.comp.appl.access
Titolo: visualizzazione immaggini su form diversi

salve, ho un problema al quale spero di trovare una risposta,
sto creando un'applicazione in VBA con diversi form, ma il mio problema
nasce quando in un form avendo creato due pulsanti di opzione, e alla
selezione di uno dei due dovrei in un altro form diverso visualizzare
un'immagine che cambi al cambiare della selezione dei due pulsanti, ma non
riesco a farlo, in quanto VBA mi dice che non riesce a trovare il form con
un "errore 424".
questo è il listato che ho scritto
Private Sub optverticale_Click()
If optverticale.Value = True Then
imgverticale.Visible = True
Else
imgverticale.Visible = False
End If
'Disattiva l'altra immagine
imgorizzontale.Visible = False
End Sub
Grazie a quinque mi possa aiutare.
Saluti


l'immagine č sull'altra form giusto?
quindi diventa
 Private Sub optverticale_Click()
 If optverticale.Value = True Then
 Forms!nomeform!imgverticale.Visible = True
 Else
 Forms!nomeform!imgverticale.Visible = False
 End If
 'Disattiva l'altra immagine
 Forms!nomeform!imgorizzontale.Visible = False
 End Sub
se non č cosě spiega meglio.. :)
ciao
Nick

 Nick
ti ringrazio e hai capito bene, solo che provando quello che tu mi
suggerisci ottengo sempre lo stesso errore "424  necessaio oggetto"
saresti cosě gentile da spiegarmi meglio.
Grazie
Ciao

 ha scritto nel messaggio news:_ynZc.233997$5D1.10...@news4.tin.it...

la maschera č aperta?
prova ad inserire prima di tutto un
docmd.openform "nomeform"
ciao
Nick


ho riprovato quest'altra dicitura ma ho sempre l'errore "424 necessario
oggetto"
Ciao

 ha scritto nel messaggio
news:qXnZc.234178$5D1.10...@news4.tin.it...

questo è il listato:
Private Sub optverticale_Click()
If optverticale.Value = True Then
docmd.openform frmbordo!imgverticale.Visible = True
Else
docmd.openform frmbordo!imgverticale.Visible = False
End If
'Disattiva l'altra immagine
docmd.openform frmbordo!imgorizzontale.Visible = False
End Sub

 ha scritto nel messaggio news:OYnZc.234187$5D1.10...@news4.tin.it...

ops forse ho dato troppe cose per scontato :D
Private Sub optverticale_Click()
on error goto errore_sub
docmd.openform "frmbordo"
 If optverticale.Value = True Then
 forms!frmbordo!imgverticale.Visible = True
 Else
 forms!frmbordo!imgverticale.Visible = False
 End If
 'Disattiva l'altra immagine
 forms!frmbordo!imgorizzontale.Visible = False
Uscita_Sub:
exit sub
Errore_Sub:
msgbox err.number & " " & err.description
resume uscita_sub
 End Sub
se non va posta pure il testo del messaggio..
ciao
Nick


scusami ma ho riprovato anche quest'altra soluzione ma c'e sempre quel "424
necessarioo oggetto"
ciao gionlap

 ha scritto nel messaggio news:1doZc.234323$5D1.10...@news4.tin.it...

controlla che i nomi scritti siano giusti (nome della maschera e del campo immagine da visualizzare)
se č tutto giusto non vorrei che dalla maschera x non puoi rendere visibile il campo nella maschera y...
se fosse cosě devi spostare il codice (tranne in docmd.openform...) su apertura della maschera frmbordo sostituendo il forms! con
me.
cmq metti i punti di interruzione e dicci in che punto si ferma il codice...
ciao
Nick

 Nick
ho provato nuovamente e non riesco a fare funzionare il programma come
vorrei, volevo chiederti se per te non č un grosso disturbo, se posso
inviarti il programma cosě gli dai un'occhiata, se si cortesemente dovresti
darmi la tua e-mail.
Ciao

 ha scritto nel messaggio news:8cpZc.234845$5D1.10...@news4.tin.it...

ok manda a
nick (chiocchiola) accessgroup (punto) it
...poi ricordiamo ci di scrivere la soluzione sul NG :)
ciao
Nick