[vb] levare gli spazi da data combo

[ale500]

salve a tutti...

avrei una necessità abbastanza urgente con Access e l'interfacciamento con VB....

vi spiego...per reperire dei valori di un attributo e metterli in un combo uso dei data combo e tutto mi rimane più facile...ma visto che ho imposto il mio campo con lunghezza 20 caratteri i campi che sono più corti vengono arricchiti di spazi (fino ad arrivare a 20)

lo stesso succede nel data combo...infatti oltre alla parola da mostrare mi si vedono anche gli spazi e se io cancello gli spazi il controllo mi da errore....

il controllo è una cosa del genere...

If Not (data_combo.MatchedWithList) Then Exit Sub e quindi se levo gli spazi mi esce dal programma....

esiste un modo di levare gli spazi e di validare successivamente i valori nel data combo???? (oppure fare in modo che Access non riempa da solo la parola con degli spazi....

[ale500]

help me, pleaze....tnx!!!!

[darkblOOd]

se usi vb6 guarda le funzioni

TRIM()
LTRIM()
RTRIM()

[allejo]

NomeCombo.AddItem Trim(NomeRecord)

[ale500]

x darkblOOd:

trim e le sue funzioni derivate eliminano gli spazi iniziali o finali (o entrambi)

x allejo
io uso delle datacombo e non delle combo comuni...

grazie a tutti e grazie anche delle risposte che mi darete...

[ladyBlu]

Originariamente inviato da ale500
1) trim e le sue funzioni derivate eliminano gli spazi iniziali o finali (o entrambi)

2) io uso delle datacombo e non delle combo comuni...

grazie a tutti e grazie anche delle risposte che mi darete...

Trim: elimina gli spazi iniziali e finali
LTrim: elimina gli spazi iniziali
RTrim: elimina gli spazi finali

per caricare una datacombo senza spazi devi eseguire la Trim nella Select origine dati del recordset; ad esempio:

Dim miaconn As New ADODB.Connection
Dim miors As New ADODB.Recordset
Dim strsql As String

miaconn.ConnectionString = "driver..."
miaconn.Open

strsql = "select idnominativo, Trim(cognome) As Cognome " & _
         "from tbnominativi"
miors.Open strsql, miaconn, 1, 3

With DataCombo1
     Set .RowSource = miors
     .ListField = "Cognome"
     .BoundColumn = "idnominativo"
     .Refresh
End With

[ale500]

Originariamente inviato da ladyBlu
Trim: elimina gli spazi iniziali e finali
LTrim: elimina gli spazi iniziali
RTrim: elimina gli spazi finali

per caricare una datacombo senza spazi devi eseguire la Trim nella Select origine dati del recordset; ad esempio:

strsql = "select idnominativo, Trim(cognome) As Cognome " & _
         "from tbnominativi"
miors.Open strsql, miaconn, 1, 3

ma in questo modo mi leva gli spazi iniziali o finali...ma solo se ce ne è uno di spazio...nel mio caso il testo nell'attributo ha 20 caratteri e se ad esempio nel valore rispettivo all'attributo di un record (scusate il gioco di parole c'è scritto alessio (7 caratteri) nella mia data combo mi scrive "alessio " (alessio + 13 caratteri di spazio) come faccio a levarli...grazie

[ladyBlu]

Originariamente inviato da ale500
ma in questo modo mi leva gli spazi iniziali o finali...ma solo se ce ne è uno di spazio...nel mio caso il testo nell'attributo ha 20 caratteri e se ad esempio nel valore rispettivo all'attributo di un record (scusate il gioco di parole c'è scritto alessio (7 caratteri) nella mia data combo mi scrive "alessio " (alessio + 13 caratteri di spazio) come faccio a levarli...grazie

in questo modo te li leva tutti

[ale500]

grazie funziona...era tantissimo che cercavo questa cacchio di funziona...


TI VOGLIO UN BENE DELLA MADONNA!!!!

[ladyBlu]

Originariamente inviato da ale500
grazie funziona...era tantissimo che cercavo questa cacchio di funziona...


TI VOGLIO UN BENE DELLA MADONNA!!!!

uè... esagerato/a