codice:
Private Sub cmd_modifica_avviso_Click()
Dim Nuovo_Avviso As String
Nuovo_Avviso = txt_avviso.Text
Set Rs = Conn.Execute("UPDATE Avviso SET Avviso= '" & Nuovo_Avviso & "' WHERE ID='1' ")
MsgBox "Aggiornato!", vbOKOnly, "Avviso"
txt_avviso.Text = Nuovo_Avviso
End Sub
Ho una TXT contente un testo, tramite un CMD modifico il DB con il nuovo Avviso, solo che, se eseguo la modifica e provo a uscire dalprogramma tramite la croce in alto a destra esce questo messaggio:
L'operazione non è consentita se l'oggetto è chiuso
Se invece non premo il tasto e quidni non aggiorno il DB (Access) l'errore non me lo da..
Ho provato a fare Rs.Close ma non succede niente (anzi mi da errore)
Che può essere?