[VB6] Problema di aggiornamento record con TextBox vuote

[marco.santilli]

Ho un pulsante "SALVA MODIFICHE", che un utente quando ci clicca fa eseguire questo codice.

Private Sub Salva_Click()
rsRecordSet2.Update
rsRecordSet2![ACA] = Text4.Text & ""
rsRecordSet2.Update
End sub

Cosi facendo se un utente su tale casella non mette nessun valore quindi "" va in errore.
Il dato viene salvato in un campo impostato come Testo.

Ho modificato il codice mettendo il controllo del valore ""



Private Sub Salva_Click()
rsRecordSet2.Update
If Text4.Text <> "" Then
rsRecordSet2![ACA] = Text4.Text & ""
rsRecordSet2.Update
Else
End If
End sub


Cosi il funzionamento è perfetto, non va più in errore, però c'è un altro problema.
Se un giorno un utente dovesse modificare il valore in quel campo ed eliminare il contenuto perchè non più utile, questo non è possibile realizzarlo in quanto se il valore è "" lui non esegue la modifica di quel campo


C'è un modo per risolvere tale problema????

Ciao e grazieeeeeeeeeeee

[mgmg]

Puoi provare in questo modo se rsRecordSet2!ACA accetta i blank:

Private Sub Salva_Click() 
'questo non serve
'rsRecordSet2.Update   
  If Trim(rsRecordSet2!ACA) <> Trim(Text4.Text) Then 
    rsRecordSet2!ACA = Text4.Text & ""
    rsRecordSet2.Update 
  End If 
End sub

Ciao

[marco.santilli]

Ok dopo lo provo


Ciao e grazieeeeeee

Con la funzione TRIM cosa si ottiene????

Cosi almeno imparo nuove funzioni

[mgmg]

Trim elimina gli spazi superflui sia a dx che a sx di una stringa. Esistono anche le Funzioni LTrim() (Left Trim), RTrim() (Right Trim) che eliminano gli spazi a sx e dx.

Ciao

[marco.santilli]

Continua ad andarmi in errore

Ti scrivo l'errore:


Errore run-time '-2147217887 (80040e21)

Il campo "Fax Temp.ACA" non può contenere una stringa di lunghezza uguale a zero.



Ciao e grazieeeeeeeeeeeeee

[mgmg]

Perchè il campo nel data base è stato definito come: richiesto:Sì e molto probabilmente consenti lunghezza zero: No.
Quindi questo campo non potrà mai avere valore = "". Devi per forza fare update solo se diverso da blank.

Private Sub Salva_Click() 
  If Text4.Text <> "" Then 
    rsRecordSet2!ACA = Text4.Text & ""
    rsRecordSet2.Update 
  End If 
End sub

Ciao

[marco.santilli]

Ho risolto

Era come dicevi

Su richiesto era NO.
Però c'era consenti lugnhezzi zero = NO

Ho portato il valore a SI

E il codice l'ho modificato completamente

Private Sub Salva_Click()
sRecordSet2!ACA = Text4.Text & ""
rsRecordSet2.Update
End sub

Senza il ciclo IF tanto adesso non serve in tutti i modi di salva quindi non va più in errore

Ciao e grazieeeeeeeee