< návrat zpět

MS Excel

Téma: aktivovat textbox rss

Zaslal/a PavDD 30.1.2024 14:07

Mám formulář, kde ověřuji vyplněný textbox, pokud tam není hodnota žádná, nebo je hodnota špatná/není to datum, vyhodnotím to jako error /+msg info" ,s odskokem na GoTo...
a chci aby se to vrátilo na ten textbox.
Dá se to nějak, je nejaký přikaz na znovuzaktivnění textboxu, aby se do něj i sám umístil kurzor?

On Error Resume Next 'zkontroluje formát datumu
Cells(poziceradek, 5).Select 'v aktivním řádku vybere sl.5
'doplni hodnotu jako datum dd.mm.rrrr
Cells(poziceradek, 5).Value = DateValue(Replace(TextBox6.Text, ".", "/"))

If Err.Number <> 0 Then
MsgBox "Datum chybí,nebo je špatně!", vbCritical, "Chyba !"
formulář !", vbCritical, "Chyba !"

On Error GoTo 0


Děkuji za rady

Zaslat odpověď >
Stalker(30.1.2024 14:18)#056087
Stalker
TextBox6.SetFocuscitovat
PavDD(30.1.2024 14:23)#056088
avatar
a to ladění v kodu, nějak v tom lítám
Příloha: zip56088_overit.zip (18kB, staženo 2x)
citovat
Stalker(30.1.2024 14:47)#056089
Stalker
Tak?
Příloha: zip56089_overit.zip (20kB, staženo 7x)
citovat
PavDD(31.1.2024 8:03)#056091
avatar
ano tak.

a k čemu je :
.TextBox1.SelStart = 0
.TextBox1.SelLength = Len(.TextBox1.Text)

děkujicitovat
Stalker(31.1.2024 11:01)#056093
Stalker
Tak schválně ty dva řádky zakomentuj a sleduj co se stane. Jistě na to přijdeš. 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje