USERFORM FOCUS

[christianghz]

Ciao a tutti
ho una userform con una textbox (dove sparo dei codici a barre) e un command button.
Sulla userform gira questo codice (che ho semplificato):

Codice: Seleziona tutto

Private Sub TextBox1_Change()

'quando il codice è di 16 cifre lo inserisce in elenco  e svuota la textbox
If Len(TextBox1.Value) = 22 Then
code = TextBox1.Value

 
With sh1
   
        URiga = .Cells(Rows.Count, 1).End(xlUp).Row
        sh1.Range("A" & URiga + 1).Value = code
        sh1.Range("B" & URiga + 1).Value = Format(Now, "dd-mm-yyyy") 'oggi
        sh1.Range("C" & URiga + 1).Value = Format(Time, "hh:mm:ss")
       
        TextBox1.Value = ""
code = ""
End With
End If

UserForm1.TextBox1.SetFocus

End Sub

il problema è che, quando sparo il barcode, il focus si sposta sul command button, impedendomi di sparare il successivo barcode.
NB: facendo ctrl+c ctrl+v del codice barcode da tastiera il problema invece non si pone, il focus e il cursore restano sempre sulla textbox.


Ho già provato a usare UserForm1.TextBox1.SetFocus
e anche come letto su qualche forum americano:
Application.SendKeys "{TAB}"
'Application.SendKeys "{ENTER}"

ma non funzionano, il command button rimane sempre in focus (coi puntini di selezione attorno)

[Anthony47]

Devo immaginare che l'ultimo carattere nel barcode sia l'equivalente di un Enter, seno' non capisco come fa il Textbox a perdere il focus.
Quindi il mio suggerimento e' che abbandoni l'uso del TextBox1_Change e passi al TextBox1_Exit, che ha al suo interno la possibilita' di evitare la perdita del focus. Del tipo:

Codice: Seleziona tutto

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'qui le istruzioni per
'caricare il contenuto del textbox
'sul foglio di lavoro
TextBox1.Value = ""
Cancel = True
End Sub


Questo ovviamente presuppone che non esista nessun altro controllo sulla userform che abbia bisogno di ottenere il focus, ma da quel che ho capito esiste solo il commandubutton.

Ciao

[christianghz]

Grazie Anthony,
funziona perfettamente!