Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: MultiPage kan het zonder die lelijke tabknoppen  (gelezen 4442 keer)

0 leden en 1 gast bekijken dit topic.

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
MultiPage kan het zonder die lelijke tabknoppen
« Gepost op: 31 januari 2018, 20:58:36 »
Beste Helpers en Oplossers,

Mijn probleem is alsvolgt:

Ik ben met de gedachten aan het spelen om zaken die ik nu al gebruik maar daarvoor diverse verschillende userforms gebruik dit, indien mogelijk, te bundelen tot 1 userform met gebruik van multipage. Allereerst heb ik getest of ik bij verschillende TAB's ook verschillende "Sheets" kon selecteren, dat kan dus heel goed met

Private Sub MultiPage1_Change()
If MultiPage1.SelectedItem.Index = 0 Then
        ActiveWorkbook.Sheets(1).Activate
    ElseIf MultiPage1.SelectedItem.Index = 1 Then
        ActiveWorkbook.Sheets(2).Activate
    ElseIf MultiPage1.SelectedItem.Index = 2 Then
        ActiveWorkbook.Sheets(3).Activate
    End If
End Sub

Nu wilde ik van die afgrijselijke grijze knoppen een beetje vrolijke bedoening maken, maar dat kan schijnbaar niet. Daarom wil ik die TAB knoppen laten verdwijnen, dat kan wel maar dan moet ik dus een oplossing hebben om die pagina's toch te laten verschijnen in mijn userform. Ik bedacht dus dat ik met "optionbuttons" buiten mijn multipage dat ook moet kunnen regelen, dus zetten ik er even drie op mijn userform. en schreef de volgende code hiervoor:

Private Sub ofactuur_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If OFactuur = True Then
    MultiPage1.SelectedItem.Index = 0
    ActiveWorkbook.Sheets(1).Activate
End If
End Sub

Private Sub OOMzet_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If OOmzet = True Then
    MultiPage1.SelectedItem.Index = 1
    ActiveWorkbook.Sheets(2).Activate
End If
End Sub

Private Sub OUren_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If OUren = True Then
    MultiPage1.SelectedItem.Index = 2
    ActiveWorkbook.Sheets(3).Activate
End If
End Sub

Gebruik ik de tabblad optie, die van de multipage, dan werkt alles naar behoren. gebruik ik de optionbutton dan selecteerd hij wel de juiste sheet in mijn werkboek, maar dan zakt de tab "factuur" in mijn multipage 1 of 2 plekken op en blijft de pagina daarin dus hetzelfde.

Wie o wie kan mij op weg helpen om dit op een juiste manier te doen?

Test bestand is bijgevoegd

Johan
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: MultiPage kan het zonder die lelijke tabknoppen
« Reactie #1 Gepost op: 31 januari 2018, 21:07:18 »
Hmm, laat maar ;) opgelost....

Ipv
Private Sub OOMzet_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If OOmzet = True Then
    MultiPage1.SelectedItem.Index = 1
    ActiveWorkbook.Sheets(2).Activate
End If
End Sub

moest ik

Private Sub OOMzet_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If OOmzet = True Then
    MultiPage1.Value = 1
    ActiveWorkbook.Sheets(2).Activate
End If
End Sub

gebruiken....
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: MultiPage kan het zonder die lelijke tabknoppen
« Reactie #2 Gepost op: 01 februari 2018, 11:10:07 »
De option buttons zijn totaal overbodig.
Programmeeregel 1: KIS (keep it simple)
Programmaregel 2: Less is more.
Eerste les VBA: vermijd select en activate, dit werkt vertragend en is zelden nodig.
In bijlage voorzetje zonder activate of select

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: MultiPage kan het zonder die lelijke tabknoppen
« Reactie #3 Gepost op: 01 februari 2018, 16:43:06 »
Dank je Dotchiejack,

Ik zie wat je bedoeld, mijn bedoeling was/is om drie, nu sperate userforms tot 1 userform te maken met dus die multipage. Ik kom er inmiddels ook achter dat dit dus niet heel simpel is omdat het in feite ook neerkomt op dat er geen enkel invoer een duplicaat naam mag hebben.

Ik ga nog even flink stoeien hiermee en kom ongetwijfeld met vragen om advies. ;)
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: MultiPage kan het zonder die lelijke tabknoppen
« Reactie #4 Gepost op: 01 februari 2018, 16:59:19 »
Vraag maar raak, ik heb er al een paar gemaakt, kweet ni hoeveel, had nie genoeg vingers om verder te tellen ;)
Kleine tip wat betreft de duplicaat namen.
Ik doe het zo:
T1_01 is de eerste textbox op multipage 1
C1_01 is de eerste combobox op multipage 1
T2_01 is de eerste textbox op multipage 2
C2_01 is de eerste combobox op multipage 2
De code is makkelijk aanpasbaar en duidelijk , bij het schrijven van code loop je gewoon de nummers of van 01 tot...
Je moet niet lopen zoeken van wat was de naam van de tweede textbox op multipage3 alweer?
gewoon T3_02. I like to KIS 0:-)

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: MultiPage kan het zonder die lelijke tabknoppen
« Reactie #5 Gepost op: 01 februari 2018, 17:55:35 »
Dat begrijp ik volkomen, echter wilde ik wel gebruik maken van de bestaande structuren. Lui weet je nog wel :P

Dat houdt in mijn geval, na een kleine inventaris in dat ik hooguit 10 namen moet aanpassen ipv de gehele structuur... KIS is leuk, maar ombouwen is echt teveel werk ;)
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

 


www.combell.com