Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Con Access:Add e Aggiorna

Salve a tutti mi chiamo Alessio e sono un novizio della programmazione in VB
Devo gestire un archivio di persone e per fare questo ho utilizzato un
controllo Data e vari textbox che ho associato ai vari campi
dell'archivio.L'archivio è di tipo Dynaset.Il problema sorge quando devo
Aggiungere o aggiornare Elementi all'interno dell'archivo. Il codice che ho
scritto è il seguente:
'Funzione Aggiungi
Private Sub cmdAdd_Click()
    If Text1.Text = "" Or Text2.Text = "" Then
        MsgBox ("Impossibile aggiornare l'archivio. Valore nei campi non
validi")
    Else:
        DataClienti.Recordset.AddNew
    End If
End Sub
Con questa funzione quando modifico uno dei campi del record corrente per 2
volte mi da questo errore "3426". Se quando modifico un campo clicco poi su
aggiorna invece che su Aggiungi il problema non si verifica:
'Funzione Aggiorna
Private Sub Command1_Click()
    If Text1.Text = "" Or Text2.Text = "" Then
        MsgBox ("Impossibile aggiornare l'archivio. Valore nei campi non
validi")
    Else:
        DataClienti.UpdateRecord
        DataClienti.Recordset.Bookmark = DataClienti.Recordset.LastModified
    End If
End Sub
Questa funzione però mi genera un'altro messaggio d'errore "3020" In pratica
se mi posiziono su un nuovo record con le freccie del controllo data e poi
mi riposiziono su un record precedente che contiene informazioni e clicco su
aggiorna il prg si blocca generando il messaggio di errore sopra menzionato
Se qualcuno ha qualche idea o suggerimento può contattarmi anche
privatamente su 
bad...@edl.it
Grazie per l'attenzione

Ciao.
Cosi mi sono risposto
Ciao ti ringrazio per avermi postato il sugg. ma purtroppo non funziona o
almeno c'è un caso che non riesce a trattare.Precisamente dopo aver
eliminato tutti i record dell'archivio con l'istruzione delete (Mi pare che
ho usato Data1.RecordSet.Delete e poi Data1.RecordSet.MoveNext) se ne
aggiungo uno con l'istruzione Add da te suiggeritami da un errore di
runtime........Comunque una "Soluzione" l'ho trovata diciamo che ho cercato
di aggirare il problema in che modo? Quando si verifica il caso che mi crea
problemi Salvo il contenuto delle textbox in alcune variabili globali faccio
l'unload del form lo ricarico e richiamo di nuovo il codice associato al
bottone Aggiungi....in questo modo funziona (mi riprometto di trovare una
soluzione più logica quando avrò piu' tempo) L'unico inghippo e' che la
finestra del form a cui è associato il controllo data viene ridisegnata
leggermente spostata e il bello e che non riesco ad applicare la proprieta
move al form per spostarlo nella posizione originaria (0,0)..utilizzo
l'istruzione nomeform.move(0,0) e' sbagliata? Grazie comunque per l'aiuto.
Ti allego di seguito il codice che ho utilizzato per imbrogliare :)
Private Sub cmdAdd_Click()
    If Text1.Text = "" Or Text2.Text = "" Then
        MsgBox ("Impossibile aggiornare l'archivio. Valore nei campi non
validi")
    Else:
         If DataClienti.Recordset.EOF = True Then
            Nome = Text1.Text
            Cognome = Text2.Text
            Indirizzo = Text3.Text
            Telefono = Text4.Text
            Trattamento = Text5.Text
            Note = Text6.Text
            Unload Me
            Clienti.Text1 = Nome
            Clienti.Text2 = Cognome
            Clienti.Text3 = Indirizzo
            Clienti.Text4 = Telefono
            Clienti.Text5 = Trattamento
            Clienti.Text6 = Note
            cmdAdd_Click
        Else:
            DataClienti.Recordset.MoveFirst
            DataClienti.Recordset.MoveLast
            DataClienti.Recordset.Addnew
        End If
   End If
End Sub
P.S.
Come mai quando esco dal form (in esecuzione) a cui e' associato l'archivio
access l'icona del form cambia (si trasforma nella clessidra ma posso
lavorare lo stesso e non appena clicco da qualche altra parte ritorna come
prima)?