Newsgroup: it.comp.appl.access
Titolo: Provo a riproporre più semplicemente...

Scusate ma ho bisogno di aiuto.
Con una query a campi incrociati ho risolto il problema, ma non posso
utilizzarla perchè mi inchioda la maschera che vorrei realizzare.
Il mio problema è questo:
ho una tabella TRIBUTENZE con:
codiceufficio, tipologia, importo.
il campo tipologia può assumere 7 diverse
tipologie(Acqua,gas,luce,vino,aranciata,pepsi,chinotto).
La mia query mi deve restituire per ciascun codiceufficio la quantità
delle diverse tipologie presenti. Ad esempio:
 
tipologia     Acqua, gas, luce, vino, aranciata, pepsi, chinotto
granozzo         3      5      0      1         0           5
52
 
Sembra facile...ma non lo è sto diventando pazzo...
grazie infinite a chiunque mi  vorrà/potrà aiutare...


TRANSFORM Sum(tributenze.importo) AS SommaDiimporto
SELECT tributenze.codiceufficio, Sum(tributenze.importo) AS [Totale di 
importo]
FROM tributenze
GROUP BY tributenze.codiceufficio
PIVOT tributenze.tipologia;
 
 
ciao
BFS

 - Mostra testo citato -
 
 
 
grazie infinite BFS, funziona perfettamente ma (purtroppo per me !!!)
mi ripresenta lo stesso problema.
 
Dalla maschera iniziale, scegliendo con una combo la filiale, che
comprende circa 150 uffici, ho necessità di vedere (maschera con
origine dati la tua query) i dati relativi ai codiceufficio della
filiale stessa.
 
Ho quindi questo codice:
 
TRANSFORM Sum(TRIBUTENZE.Importo) AS SommaDiImporto
SELECT TRIBUTENZE.Codiceimmobile, TRIBUTENZE.filiale,
Sum(TRIBUTENZE.Importo) AS TotalediImporto
FROM TRIBUTENZE
GROUP BY TRIBUTENZE.Codiceimmobile, TRIBUTENZE.filiale
PIVOT TRIBUTENZE.Tipologia;
 
Succede però che se nei criteri della colonna filiale ci metto :
 
Like "*" & [forms]![FRM_AVVIO]![filiale]
 
La query (ovviamente dirai tu !!!) non funziona più ! Sai consigliarmi
un altro metodo o scappatoia ?
 
grazie infinite, un abbraccio.


se la combo filiale si chiama cmbFiliale e la maschera dove vuoi vedere 
i risultati si chiama frmTuaMaschera
fai così:
 
sul evento "dopo aggiornamento" della cmbFiliale metti
 
frmTuamschera.recordsource="TRANSFORM Sum(tributenze.importo) AS 
SommaDiimporto
SELECT tributenze.codiceufficio, Sum(tributenze.importo) AS [Totale di 
importo]
FROM tributenze
WHERE tributenze.codiceufficio='" & me.cmbfiliale  &  "'
GROUP BY tributenze.codiceufficio
PIVOT tributenze.tipologia;"
 
 
in pratica imposti da codice l'origine dati alla maschera già filtrata
 
ciao
BFS
 
 
 
 
 


dalla serie: "La fortuna è cieca ma la sfiga ci vede benissimo..."
il mio VB versione 6.3, (sono vincolato da un sistema informativo
centralizzato), non conosce l'istruzione recordsource, difatti se
provo a digitale l'istruzione non me la propone nel menu a comparsa
tra quelle disponibili...
 
grazie


VB?
credevo stessi lavorando su un mdb
 
BFS
 
 
 
 


Certo BFS,
continuo a lavorare sullo stesso mdb, che già hai avuto la fortuna/
sfortuna di conoscere...
 
Volevo darti maggiori infomazioni sugli aggiornamenti della mia
macchina e dalla schermata del codice cliccando sul  "?"  mi indica la
versione citata.
 
