4.16 Casella di riepilogo - Allineamento a destra
Giuseppe
Prendendo spunto dalla fax di DonKarl in oggetto, ho implementato con
successo questo codice nell'origine della mia casella di riepilogo.
Il problema è questo:
Nella mia form ho due caselle di testo non associate e su evento
modifica cambio l'SQL della casella di riepilogo digitata nell'origine
della stessa.
Allora ho copiato l'SQL della query di origine perfettamente
funzionante e l'ho incollata nel codice su evento modifica delle due
caselle di testo:
Questo l'SQL:
SELECT Space(4-Len(Format([idarticolo],"#,##0"))) &
Format([idarticolo],"#,##0") AS cod, tblArticoli.centrodicosto,
tblArticoli.descrizionebene, tblCategorie.NomeCategoria, Space(12-
Len(Format([costo unitario],"Standard"))) & Format([costo
unitario],"Standard") AS prezzo1, Space(12-
Len(Format([costounitario2],"Standard"))) &
Format([costounitario2],"Standard") AS prezzo2
FROM tblCategorie INNER JOIN tblArticoli ON tblCategorie.IDCategoria =
tblArticoli.IDCategoria
WHERE (((tblArticoli.descrizionebene) Like "**"))
ORDER BY tblArticoli.descrizionebene;
quando vado oltre l'ultima riga dell'SQL mi dà errore di compilazione
e mi seleziona il primo #:della prima riga.
Ho provato a togliere la formattazione al campo cod mettendo SELECT
cod, tblarticoli.centrodicosto, ecc.. e andando oltre l'ultima
riga dell'SQL mi dà di nuovo errore e mi evidenzia "standard".
Si può applicare questa codice al Vba o solo sulla query?
Se si può come devo cambiarlo?
Grazie.
Giuseppe.
Karl Donaubauer
> Prendendo spunto dalla fax di DonKarl in oggetto, ho implementato
> con successo questo codice nell'origine della mia casella di
> riepilogo. Il problema è questo:
> Nella mia form ho due caselle di testo non associate e su evento
> modifica cambio l'SQL della casella di riepilogo digitata
> nell'origine della stessa.
> Allora ho copiato l'SQL della query di origine perfettamente
> funzionante e l'ho incollata nel codice su evento modifica delle due
> caselle di testo:
> Questo l'SQL:
> SELECT Space(4-Len(Format([idarticolo],"#,##0"))) &
> quando vado oltre l'ultima riga dell'SQL mi dà errore di
> compilazione e mi seleziona il primo #:della prima riga.
> Ho provato a togliere la formattazione al campo cod mettendo SELECT
> cod, tblarticoli.centrodicosto, ecc.. e andando oltre l'ultima
> riga dell'SQL mi dà di nuovo errore e mi evidenzia "standard".
> Si può applicare questa codice al Vba o solo sulla query?
> Se si può come devo cambiarlo?
Quando usi SQL nel codice VBA devi sostiture tutte le virgolette
con apostrofi. Questo perché una virgoletta inizia e termina
l'intera stringa per VBA.
Se non riesci, copia/incolla il tuo codice VBA rilevante
invece della sola stringa SQL.
--
cu
Karl
*********
Access FAQ: www.donkarl.com/it
Giuseppe
Fatto. Però ora mentre scrivo sulla casella di testo, la casella di
riepilogo non si aggiorna e quando premo invio sulla casella di testo,
mi dà errore di runtime '94' utilizzo non valido di Null. Facendo
debug mi evidenzia la riga rs.FindFirst "[idarticolo] = " & Str(Me!
[Elenconominativi])
del seguente codice
Private Sub Elenconominativi_AfterUpdate()
' Trova il record corrispondente al controllo
Dim rs As Object
del codice
Set rs = Me.Recordset.Clone
rs.FindFirst "[idarticolo] = " & Str(Me![Elenconominativi])
Me.Bookmark = rs.Bookmark
end sub
Ho provato anche a sostituire
rs.FindFirst "[idarticolo] = " & Str(Me![Elenconominativi])
con
rs.FindFirst "[cod] = " & Str(Me![Elenconominativi])
visto che nell'SQL idarticolo viene chiamato cod
ma non cambia niente.
Giuseppe.
Giuseppe
Risolto. Annullo ultimo post.
Grazie Karl.
Giuseppe.