Koppeling

[malawi]

Hallo

Ik heb een formulier(van Tabel) opgesteld met o.a. een veld Status werkzaamheden.
Tevens heb ik een veld met datum aanvraag.
Nu wil ik graag wanneer ik een datum selcteer in datum aanvraag het veld met status werkzaamheden "Calculatie" aangeeft.
Hierna heb ik een veld met offertenummer.
Wanneer ik in dit veld een nummer ingeef moet het veld status werkzaamheden naar "Offerte"
Hierna krijg ik een veld met datum opdracht. En je raad het al. Het veld moet Status werkzaamheden moet nu naar "Opdracht"

Hoe kan ik dit uitvoeren.

Ter info ik ben een leek wat betreft VBA. Graag zo simpel mogelijk.

Bij voorbaat dank,

 

[OctaFish]

Je zult een gebeurtenis <Na bijwerken> moeten maken voor de verschillende tekstvakken die het veld Status verandert. Een voorbeeldje op het veld txtOfferte ziet er dan zo uit:

Private Sub txtOfferte_AfterUpdate()
     Me.txtStatus.Value = "Offerte"
End Sub

 

[malawi]

Hey bedankt het werkt. Weer een kleine stap in de goede richting.


Malawi

 

[malawi]

Hallo
Ik heb inmiddels onderstaade in mijn bestand toegevoegd en het werkt prima zoals ik in eerste instantie had gevraagd.

Private Sub txtOfferte_AfterUpdate()
     Me.txtStatus.Value = "Offerte"
End Sub

Nu heb ik de veldnaam verandert in een JA/Nee item. Als ik deze veldnaam nu aanvink verandert het veld Statuswerkzaamheden netjes in "offerte"
Echter wanneer ik het veld weer uitvink wil ik graag dat het veld Status werkzaamheden weer verandert is "Calculatie"

Alvast bedankt,

Malawi

 

[OctaFish]

Welke code gebruik je nu? Zet die er ook nog even bij. Ik neem in ieder geval aan dat je de naam hebt veranderd naar chkOfferte, maar verder?

 

[malawi]

Ik heb de gebeurtenis in verschillende gebeurtenissen gebruikt. Kom hier niet uit heb helaas de kennis niet.

Private Sub Offertegereed_Enter()
     Me.Statuswerkzaamheden.Value = "Offerte"
End Sub

Malawi

 

[OctaFish]

Je hebt de gebeurtenis veranderd naar Enter. Dat is niet geheel handig, want nu verandert elke keer als je het selectievakje aanklikt (de Enter gebeurtenis wordt dan geactiveerd) de waarde van statuswerkzaamheden naar "Offerte". Je kijkt dus totaal niet naar de waarde van dat veld. En dat moet uiteraard wel gebeuren.

Private Sub txtOfferte_AfterUpdate()
If Me.txtOfferte.Value=-1 Then
     Me.txtStatus.Value = "Offerte"
Else
     Me.txtStatus.Value = "Offerte"
End If
End Sub

Je kunt de code eventueel ook nog bij de <Bij Klikken> gebeurtenis hangen, dan doet-ie hetzelfde.

 

[malawi]

Al vast bedankt,dit werkt prima. Ik heb tevens een veld "Datum opdracht". Wanneer ik dit veld bewerk gaat de de status werkzaamheden naar "Opdracht" Hoe doe ik dit zelfde met een datumwaarde en geen waarde. Zonder waarde moet het terug naar "Offerte"
Deze beveilging wil ik toevoegen wanneer iemand deze per ongelijk op een datum zet.


Malawi