Help!

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

Hulp bij posten

Recente topics

Auteur Topic: combobox ivoervakleeg maken en exit sub  (gelezen 3299 keer)

0 leden en 1 gast bekijken dit topic.

Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
combobox ivoervakleeg maken en exit sub
« Gepost op: 21 februari 2018, 13:48:25 »
Code staat onder het werklad Verlofkalender sjabloon
of kan ik die uit het werklad halen. Daar we per jaar een nieuw werklad maken?
Omschrijving probleem
Met de combox maak ik de selectie en doe ik de code onder
Private Sub CmboVerLofCodes_Change()
Ik controleer daar of de selectie niet door loopt in het wekend of buiten de kalender valt.
Zover geen probleem krijg de juiste melding.
Dus selecteer ik de juist dag of dagen dan word de code niet uitgevoerd daar de code enkel werkt bij CmboVerLofCodes_Change.
Dus dacht ik ik zorg dat het invoervak leeg gemaakt word. Maar dan het begint hij omdat het een change is voor de combox en doet nooit de exit sub.
Hoe pas ik dit aan
If RngIntersect Is Nothing Then
    MsgBox "De gekoze selectie valt buiten de kalender", vbExclamation
    cmboVerlofCodes.Value = "" ' met deze lijn extra nooit exit sub zonder wel
Exit Sub
'ElseIf RngIntersect Is Nothing And cmboVerlofCodes.Value = "" Then
'Exit Sub

Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
Re: combobox ivoervakleeg maken en exit sub
« Reactie #1 Gepost op: 21 februari 2018, 14:23:41 »
verander ik de code naar dit
Dan loopt hij naar de exit sub maar voert hem niet uit?
Doe ik het in debug mode en loop ik verder met f8 dan ok  met f5 run niet geen exit sub
loopt naar endif en doet verder
If RngIntersect Is Nothing And cmboVerlofCodes.Value <> "" Then
    MsgBox "De gekoze selectie valt buiten de kalender", vbExclamation
    'Cancel = True
 cmboVerlofCodes.Value = "" ' met deze lijn extra nooit exit sub zonder wel
'Exit Sub
ElseIf cmboVerlofCodes.Value = "" Then
Exit Sub
     
End If

Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
Re: combobox ivoervakleeg maken en exit sub
« Reactie #2 Gepost op: 21 februari 2018, 16:13:07 »
snap er niks meer van blijkt hem nu wel te doen
Maar snap het niet
doet de elseif en de exit sub
En dan de exit sub  boven de elseif waarom ??

Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
Re: combobox ivoervakleeg maken en exit sub
« Reactie #3 Gepost op: 22 februari 2018, 18:49:23 »
waarom 153 gelzen onder reactie

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen

Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
Re: combobox ivoervakleeg maken en exit sub
« Reactie #5 Gepost op: 23 februari 2018, 21:01:39 »
Dubbelpost ius op  het zelfde forum  : :( :( :( :( :( :( :( :( :(

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: combobox ivoervakleeg maken en exit sub
« Reactie #6 Gepost op: 23 februari 2018, 21:03:21 »
glda19,

neem even de nieuwe forumregels door die (voorlopig) in mijn profiel staan.

Dank u.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

 


www.combell.com