Ado & Access

[andrewferri]

Private Sub CMDMODIFICA_Click()
oarea.rs!area = Text1.Text (riga che genera l'errore)
oarea.rs.Update
Unload Me
Frmaree.Show
End Sub

[allejo]

Errore sulla lunghezza???????
provi così:

Private Sub CMDMODIFICA_Click()
if len(Text1.Text)>20 then
msgbox"Errore la lunghezza deve essere lunga di 20 char"
else
oarea.rs!area = Text1.Text (riga che genera l'errore)
oarea.rs.Update
end if
Unload Me
Frmaree.Show
End Sub

poi mi fai sapere

[andrewferri]

Ho applicato "rtrim".


Grazie di tutto.