Newsgroup: it.comp.appl.access
Titolo: Metodo Edit

Perchè quando aggiorno un record mi aggiorna anche il primo?
Io voglio che mi aggiorni solo il record trovato con findfirst!
Perchè non funzia?
Set Db = CurrentDb
Set Rst = Db.OpenRecordset("SELECT * FROM Programmazione;")
strCriteri = "[IDProgrammazione] =" & Me!IDMateria.Value
Rst.MoveFirst
Rst.FindFirst strCriteri
Rst.Edit
    Rst("IDAula") = Me!IDAula
    Rst("Ore") = Me!Ore
    Rst("IDAziendaFatt") = Me!IDAziendaFatt
intResponse = MsgBox("Salvare le modifiche?", vbYesNo)
If intResponse = vbYes Then
    Rst.Update
Else
    Rst.CancelUpdate
End If
        Mik

 End If
Se non si trova un record con FindFirst il tuo codice prende il primo.
Prova con:
Set Db = CurrentDb
Set Rst = Db.OpenRecordset("Programmazione", dbOpenDynaset)
strCriteri = "[IDProgrammazione] =" & Me!IDMateria.Value
If Not Rst.BOF Then
   Rst.FindFirst strCriteri
   If Not Rst.Nomatch Then
       Rst.Edit
       Rst("IDAula") = Me!IDAula
       Rst("Ore") = Me!Ore
       Rst("IDAziendaFatt") = Me!IDAziendaFatt
      intResponse = MsgBox("Salvare le modifiche?", vbYesNo)
      If intResponse = vbYes Then
          Rst.Update
      Else
          Rst.CancelUpdate
      End If
   End If
End If
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:9ke0a1$41he2$1...@ID-46617.news.dfncis.de...

Ho esguito il codice, ma niente!
Mi modifica sempre il primo e il terzo (perchè ho scelto il terzo).
Cioè oltre a modificare quello giusto mi modifica anche il primo record!!
        Mik

AIUTO
non riesco a capire perche con una connessione ODBC  facendo un update mi
deve dire che
la tabella è di sola lettura.
riesco a fare tutte le query ma nessun delete, edit, addnew e update
dove sbaglio
a volte il messaggio è anche odbc call failed.
    Set wrkodbc = CreateWorkspace("newodbcworkspace", "admin", "",
dbUseODBC)
    Set conodbc = wrkodbc.OpenConnection("db-assistenza", dbDriverNoPrompt,
, "odbc;uid=;pwd=;dsn=db-assistenza")
Set tab_prodotti = conodbc.OpenRecordset("Prodotti", dbOpenDynaset)
tab_prodotti.edit
    vari campi
tab_prodotti.update
e a questo punto mi dice che la tabella è in sola lettura me se con DAO la
leggo e la scrivo
tranquillamente .

 >        Rst.Edit
per un test.
Questo č il tuo codice completo? Non ci sono altre cose che succedono?
--
HTH
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:9ke51o$3mosm$1...@ID-46617.news.dfncis.de...

Mi da elemento non trovato in questo insieme.
No no il codice non č solo questo ma per l'evento salva modifiche č tutto
qui! Poi io lo faccio uscire dalla maschera.
Private Sub SalvaProgrammazione_Click()
On Error GoTo Err_SalvaProgrammazione_Click
    Dim strCriteri As String, intResponse As String
    Dim Db As Database, Rst As Recordset
    Dim Cancel As Boolean
    Set Db = CurrentDb
    Set Rst = Db.OpenRecordset("Programmazione", dbOpenDynaset)
    strCriteri = "[IDProgrammazione] =" & Me!IDMateria.Value
    If Not Rst.BOF Then
        Rst.FindFirst strCriteri
        If Not Rst.NoMatch Then
            Debug.Print Rst!ID
            Rst.Edit
                'Rst("IDProgrammazione") = Me!Programmazione
                Rst("IDCorso") = Me!IDCorso
                Rst("IDDocente") = Me!Docente
                Rst("IDAttivita") = Me!IDAttivita
                Rst("IDluogo") = Me!IdLuogo
                Rst("IDMateria") = Me!Materia
                Rst("IDAula") = Me!IDAula
                Rst("Ore") = Me!Ore
                Rst("IDAziendaFatt") = Me!IDAziendaFatt
            intResponse = MsgBox("Salvare le modifiche?", vbYesNo)
            If intResponse = vbYes Then
                Rst.Update
                MsgBox "Modificato con successo!"
                DoCmd.Close acForm, "ModificaProgrammazione"
            Else
                Rst.CancelUpdate
            End If
        Else
            MsgBox "Non trovato"
            Exit Sub
        End If
    End If
Exit_SalvaProgrammazione_Click:
    Exit Sub
Err_SalvaProgrammazione_Click:
    MsgBox Err.Description
    Resume Exit_SalvaProgrammazione_Click
End Sub