Nei miei "scasinamenti" ho provato a sostituire recordsource con
SourceObject per cercare di capire....ovviamente senza risultati.
Ti allego il mio codice sempre più misterioso:
 
Private Sub ComboFiliale_AfterUpdate()
 
'Imposta l'origine dati della sottomaschera bollette presenti
FRM_BOLLETTE_PRESENTI.SourceObject = "TRANSFORM
Sum(TRIBUTENZE.Importo) AS SommaDiImporto SELECT
TRIBUTENZE.Codiceimmobile, Sum(TRIBUTENZE.Importo) AS
[TotalediImporto]"
FROM TRIBUTENZE WHERE TRIBUTENZE.Codiceimmobile ="" & Me.ComboFiliale
& ""GROUP BY TRIBUTENZE.Codiceimmobile PIVOT TRIBUTENZE.tipologia;"
 
End Sub
 
grazie davvero tanto.


prova con
Me.nomeTuaSottomaschera.Form.RecordSource="...."
 
 
 
ciao
BFS


...dai che ci sto arrivando...(ovviamente solo grazie al tuo aiuto)
mi dà errore di sintassi e colora in rosso:
 
WHERE TRIBUTENZE.Codiceimmobile ='" & Me.ComboFiliale & " "GROUP BY
TRIBUTENZE.Codiceimmobile PIVOT TRIBUTENZE.tipologia;"
 
tra il segno di uguale e il GROUP trovo il codice :
 
' "   &Me.ComboFiliale&      " '
cioè
 apice, doppioapice, &Me.ComboFiliale&, doppio apice, apice.
 
potrebbe essere questo a mandare "apice" il tutto ???
 
grazie infinite sceusa la mia ignoranza...

 grazie infinite sceusa la mia ignoranza...
 
se la combofiliale contiene del testo...
 
la sintassi è
 
Me.nomeTuaSottomaschera.Form.RecordSource="select ....from ... WHERE 
TRIBUTENZE.Codiceimmobile ='" &  Me.ComboFiliale &  "' GROUP BY...."
 
in pratica in una se vuoi intermezzare una stringa con un variabile di 
tipo testo
 
"stringa '" &  variabile & "' resto della stringa "
 
 
scrivi esattamente come ti ho detto io, con gli stessi spazi e non 
confondere apici con doppi apici
 
ciao
BFS
 
 
 
 
 
 
 
 
 


Scusami tanto BFS, ma non funziona ancora.
Il codice mi risulta questo e diventa tutto rosso.....
Se non ti rompo troppo ti giro (eventualmente) il file...
 
'Imposta l'origine dati della sottomaschera bollette presenti
Dim TRIBUTENZE As String
Me.FRM_AVVIO.Form.RecordSource = "TRANSFORM
Sum(TRIBUTENZE.Importo)AS"SommaDiImporto SELECT
TRIBUTENZE.Codiceimmobile,Sum(TRIBUTENZE.Importo)AS
[TotalediImporto] FROM TRIBUTENZE WHERE
TRIBUTENZE.Codiceimmobile = '"& Me.ComboFiliale &"'GROUP BY
TRIBUTENZE.Codiceimmobile PIVOT TRIBUTENZE.tipologia;"
End Sub
 
grazie ciao
M

'Imposta l'origine dati della sottomaschera bollette presenti
Dim TRIBUTENZE As String
Me.FRM_AVVIO.Form.RecordSource = "TRANSFORM " & _
"Sum(TRIBUTENZE.Importo)AS SommaDiImporto " & _
"SELECT TRIBUTENZE.Codiceimmobile,Sum(TRIBUTENZE.Importo) " & _
"AS [TotalediImporto] FROM TRIBUTENZE " & _
"WHERE TRIBUTENZE.Codiceimmobile = '" & Me.ComboFiliale & "' " & _
"GROUP BY TRIBUTENZE.Codiceimmobile PIVOT TRIBUTENZE.tipologia;"
End Sub
 
Popi

 Il codice mi risulta questo e diventa tutto rosso.....
