Newsgroup: it.comp.appl.access
Titolo: Valore in Casella Riepilogo

in una Casella Combinata strutturata  in :
==============================================
Dim strIN As String
Dim varEl As Variant
For Each varEl In Me!ListaDDTAcquisto.ItemsSelected
    strIN = strIN & Me!ListaDDTAcquisto.Column(0, varEl) & ","
Next varEl
If strIN <> "" Then
    CurrentDb.Execute "UPDATE tblOrdiniAcquisti " & _
            " SET Fatturato = True " & _
            " WHERE IDOrdineAcquisti IN(" & strIN & ");"
End If
===============================================
nel momento in cui viene lanciato il comando di esecuzione codice
non viene effettuata nessuna operazione di aggiornamento.
Tenendo conto che il valore della column di riferimento
e 04/000012 e nella casella di riepilogo (Griglia Qry) e stata convertita in
tale formato
con la formula :
IDOrdineAcquisti1: Left([IDOrdineAcquisti];2) & "/" &
Right([IDOrdineAcquisti];Len([IDOrdineAcquisti])-2)
poiché  nella Casella di Riepilogo veniva visualizzata nel formato di
04000012.
Ho provato ad inserire
dopo Then
strIN = Left(strIN, 2) & "/" & Right(strIN, Len(strIN) - 3)
ma non va.
Quale possibile causa?
Grazie.



 End If
Prova a preparare una stringa sql con quell'SQL, quindi ti fai debug.print
della stringa, quindi te la vai a pescare e la provi nel QBE e vedi che
succede
Antonio

 End If
Prova a preparare una stringa sql con quell'SQL, quindi ti fai debug.print
della stringa, quindi te la vai a pescare e la provi nel QBE e vedi che
succede
Ciao Antonio ho verificato, intanto il valore da filtrare e formattato
04/000001
nella verifica QBE se inserisco un solo valore alla volta tutto OK , la
query
viene eseguita ma se invece nella richiesta  IN inserisco i valori in
sequenza   come da  valore restituitomi nel debug.print
04/000001,04/000002,04/000003
non viene eseguito alcunché!
Ciao
Rino

 ha scritto nel messaggio
news:Pg1%b.19617$gk.8...@news3.tin.it...

Se tu avessi provato a fare il contrario, cioč scrivere in QBE l'sql per
fare una query con una IN su un insieme di piů valori, avresti visto che la
sintassi NON č:
IN ("a,b,c") che č quello che realizzi tu, ma
IN ("a","b","c")
Pertanto devi modificare opportunamente il tuo codice in modo da includere
ogni valore tra doppi apici
Antonio

 ogni valore tra doppi apici
Come mi sembra conosciuto il suo codice debbo aggiungere
che allora non ha rivelato che si tratta di testi. Per numeri era
giusto senza apici.
E siccome non mi chiamo "Bisio" non ha voluto disturbare nel
altro thread.
-- 
;-)
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 Karl
Hai pienamente ragione Karl e mi scuso con il gruppo per
l' Ogetto del thread precedente .
:-((
Ferrari Rino

 altro thread.
E hai fatto bene!!! :-P
anch'io non mi chiamo Bisio e non sono intervenuto...
Antonio

 ha scritto nel messaggio
news:AS2%b.28479$IT2.9...@news4.tin.it...

Si ma non riesco ad ottenere il valore
"04/000001","04/000002", invece di
"04/000001,04/000002"
come suggerito da Antonio

 come suggerito da Antonio
Prova così:
Dim strIN As String
Dim varEl As Variant
For Each varEl In Me!ListaDDTAcquisto.ItemsSelected
    ' qui con merda di mosca avanti e dopo il testo
    strIN = strIN & "'" & Me!ListaDDTAcquisto.Column(0, varEl) & "',"
Next varEl
If strIN <> "" Then
'qui nel tuo citato IMO manca la riga
    strIN = Left(strIN, Len(strIN) - 1)
    CurrentDb.Execute "UPDATE tblOrdiniAcquisti " & _
            " SET Fatturato = True " & _
            " WHERE IDOrdineAcquisti IN(" & strIN & ");"
End If
-- 
HTH


 come suggerito da Antonio
Per inserire un doppio apice dentro una stringa, va scritto doppio
msgbox "Antonio ""er meglio figo del bigoncio"" Biso"
restituisce
Antonio "er meglio figo del bigoncio" Biso

 Karl
Karl ora funziona pero nella struttura QBE della casella di riepilogo
il valore dell' IDOrdineAcquisti  viene restituito come:
04/000001
Mentre nella lista :
04000001
Ho provato a formattare  nella struttura QBE della lista in questo modo:
IDOrdineAcquisti1:left(IDOrdineAcquisti  ;2) & "/" Right(IDOrdineAcquisti
;len(tuocampo)-2)
Nella lista ho 04/000001
ma poi non viene piů eseguita la query .

 Karl ora funziona pero nella struttura QBE della casella di riepilogo
Va bene, ti lascio a Karl, lupo vizioso spelato...
Antonio


 Non voglio essere polemico  mah.... Biso(e non Bisio "errare e umano" solo
gli stolti non errano!! ;-))
ho semplicemente risposto a Karl poiché postandomi il codice non volevo
creare altre discordanze,
quindi non mi sembra il caso di  puntualizzare in tale modo (spero ironico)
e penso che chiunque
possa rispondere(se lo desidera).
Rino