Newsgroup: it.comp.appl.access
Titolo: Ennesima richiesta di aiuto !

Ciao a tutti,
forse qualcuno di voi si chiederà: ma questo è di coccio. Vero ragazzi,
probabilmente lo sono, ma ostinato a voler imparare per cui .armatevi di
pazienza e mettetevi una mano su cuore.
Bene, dopo essermi scusato, passo ai fatti.
Rappresenterò ora il mio problema, per l'ennesima volta, sperando prima di
tutto di riuscire a spiegare bene cosa voglio ottenere e successivamente
ottenere da voi un aiuto concreto.
Dunque il risultato finale vi dico subito che dovrebbe essere il seguente:
costruire una maschera divisa in due sezioni. Una parte superiore dove
inserire dei dati variabili e una parte inferiore dove ottenere, a seconda
dei dati inseriti, un output su righe contenente dati attinenti ai valori
impostati. (del tipo maschera e sottomaschera, tanto per capirci)
Andiamo ancora più in profondità. Nello specifico dovrei effettuare le
seguenti operazioni.
Zona superiore della maschera (3 variabili + pulsante di aggiornamento)
CAMPO 1) Selezione, da una casella combinata con relativo menu a discesa, di
un valore (es. nome).
CAMPO 2) Digitazione di un valore di "Data di inizio"
CAMPO 3) Digitazione di un valore di "Data di inizio"
Infine PULSANTE DI AGGIORNAMENTO che, sull'evento Click, attivi il filtro
sui record del database restituendo solo i record che soddisfano le
condizioni dei criteri inseriti.
LA MASCHERA FINALE SARA' QUINDI COMPOSTA DA:
PARTE SUPERIORE:     CAMPO Nome proveniente da tabella tNomi (casella
combinata)
                                        CAMPO Data_inizio (casella di testo)
                                        CAMPO Data_fine (casella di testo)
PARTE INFERIORE:  CAMPO Data_viaggio da tabella tViaggio
                                    CAMPO Argomento da tabella tViaggio
                                    CAMPO Importo da tabella tViaggio
Relazione della tabella tNomi  a tViaggio uno a molti.
Ragazzi, ho fatto del mio meglio per cercare di spiegarmi bene.ora tocca
voi.almeno spero.
PS. MI SAREBBE GRADITO RICEVERE, VISTO LA MIA CONDIZIONE DI NEOFITA, UN
ESEMPIO CONTENETE ALCUNE RIGHE DI CODICE.
Grazie infinite a tutti coloro che vorranno darmi una mano.
Paolo

Costruisci una query che nella riga "Criteri" riporta i valori da te
impostati nella parte "superiore" della maschera e applicala alla
sottomaschera al click di un pulsante. Me.Sottomaschera.SourceRecord =
"MiaQuery"; me.Sottomaschera.Requery
Questa é una strada. Un'altra è la costruzione al volo di una stringa SQL da
applicare alla sottomaschera.
Ciao, Carlo
--
Posted from 
ro...@www.paola.antares.it
 [195.216.145.2]
via Mailgate.ORG Server - 
http://www.mailgate.org


Paolo, il subject non è pregno...
Antonio


Associa all'evento Click un codice tipo questo:
    Dim strSQL As String
    Dim int_ok As Integer
   ' Verifica i controlli
   int_ok = 1
   If IsNull(Me![cmb_nome]) Then
        msgbox .....
        int_ok = 0
   End If
   If IsNull(Me![cdt_ini]) Then
        msgbox .....
        int_ok = 0
   End If
   If IsNull(Me![cdt_fin]) Then
        msgbox .....
        int_ok = 0
   End If
 
   ' assegna origine record
   If int_ok = 1 Then
	strSQL = "SELECT DISTINCTROW TVIAGGIO.* FROM TVIAGGIO "
	strSQL = strSQL & "WHERE TVIAGGIO.nome = '" &
Me!cmb_nome.value & "'"
	strSQL = strSQL & " and TVIAGGIO.dataviaggio >= #" &
Format$(Me!cdt_ini.value, "m/d/yyyy") & "# "
	strSQL = strSQL & " and TVIAGGIO.dataviaggio <= #" &
Format$(Me!cdt_fin.value, "m/d/yyyy") & "# "
	strSQL = strSQL & " ORDER BY dataviaggio;"
 
            Me.RecordSource = strSQL
 
        Else
            Me.RecordSource = "TVIAGGIO"
        End If
 
    End If
Fai attenzione perche' il codice e' solo indicativo e potrebbe non
essere corretto.
(chiedo scusa a tutti per l'orribile statement SQL)
In particolare non e' gestito il caso in cui il campo nome contenga
apostrofi (leggi in proposito i numerosi post).
Ciao, Giorgio