I codice diventa rosso (se non hai modificato i colori di default) 
quando c'e' un errore di *sintassi*
E per favore comincia/te a "tagliare" un po' di roba che non serve
-- 
 
ac (x=y-1)


wrote:

Chiedo scusa a tutti, sono ignorante in materia e lo denuncio
pubblicamente, credo però in questo forum, lo apprezzo e scusate la
mia semplicità ma mi sento orgoglioso di quanto riesco a imparare,
anche e soprattutto, dai miei errori.
 
A che interessi la mia form non funziona ancora nonostante gli
sforzi....segnala errore (senza rosso) nel punto di codice relativo
alla combo. Ho anche provato a sostituire nel codice la combo stessa
con una casella di testo valorizzata dopo la scelta, ma senza
risultato.
 
Il linguaggio di programmazione non lo conosco, però mi applico per
quanto me lo consentono le cellule grigiobiancastre ancora superstiti.
 
Che il codice diventi rosso causa errore di "sintassi" era una delle
poche cose che avevo capito...ma non conoscendo appunto la sintassi,
mi rivolgevo qui per un aiuto più specialistico da parte di persone
che ho sempre trovato sinora gentili e cordiali.
Se devo tagliare qualcosa con cui ho offeso qualcuno, o che non serve,
me ne scuso sin d'ora, ma è stato un susseguirsi di prove e tentativi.
Mi scuso ma non so cos'altro tagliare e nemmeno definire cosa serve o
meno, salvo poter affermare la mia delusione.
Se qualcuno è ancora disponibile ad aiutarmi io ci spero ancora.

 M
 
io mi impegno ma se tu non scrivi come ti dico io!!! :-)
 
Sum(TRIBUTENZE.Importo)AS"SommaDiImporto    (che ci fanno due apici tra 
AS e Sommadiimporto?)
 
 
'"&  Me.ComboFiliale&"'GROUP BY    (metti bene gli spazi)---> '" & 
Me.ComboFiliale & "'GROUP BY
 
ti ridico...se vuoi intramezzare una stringa con una variabile di tipo 
testo:
 
" prima parte della stringa '" & tuavariabile & "' seconda parte della 
stringa"
 
 
ciao
BFS
 
 

 Chiedo scusa a tutti, sono ignorante in materia e lo denuncio
 
Alt!
Nella mio post non voleva esserci alcuna "colpevolizzazione". Era solo 
una esortazione per una migliore fruizione del tutto.
Proprio perche' sei "abbastanza" nuovo al NG un "consiglio" mi sembrava 
d'obbligo.
Lo stesso NG e' il luogo apposito per *noi* ignoranti.
Spesso gli errori di sintassi sono degli "a capo" malmessi e questi sono 
praticamente impossibili da rilevare e molto spesso vengono generati da 
un copia/incolla "troppo" selvaggio.
-- 
 
ac (x=y-1)

Il 23/02/2012 18.47, Alessandro Cara ha scritto:
P.S.
Me me ero dimenticata una
Evitare che l'oggetto del post sia insignificante.
-- 
 
ac (x=y-1)


wrote:

chiedo scusa a tutti, la mia non era assolutamente polemica ma solo un
momento di demoralizzazione.
Mi complimento ancora per la sempre squisita professionalità e
pazienza....
 
La cosa più strana è che il codice era scritto giusto (....o perlomeno
lo sembrava) ma non funzionava ancora bloccandosi sul
"me.ComboFiliale".
Ho provato a ri-digitare: "me....." e il completamento automatico mi
ha suggerito "me.ComboFiliale".
Così riscritto ora finalmente non da più errore, ma ancora non
funziona.
Riepilogo:
Nella mia maschera di avvio (senza origine dati) la ComboFiliale mi
deve impostare l'origine dati di una sottomaschera non collegata. Ho
anche provato ad aggiungere in coda al codice un
Me.FRM_BOLLETTE_PRESENTI.Requery
ma senza successo...
 
grazie davvero (e non solo per la pazienza....)  :-)