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
