PC-HELP.CZ

Čaute,

vo VBA mám vytvorený formulár a nefunguje mi zvýraznenie tlačítka Button_Dalej.SetFocus, keď ho volám z funkcie Private Sub ComboBox_Firma_Exit(ByVal Cancel As MSForms.ReturnBoolean).

Tlačítko mám nastavené dobre (keby som to zavolal z Private Sub UserForm_Initialize(), tak je to OK).
Problém je v tom, že tlačítko sa mi nenastaví, keď opustím ComboBox stlačením "tab", alebo "Enter", keď sa prepnem myškou je to OK. Pri tom "tab", alebo "Enter" to funguje len pokiaľ neopustím funkciu Private Sub ComboBox_Firma_Exit, potom ma to hodí o jednu hodnotu TabIndex ďalej (namiesto 2 na 3, napr. keby som nemal použité Button_Dalej.SetFocus, tak ma to po stlačení Enter hodí na pozíciu 2, keď to použijem hodí ma to na pozíciu 3).

Vôbec tomu nechápem a už som z toho zúfalý... :(

Celý kód:

Kód: Vybrat vše

Private Sub ComboBox_Firma_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim SuborDatabazaNazov As String    'Premena s nazvom databazi

    SuborDatabazaNazov = "Databaza Firiem.xlsx" 'Zadame nazov databazi do premennej



    On Error Resume Next    'Nezobrazime err

    'Zistime ci je subor otvoreny

    Set SuborDatabaza = Workbooks(SuborDatabazaNazov)   'Nacitame subor

    SuborDatabazaOtvoreny = Not SuborDatabaza Is Nothing    'Zistime ci je otvoreny

    

    If SuborDatabazaOtvoreny = True Then   'Ak je otvoreny

        Workbooks(SuborDatabazaNazov).Activate   'Aktivujeme subor

        

        With Range("Nazov_DatabazaFirmy")   'Prehladavame v nazvoch firiem

            Set Rng = .Find(FormFirma.ComboBox_Firma.Value, MatchCase:=True)    'Hladame ci je zadana firma v databaze

            If Not Rng Is Nothing Then  'Ak je nastavime hodnoty z databazy

                FirmaZDatabazy = True   'Firma sa nachadza v databaze

                

                TextBox_Adresa.Value = Rng.Offset(0, 1).Value

                TextBox_PSC.Value = Rng.Offset(0, 2).Value

                TextBox_Mesto.Value = Rng.Offset(0, 3).Value

                TextBox_ICO.Value = Rng.Offset(0, 4).Value

                TextBox_DIC.Value = Rng.Offset(0, 5).Value

                Button_Dalej.SetFocus

                

            Else    'Ak nie je vymazeme hodnoty

                TextBox_Adresa.Value = ""

                TextBox_PSC.Value = ""

                TextBox_Mesto.Value = ""

                TextBox_DIC.Value = ""

                TextBox_ICO.Value = ""

            End If

            ThisWorkbook.Activate   'Nastavime aktivny, aktualny zosit, aby nas nepreplo do databazy

         End With

    End If

End Sub

Private Sub UserForm_Initialize()

    ComboBox_Firma.SetFocus 'Na zaciatku nastavime kurzor na nazov firmy

End Sub

A čo keby ste nastavil TabIndex toho buttonu o jedno vyšší ako ma TabIndex ten combobox ? Tak by to malo fungovať... aspoň u mňa to v tom prípade funguje aj pri Enter aj pri Tab.

Ďakujem za odpoveď. Toto mi robilo problém v tom, že na tlačítko som chcel skočiť iba ak sa mi formulár vyplnil automaticky. Ale už to mám: overovanie som zmenil z funkcie _Exit na _Change a tam mením TabIndex, ako píšete, podľa toho či sa mi formulár automaticky vyplnil. Potom vo funkcií ComboBox_Firma_Exit naspäť nastavím TabIndex na pôvodné číslo, aby následne fungoval tab normálnym poradím.

PC-HELP.CZ

Excel VBA SetFocus

Excel VBA SetFocus

Re: Excel VBA SetFocus

Re: Excel VBA SetFocus