• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: aktivovat textbox

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

TextBox6.SetFocuscitovat

PavDD(30.1.2024 14:23)#056088

a to ladění v kodu, nějak v tom lítám

Příloha: 56088_overit.zip (18kB, staženo 1x)

citovat

Stalker(30.1.2024 14:47)#056089

Tak?

Příloha: 56089_overit.zip (20kB, staženo 5x)

citovat

PavDD(31.1.2024 8:03)#056091

ano tak.

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

děkujicitovat

Stalker(31.1.2024 11:01)#056093

Tak schválně ty dva řádky zakomentuj a sleduj co se stane. Jistě na to přijdeš. citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse