< návrat zpět

MS Excel


Téma: aktivovat textbox rss

Zaslal/a 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ěď >

#056087
Stalker
TextBox6.SetFocuscitovat
#056088
avatar
a to ladění v kodu, nějak v tom lítám
Příloha: zip56088_overit.zip (18kB, staženo 1x)
citovat
#056089
Stalker
Tak?
Příloha: zip56089_overit.zip (20kB, staženo 5x)
citovat
#056091
avatar
ano tak.

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

děkujicitovat
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Tlac s farebneho

ivana1 • 19.6. 22:16

GRAF teploty

Scraper • 18.6. 15:34

Vyhledat dnešní datum když je číslo jako text

veny • 17.6. 13:56

Vyhledat dnešní datum když je číslo jako text

Ontik • 17.6. 12:07

Zaokrouhlování

lubo • 17.6. 12:03

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52