[VB] Ciclo di SetFocus ?

[dops]

ciao stò facendo un controllo su delle textBox, cioè se delle textBox sono vuote devo settare il fuoco su quelle vuote.. provo a spiegarmi meglio.. ho questo codice:

If t_socion = "" Or t_nome = "" Or t_cognome = "" Or t_natoa = "" Or t_natoa = "__/__/____" Or t_natoa = Null Or t_scadenza = "__/__/____" Or t_scadenza = Null Then
   MsgBox ("Per poter procedere al salvataggio inserire almeno:  Socio N., Nome, Cognome, Luogo di nascita, Data di nascita, Scadenza ")
   t_socion.SetFocus
   Exit Sub
End If

controllo se t_socion o t_nome ecc.. sono vuote o hanno un valore non valido.. così com'è il codice adesso se una qualunque di queste è vuota, il fuoco viene sempre settato su t_socion.
Ora io vorrei che il fuoco venisse settato sulla textBox che realmente è vuota o ha un valore non valido, se ci sono + textBox vuote o con valore non valido il fuoco andrebbe a cadere sulla prima in ordine di tabIndex.
Come dovrei fare? un ciclo? ma come?

[Last_Winter]

ciao stò facendo un controllo su delle textBox, cioè se delle textBox sono vuote devo settare il fuoco su quelle vuote.. provo a spiegarmi meglio.. ho questo codice:


code:--------------------------------------------------------------------------------
If t_socion = "" Or t_nome = "" Or t_cognome = "" Or t_natoa = "" Or t_natoa = "__/__/____" Or t_natoa = Null Or t_scadenza = "__/__/____" Or t_scadenza = Null Then
MsgBox ("Per poter procedere al salvataggio inserire almeno: Socio N., Nome, Cognome, Luogo di nascita, Data di nascita, Scadenza ")
t_socion.SetFocus
Exit Sub
End If
--------------------------------------------------------------------------------


controllo se t_socion o t_nome ecc.. sono vuote o hanno un valore non valido.. così com'è il codice adesso se una qualunque di queste è vuota, il fuoco viene sempre settato su t_socion.
Ora io vorrei che il fuoco venisse settato sulla textBox che realmente è vuota o ha un valore non valido, se ci sono + textBox vuote o con valore non valido il fuoco andrebbe a cadere sulla prima in ordine di tabIndex.
Come dovrei fare? un ciclo? ma come?
--------------------------
Brutalmente la prima cosa che mi è venuta in mentefai un if con tanti elseif:

if txt1="" then
txt1.setfocus
elseif txt2="" then
.
.
.
end if

altrimenti nell'evento del lostfocus delle text fai un controllo se la text è vuota e in caso positivo fai rimanere il focus su quella text:metallica :metallica :metallica :metallica :metallica

:metallica

[dops]

ehm per questo avevo detto "ciclo" vorrei evitare 20 elseif
Ciao

[Markho]

sono sempre io, eh dops?

cmq, secondo me, se invece che dare 20 nomi diversi alle text ne dai uno, per esempio txtAAAAA, poi le indicizzi da 1 a 20.

fai un ciclo che le scorre

For i = 1 To 20
   If txtProva(i).Text = "" Then
      txtProva(i).SetFocus
      Exit For
   End If
Next i

quando tropa che la text è vuota le da il focus ed esce dal controllo, quindi alla prima che trova vuota si ferma.....

[dops]

hehe grazie Markho
si ho sbagliato a dare nomi diversi per ogni textbox ma quando ho iniziato il programma non ho ordinato i campi ne database e tu sai che gli indici funzionano se i campi sono ordinati rispetto alle textBox nel programma.. quindi essendo arrivato alla fine del programma, mi trattengo nel dover modificare tutto il codice fatto.. e mi conviene perdere 10 min. in + nel fare tutti le elseif
ti prometto che la prossima volta indicizzo tutte le textbox
Ciao

[optime]

puoi prendere spunto da questo stralcio di codice

   Dim ctrl As Control
   For Each ctrl In Me
      If Left$(ctrl.Name, 2) = "t_" Then
         ' qui metti quello che devi fare
      End If
   Next
   Set ctrl = Nothing

[dops]

mmm.. potresti spiegarmelo ?

[xegallo]

in pratica il codice di optime fa un controllo se il nome di un controlla inizia per "t_" allora fa quello che deveessere fatto altrimenti controlla un altro controllo

[dops]

mmmm.. però mi sembra una buona soluzione.. i miei cmpi iniziano tutti con t_
Solo una cosa.. posso inserire questo ciclo all'evento validate della txtBox ? se no dove devo inserirlo?
Grazie