Newsgroup: it.comp.appl.access
Titolo: ASSURDO

Salve a tutti,
ho tre tabelle, una principale ed altre due da dove prelevo dei dati da
visualizzare in una maschera (tutto questo avviene tramite due routine
evento su click di due pulsanti di aggiornamento)..
La cosa strana è che i dati vengono prelevati per tutti i modelli tranne per
uno, ho controllato ed il modello è uguale su tutte e tre le tabelle, per
provare ho fatto anche una query e i dati di questo modello me li
visualizza, per tramite routine no.
Qualcuno mi sa dire dove andare a sbattere la testa ??
Grazie
P.S. allego la routine evento se può essere utile.
1) Private Sub Aggiornamento_Modelli_da_MODEL00F_Click()
    Dim rs As Recordset
    Dim Modello As String
    Dim desmod As String
    Set rs = CurrentDb.OpenRecordset("SELECT SIGLAMOD, DESMOD FROM
NSIOCOM01_MODEL00F ORDER BY SIGLAMOD")
    Modello = rs.Fields("SIGLAMOD")
    desmod = rs.Fields("DESMOD")
    Do While Not rs.EOF
        If Modello = "" Or Modello <> rs.Fields("SIGLAMOD") Then
            CurrentDb.Execute ("UPDATE [Archivio Veicoli of AS400] SET
[Descrizione Modello]='" & desmod & "' WHERE Modello='" & Modello & "'")
            Modello = rs.Fields("SIGLAMOD")
        End If
        desmod = rs.Fields("DesMod")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    MsgBox ("Operazione di Aggiornamento Modelli da Model00F TERMINATA")
End Sub
2) Private Sub Agg_to_da_TIPOVE93_Click()
    Dim rs As Recordset
    Dim Modello As String
    Dim obiett As String
    Dim VETSTAT As String
    Dim tipalim As String
    Dim NuovoValore As String
    Set rs = CurrentDb.OpenRecordset("SELECT NMODEL,DESCRMOD,ANNOMODEL,
LETTAMOD, OBIETTIVO, VETTUSTAT, TIPOALIM FROM TIPOVE93 ORDER BY NMODEL")
    Modello = rs.Fields("NMODEL")
   obiett = rs.Fields("OBIETTIVO")
   VETSTAT = rs.Fields("VETTUSTAT")
   tipalim = rs.Fields("TIPOALIM")
    Do While Not rs.EOF
'        If IsNull(rs.Fields("TIPOALIM")) Then
 '           NuovoValore = InputBox("Inserisci il valore relativo al modello
* Lettere B C D * " & _
  '          (rs.Fields("DESCRMOD")) & " dell'Anno " &
(rs.Fields("ANNOMODEL")), "Sigla modello " & (rs.Fields("NMODEL")))
   '         rs.Edit
    '        rs.Fields("tipoalim") = UCase(NuovoValore)
     '       rs.Update
      '  End If
       ' obiett = rs.Fields("OBIETTIVO")
        'VETSTAT = rs.Fields("VETTUSTAT")
        'tipalim = rs.Fields("TIPOALIM")
        If Modello = "" Or Modello <> rs.Fields("NMODEL") Then
            CurrentDb.Execute ("UPDATE [Archivio Veicoli of AS400] SET
[Statistica]='" & VETSTAT & "' WHERE ModelloRid='" & Modello & "'")
            CurrentDb.Execute ("UPDATE [Archivio Veicoli of AS400] SET
[Obiettivo]='" & obiett & "' WHERE ModelloRid='" & Modello & "'")
            CurrentDb.Execute ("UPDATE [Archivio Veicoli of AS400] SET
[Alimentazione]='" & tipalim & "' WHERE ModelloRid='" & Modello & "'")
            Modello = rs.Fields("NMODEL")
        End If
    '    MsgBox ("TROVATO IL FILE")
        VETSTAT = rs.Fields("VETTUSTAT")
        obiett = rs.Fields("OBIETTIVO")
        tipalim = rs.Fields("TIPOALIM")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    MsgBox ("Operazione di Aggiornamento da Tipove93 TERMINATA")
End Sub

         End If
CUT
Comunque non facevi prima a fare direttamente una query di aggiornamento
basata sulla tabella NSIOCOM01 piuttosto che scorrere manualmente i record
per poi eseguire tante query di aggiornamento quanti sono i record da
aggiornare?
Sib

"Sib dall'ufficio" <cerrise...@SPAMtiscalinet.it> ha scritto nel
messaggio news:Q4uK7.317$BA4....@news1.tin.it...

Hai ragione, per la prima ho fatto una query di aggiornamento e va che è una
bomba, per il secondo non riesco in quanto si tratta di prelevare i dati da
un DBF (Tabella Collegata) e mi dà errore anche a visualizzarla come query
normale.
Dove sbaglio ?
e poi, come devo inserire "aggiorna a" se il nome del campo da aggiornare ha
lo stesso nome ???
per caso [DBF].[NomeCampo]
Grazie anticipate.
ThaiChi

 per caso [DBF].[NomeCampo]
Of course, certo che basta aggiongere il riferimento al nome tabella.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente