Caption label wijzigen lukt niet bij aut. laden formulier

[arnose09]

Ik loop vast op het wijzigingsformulier. Dit is een formulier waarbij ik eerder ingevoerde data kan wijzigen. Het blijkt dat dezelfde code voor invoeren niet werkt voor dit formulier wijzigen maar het werkt wel voor het invoer formulier.

Ik heb een bestand bijgevoegd (zie mijn volgende post)


In het kort:
Bij het invoerformulier wijzigen de labels ETA(WEEK), ETA(DAG) en ETD(WEEK), ETD(DAG) als ik de datum invoer in de zalmrose textboxen in het weeknummer (cijfer) en de dag voluit geschreven.

Bij het wijzigingsformulier doet hij dit niet.

Ik vermoed dat

AfterUpdate

niet goed functioneert. Bij het invoer formulier worden deze ingevoerd en wordt de Update wel goed uitgevoerd terwijl bij wijzigen het formulier meteen wordt geladen. Ik heb

Ik heb geprobeerd de code aan te passen/verplaatsen naar

Private Sub UserForm_Initialize()

maar dit werkt niet.

De knop verwijderen werkt ook niet. Hij loopt vast op

Set BZ = Application.FileSearch

.
Deze knop moet ervoor zorgen dat ik een geselecteerde rij kan verwijderen.

Wat doe ik verkeerd?

 

[Warme bakkertje]

Je bijlage is ongeldig. Probeer hem nog eens te uploaden.
Wat betreft je laatste vraag, Filesearch werkt niet meer in XL2007. Op het net zijn er alternatieven te vinden om dit te omzeilen.

 

[arnose09]

Bijgaand het bestand:

 

[Warme bakkertje]

Plaats onderstaande regels net voor Screenupdating=true in TNUMMER_Change

ETA_WEEK = IsoWeekNumber(ETA_DATUM)
ETA_DAG = Choose(Weekday(ETA_DATUM), "Zondag", "Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag")
ETD_WEEK = IsoWeekNumber(ETD_DATUM)
ETD_DAG = Choose(Weekday(ETD_DATUM), "Zondag", "Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag")

Uiteraard laat je ze ook staan in de Update-events.

 

[arnose09]

Dank Rudi! Uiteraard werkt dit weer prima!

Ik ga eens rondspeuren naar geschikte code ter vervanging van filesearch. Bedankt voor de tip.

 

[arnose09]

Als een van de datumvelden niet wordt ingevoerd dan geeft VBA een foutmelding:

Fout 13 tijdens uitvoering:
Typen komen niet met elkaar overeen

Is het mogelijk om deze melding 'uit te zetten'?

 

[Warme bakkertje]

If ETA_DATUM <> "" Then
ETA_WEEK = IsoWeekNumber(ETA_DATUM)
ETA_DAG = Choose(Weekday(ETA_DATUM), "Zondag", "Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag")
Else
ETA_WEEK = ""
ETA_DAG = ""
End If
If ETD_DATUM <> "" Then
ETD_WEEK = IsoWeekNumber(ETD_DATUM)
ETD_DAG = Choose(Weekday(ETD_DATUM), "Zondag", "Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag")
Else
ETD_WEEK = ""
ETD_DAG = ""
End If

 

[arnose09]

Super Rudi! Dank!