AIUTO ACCESS Maschere

venerdì 12 gennaio 2007 - 10.43

fasol Profilo | Junior Member

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

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
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 !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5