[VB6] Problema di aggiornamento

OrcaAssassina · 23-03-2006, 21:01

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

wingman87 · 24-03-2006, 13:15

Metti tra "else" ed "end if" un valore di default, non so cosa stai salvando ma potrebbe essere "0" oppure uno spazio, non so..

kobezzz · 24-03-2006, 13:28

prova a togliere else

OrcaAssassina · 24-03-2006, 14:18

Ok provo

Ciao e grazieeeeeeee

LiFeHaCk · 05-04-2006, 13:19

anke secondo me metti un valore di default come 0, $, % o quello ke vuoi ciao

23-03-2006, 21:01	#1
OrcaAssassina Senior Member Iscritto dal: Feb 2003 Messaggi: 2818	[VB6] Problema di aggiornamento 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 __________________ AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER

24-03-2006, 13:28	#3
kobezzz Senior Member Iscritto dal: Jan 2005 Città: cremona Messaggi: 1236	prova a togliere else __________________ CAMPIONI DEL MONDO

24-03-2006, 14:18	#4
OrcaAssassina Senior Member Iscritto dal: Feb 2003 Messaggi: 2818	Ok Ok provo Ciao e grazieeeeeeee __________________ AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER

05-04-2006, 13:19	#5
LiFeHaCk Utente sospeso Iscritto dal: Jan 2006 Città: Milano Messaggi: 1470	anke secondo me metti un valore di default come 0, $, % o quello ke vuoi ciao __________________ Trattative Concluse: innomatte - damascato - offear - shadowman - magnavox - pallox - rug22 - marcello979 - aracnox - markese - gargasecca - dinamite2 - pipperoblu - grandemago - cicillover - frhell - fibo - xpiuma - gianfry24 - ciaopx87 - mstella - ciccio13 - mstella - jan the last - nino.nino - Robin-Hood - Sgt.Pepper89 Ecc... Ecc...

24-03-2006, 13:15	#2
wingman87 Senior Member Iscritto dal: Nov 2005 Messaggi: 2791	Metti tra "else" ed "end if" un valore di default, non so cosa stai salvando ma potrebbe essere "0" oppure uno spazio, non so..

Strumenti
Mostra una versione stampabile Invia questa pagina per email