Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
SQL Server 2000/2005/2008, Express, Access, MySQL, Oracle
AIUTO ACCESS Maschere
venerdì 12 gennaio 2007 - 10.43
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
fasol
Profilo
| Junior Member
125
messaggi | Data Invio:
ven 12 gen 2007 - 10:43
ciao a tutti il mio problema è il seguente:
io ho 2 tabelle SPEDIZIONI e COMPONENTI con il seguente tracciato record:
ID_SPEDIZIONI DDT_RIFERIMENTO NOTE DATA SPEDIZIONE
ID COMPONENTI N_PALLET N_SCATOLE_X_ PALLET FK_SPEDIZIONI
la mia esigenza è la seguente con una casella combinata scelgo la spedizione
dopo di che devo fare la somma dei componenti per la spedizione selezionata
e ho fatto i seguenti passi nell'evento: Casella combinata_BeforeUpdate ho aggiunto qst codice:
Dim qry as String
qry=" SELECT Sum(N_PALLET*[N_SCATOLE_X_ PALLET]) AS TOT
FROM SPEDIZIONI , COMPONENTI
WHERE FK_SPEDIZIONI= [ Valore di CASELLA COMBINATA]"
DoCmd.OpenQuery qry
però qnd la esegue mi da il seguente errore:
Impossibile trovare l'oggetto "SELECT Sum(N_PALLET*[N_SCATOLE_X_ PALLET]) AS TOT
FROM SPEDIZIONI , COMPONENTI
WHERE FK_SPEDIZIONI= [ Valore di CASELLA COMBINATA]"
2° cosa l'istruzione DoCmd.OpenQuery qry mi apre una tabella con il risultato della query
io ho bisogno di assegnare qst risultato ad una etichetta come faccio????
NB ho già controllo la qry è giusta....
AIUTO GRAZIE MILLE
meglio i perdenti xkè hanno la speranza di vincere...cosa che i vincenti nn hanno....
squilibrium
Profilo
| Junior Member
168
messaggi | Data Invio:
ven 12 gen 2007 - 17:34
L'openquery accetta come parametro il NOME di una query salvata sul database non una query in una stringa.
Puoi utilizzare un recordset così:
Dim qry as String
dim tot as long
qry=" SELECT Sum(N_PALLET*[N_SCATOLE_X_ PALLET]) AS TOT
FROM SPEDIZIONI , COMPONENTI
WHERE FK_SPEDIZIONI= [ Valore di CASELLA COMBINATA]"
dim rs as new adodb.recordset
dim cnn as new adodb.connection
set cnn = CurrentDb.Connection
if cnn.state = adstateclosed then cnn.open
rs.open qry, cnn
if not rs.eof then
tot = rs(0)
end if
rs.close
set rs = nothing
cnn.close
set cnn = nothing
Fammi sapere ciao
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !