Ik heb een werkboek waarin een kalder staat.
Wat wil ik doen een rechthoek of 3 hoek tekenen op de gekozen datum of datums.
dit doe ik via de combox waar verschillende verlofcodes staan. Deze kan ik niet wijzigen komen zo uit ons computersysteem.
Het teken en werkt goed al.
Maar ik controleer ook of de gebruik één dag of meerdere dagen selecteert en of de selectie een dag in het weekend bevat dus zaterdag zondag. Of buiten de kalender valt.
Selecteert hij bv de vrijdag en de zaterdag en maakt dan een keuze van type verlof. Zover geen probleem.
Krijgt een melding een andere melding als hij buiten de kalender een selectie maakt.
Na de foutmelding maakt de gebruiker de juiste selectie maar de code word niet meer uitgevoerd daar een combox enkel werkt on het change event.
Dus maak ik de combox leeg na de fout melding. Met onderstaande code
het werkt niet zolas ik zou denken het moet werken.
Dus de eerste if gaat na of het bereik goed is en er een verlofcode is geslecteerd.
Dan maak ik het leeg dan zou ik vermoeden dat hij die exit sub zou doen. Wat niet het geval is door dat ik het invoervak leeg maakt is dat een change voor de combox. Dus code terug van in het begin.
Dan de 2de x nu met leeg doet hij de elseif. loopt over de exit sub maar stopt niet gaat naar de eerste if en doet daar de exit sub en stopt. RAAR WAAROM IS DAT
Wat zou een beter methode zijn.
Hoe voorkomen dat in de weekdagen meerdere verlofcodes op 1 dag kunnen gekozen worden.
Dus wil hij 1 dag en kiest bv kd = kreditdag. En heeft zich gemist van code . Dan kan hij nu zonder problemen een ander code er boven leggen. Dus 2 code op één dag kan niet !
zelfde als hij nadien de hele week selecteert.
Er zit nu al een stukje code voor in maar niet te vrede over
MVG Glenn
Wat wil ik doen een rechthoek of 3 hoek tekenen op de gekozen datum of datums.
dit doe ik via de combox waar verschillende verlofcodes staan. Deze kan ik niet wijzigen komen zo uit ons computersysteem.
Het teken en werkt goed al.
Maar ik controleer ook of de gebruik één dag of meerdere dagen selecteert en of de selectie een dag in het weekend bevat dus zaterdag zondag. Of buiten de kalender valt.
Selecteert hij bv de vrijdag en de zaterdag en maakt dan een keuze van type verlof. Zover geen probleem.
Krijgt een melding een andere melding als hij buiten de kalender een selectie maakt.
Na de foutmelding maakt de gebruiker de juiste selectie maar de code word niet meer uitgevoerd daar een combox enkel werkt on het change event.
Dus maak ik de combox leeg na de fout melding. Met onderstaande code
het werkt niet zolas ik zou denken het moet werken.
Dus de eerste if gaat na of het bereik goed is en er een verlofcode is geslecteerd.
Dan maak ik het leeg dan zou ik vermoeden dat hij die exit sub zou doen. Wat niet het geval is door dat ik het invoervak leeg maakt is dat een change voor de combox. Dus code terug van in het begin.
Dan de 2de x nu met leeg doet hij de elseif. loopt over de exit sub maar stopt niet gaat naar de eerste if en doet daar de exit sub en stopt. RAAR WAAROM IS DAT
Wat zou een beter methode zijn.
Code:
'
If RngIntersect.Address <> RngVerlofBereik.Address And cmboVerlofCodes.Value <> "" Then
MsgBox "De gemaakte selectie loopt door in het weekend ", vbExclamation
cmboVerlofCodes.Value = "" ' dit of clear direkt terug naar begin code.
Exit Sub
ElseIf RngIntersect Is Nothing And cmboVerlofCodes.Value = "" Then '
Exit Sub
End IfHoe voorkomen dat in de weekdagen meerdere verlofcodes op 1 dag kunnen gekozen worden.
Dus wil hij 1 dag en kiest bv kd = kreditdag. En heeft zich gemist van code . Dan kan hij nu zonder problemen een ander code er boven leggen. Dus 2 code op één dag kan niet !
zelfde als hij nadien de hele week selecteert.
Er zit nu al een stukje code voor in maar niet te vrede over
MVG Glenn
