Newsgroup: it.comp.appl.access
Titolo: Problema con for...next

Salve
Attraverso un esempio vi spiego cosa devo realizzare:
Ho 4 textbox txt1, txt2, txt3, txt4 e ho due variabili di tipo stringa a cui
assegno i seguenti valori:
str1="e poi "
str2="vuote"
Con un ciclo for...next devo far in modo di stampare o scrivere in un altra
textbox txtRis soltanto i valori che inserisco nelle textbox senza lasciare
spazi.
Per esempio:
txt1="tizio"
txt2=""
txt3="caio"
txt4=""
il mio risultato in txtRis deve essere:
tizio e poi caio
Siccome txt2 e txt4 sono vuote devono essere ignorate.
Se infine tutte le textbox sono vuote, devo avere come risultato o msgbox la
stringa str2 cioč "vuote".
Spero di essere stato chiaro. Se lo sono stato, potete aiutarmi ?
Grazie

 Grazie
app = ""
if txt1<>"" then app = txt1
if txt2 <> "" then
  if app = "" then app = txt2 else app = app & " " & str1 & " " & txt2
if txt3 <> "" then
  if app = "" then app = txt3 else app = app & " " & str1 & " " & txt3
if txt4 <> "" then
  if app = "" then app = txt4 else app = app & " " & str1 & " " & txt4
if app = "" then  msgbox str2 else txtRis = app
Antonio


Antň, io so che tu puoi fare di meglio :-)
dim liConta as Integer
dim lsConcatena as String
dim lsCorrente as String
lsConcatena = vbNullString
lsCorrente = vbNullString
for liConta = 1 to n
    'Supponendo che il codice venga definito nella maschera stessa
    lsCorrente = Me.Controls ("txt" & liConta) & vbNullString
    if lsConcatena = vbNullString then
        lsConcatena = lsConcatena & lsCorrente
    else
        lsConcatena = lsConcatena & " e poi " & lsCorrente
        'Ovviamente questo crea "Tizio e poi Caio e poi Sempronio"...
        'Se si vuole "Tizio, Caio e poi Sempronio"... l'algoritmo va
affinato ;-)
    End If
Next
If lsConcatena = vbNullString Then
    msgbox "Vuote"
else
    txtRisp = lsConcatena
End If
Sperando di aver capito bene il problema...
saluti
Michele Amato
--
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
Sulla mia pagina personale
http://utenti.worldonline.it/micheleamato
č possibile trovare una add-in per Access97-2000:
          Access Navigator 3.0
ho pubblicato anche la prima parte di un TUTORIAL
sull'uso di questo strumento
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}

 End If
Sicuramente la tua soluzione è più elegante, però
1) fa la stessa cosa
2) A codice scritto stiamo lì
3) Per il tizio che ha chiesto aiuto, la tua soluzione è un po' più
difficile da capire, la mia è più semplice per cominciare...
Antonio

 Antonio
Antň, non ti riconosco +.
Nessuna battuta di spirito...
Nessuna presa per il culo...
Ao ma non č hai iniziato a prenderti sul serio?
Michele Amato
P.S.
L'amico "sal" chiedeva come fare quella cosa con un loop...

a nino, già me devo scaricà dumileccinque mex arretrati (cor
cavolo...), te ce metti pure tu a quotà tutti i messaggi... vabbè che
me sò preso na flat, ma nzomma, vedi che puoi fà...
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

 Ao ma non č hai iniziato a prenderti sul serio?
Ma non č che me la sono presa. Era proprio un dato di fatto che la mia
soluzione era piů scrausa ma magari piů adatta al tipo e la tua piů
elegante...
Antonio

 ha scritto nel messaggio
news:0GrV5.516$hk4....@news.infostrada.it...

Non litigate :-)
Ho adattato entrambe le soluzioni alle mie esigenze e naturalmente
funzionano alla perfezione.
Grazie.


Ben tornato
Michele Amato


Per me tu non sei Antonio Biso, sei un clone...
Michele Amato

 wrote in message
DrwV5.2343$hk4....@news.infostrada.it...

Oh, una volta che uno vole fa del bene...
Antonio

 wrote in message
kCAV5.5069$hk4.1...@news.infostrada.it...

Ancora non mi convinci.
Michele Amato

 Ancora non mi convinci.
Uhmmm...
casa di luciano sopra il deposito dell'atac... ti basta?
Antonio

 wrote in message
x_OV5.8583$hk4.2...@news.infostrada.it...

Ok.
Deve essere un brutto periodo per te se il tuo famoso humor č un queste
condizioni...:-))
Antň e dai tirati sů...
Saluti
Michele Amato
P.S.
Comunque non ero io quello del...
