Newsgroup: it.comp.appl.access
Titolo: Aggiornare campo tb

Ciao a tutti
(Aggiustato per l'occorrenza)
Ho un modulo con questo codice:
--------------------------------------
Option Compare Database
Function fctAggDataUltimoUtil(codx As String, prex As Single)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * from tb_Movimenti_Magazzino 
where lCodiceBarreProdotto = '" & codx & "'")
With rst
    .Edit
    !dDataMovimento = prex
    .Update
    .Close
End With
Set rst = Nothing
End Function
Function fctAggDataUltimoUtilTutti(Nux As Integer)
Dim RstArt As DAO.Recordset
Set RstArt = CurrentDb.OpenRecordset("select * from Tb_Prodotti 
DataUltimoUtil = " & Nux)
With RstArt
Do
    If Not .EOF Then
        Call fctAggDataUltimoUtil(!lCodiceBarreProdotto, 
Nz(!DataUltimoUtil))
    .MoveNext
    End If
Loop Until .EOF
MsgBox "Aggiornato Data ultimo utilizzo"
End With
End Function
---------------------------------------
la funzione la richiamo  a fronte dell'evento dopo aggiornamento del 
MioControllo
con: fctAggDataUltimoUtilTutti
La mia intenzione era:
sull'evento dopoaggiornamento del mio controllo,
riportare la data del prodotto movimentato
nella mia maschera, nella tabella Tb_Prodotti, al corrispondente Ccodice 
prodotto.
MA non va, purtroppo mi segnala errore:
Errore di compilazione
Argomento non facoltativo (errore 449)
Mi auguro di essere stato chiaro.
Napoleone 

 Napoleone
una curiositŕ che ho sempre avuto e di cui ne approfitto (visto che ho il
diretto interessato)
Ma di che colore č il tuo cavallo bianco???
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it


Bianco!!
Napoleone 

 Diventa
---------------
Set RstArt = CurrentDb.OpenRecordset("select * from Tb_Prodotti
DataUltimoUtil = # " & Nux & #")
---------
la riga sopra me la segna rossa.
Andrà invertito qualche segno?
....
A proposito di cavallo..
anche il grande Massimo del gladiatore.. ha un cavallo bianco?
Napoleone

 Napoleone
Ma vieni....
lo sapevo, sono un mago!!!!!


 Napoleone
-- 


 lo sapevo, sono un mago!!!!!
Quante volte l'hai chiesto da piccolo?
Ed ancora ora?
Napoleone 

 O andrà aggiunto un where?
Tu che dici?
Napoleone 


Napi, nell'istruzione riportata manca il where, non so se poi invece l'hai
messo
select * from Tb_Prodotti [................]
DataUltimoUtil = # " & Nux & #")


 DataUltimoUtil = # " & Nux & #")
Maxy, è da ieri che sono in standBy, in attesa di impulso!
Buona Giornata
Napoleone 


Cioa Napoleone, non ho capito se hai messo la parola where al posto di
[...........]  ?


 [...........]  ?
Non l'ho messa ..
Ciao
Napoleone 

 Napoleone


CUT
---
Set RstArt = CurrentDb.OpenRecordset("select * from Tb_Prodotti WERE 
DataUltimoUtil = # " & Nux & #")
--
Segnala
Errore di compilazione
Errore di sintassi
Ciao
Napoleone 

 DataUltimoUtil = # " & Nux & #")
WHERE
l'h è muta mica fessa!!!


 l'h è muta mica fessa!!!
---
Set RstArt = CurrentDb.OpenRecordset("select * from Tb_Prodotti WHERE 
DataUltimoUtil = # " & Nux & #")>
---
il messaggio non cambia, nonostante tutto.
Al debug mi evidenzia l'ultimo #
Napoleone 

 Napoleone



Adesso finalmente non ci sono più errori!
MA se vado a controllare nella tb_Prodotti nel campo DataUltimoUtil, è 
vuoto!
Napoleone