Newsgroup: it.comp.appl.access
Titolo: Record

Ciao Ng, mi trovo di fronte a questo problema:
devo visualizzare un record di vari campi prelevato da una sottomaschera nel
form(in caselle di testo) contenente la 
stessa.in
 precedenza mi era stata
fornita una soluzione ma che prevedeva la presenza di un
NomeControlloDellaSottomascheraDaVisualizzare, qui non sono riuscito a
capire bene, poichè io non ho nessun controllo su tale maschera.Vorrei
solamente che selezionando una riga nella sottomaschera comparissero i dati
del record selezionato in caselle di testo.
Grazie per il grande aiuto.
Ciao Christian

 ha scritto nel messaggio
news:7m0x7.2698$YC3....@news1.tin.it...

Io qui ho capito che:
1) Hai una sottomaschera che contiene un certo numero di controlli chiamati
Controllo1, Controllo2 ... ControlloN.
2) La sottomaschera è contenta in una maschera pricipale chiamata Pippo.
3) La maschera principale non ha origine record e contiene un numero di
caselle di testo non associate chiamate Casella1, Casella2 ... CasellaN.
4) I controlli della sottomaschera non visualizzano tutti i campi della
tabella che è origine record della sottomaschera.
5) Nelle caselle di testo non associate della maschera principale vuoi
visualizzare tutti i campi del record corrente della sottomaschera, anche
quelli non visualizzati nella sottomaschera stessa.
Se questi sono i termini del tuo problema.
Se Controllo1 è il controllo associato alla chiave primaria dell'oggetto che
è origine record della sottomaschera.
A fronte dell'evento "Su corrente" della sottomaschera creati un codice VBA
che popola le caselle di testo non associate della maschera principale o
prelevando i valori dai controlli delle sottomaschera (alias
Forms!Pippo!CasellaX = Me!ControlloX)  oppure prelevando, tramite una
DLookup, i valori dai campi della tabella che è origine record della
sottomaschera (alias Forms!Pippo!CasellaX = DLookup("CampoX"; "NomeTabella";
"IDTabella=" & Me!Controllo1) ).
A mio avviso è meglio sostituire la sottomaschera con una casella di
riepilogo che abbia come origine riga la tua tabella; la casella di
riepilogo avrà tante colonne quanti sono i campi della tabella e renderai
visibili solo le colonne che riterrai opportuno; a fronte dell'evento "Su
clic" della casella di riepilogo genera un codice VBA che popola le caselle
di testo della maschera con i valori contenuti nelle colonne della casella
di riepilogo.
In alternativa creati una maschera a visualizzazione a Maschera singola che
abbia la tua tabella come origine record; inserisci nella maschera anche una
casella di riepilogo che abbia le caratteristiche di quella di cui al
capoverso precedente; a fronte dell'evento "Su clic" della casella di
riepilogo genera un codice VBA che imposta adeguatamente il filtro della
maschera.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:9q26fc$1p2m$1...@stargate1.inet.it...

Ciao grazie per l'aiuto, pperò in quale controllo devo imporre il
requery(..penso) per aggiornare le caselle quando mi sposto su nuovo record
all'interno della sottomaschera?Ti riporto il codice usato:
Private Sub Form_current()
On Error Resume Next
    ' With Forms!Catalogo
    Forms!RicercaVer02!Testo2 = Me![Sottomaschera CatalogoModelli
Query]!IDModello
    Forms!RicercaVer02!Testo4 = Me![Sottomaschera CatalogoModelli
Query]!NumeroModello
    Forms!RicercaVer02!Testo6 = Me![Sottomaschera CatalogoModelli
Query]!NomeCategoria
    Forms!RicercaVer02!Testo8 = Me![Sottomaschera CatalogoModelli
Query]!Collezione
    Forms!RicercaVer02!Testo10 = Me![Sottomaschera CatalogoModelli
Query]!DataCreazione
    Forms!RicercaVer02!Testo12 = Me![Sottomaschera CatalogoModelli
Query]!Produttore
    Forms!RicercaVer02!Testo22 = Me![Sottomaschera CatalogoModelli
Query]!Venditore
    Forms!RicercaVer02!Testo24 = Me![Sottomaschera CatalogoModelli
Query]!PesoOggetto
    Forms!RicercaVer02!Testo26 = Me![Sottomaschera CatalogoModelli
Query]!VolumeOggetto
    Forms!RicercaVer02!Testo28 = Me![Sottomaschera CatalogoModelli
Query]!PesoCera
    Forms!RicercaVer02!Testo30 = Me![Sottomaschera CatalogoModelli
Query]!NumeroGomma
    Forms!RicercaVer02!Testo34 = Me![Sottomaschera CatalogoModelli
Query]!NomeFileMagic
    Forms!RicercaVer02!Testo36 = Me![Sottomaschera CatalogoModelli
Query]!NomeFileST
End Sub
Ti ringrazio di nuovo e ti auguro una buona giornata...Ciao


--
