<Access>Soort simpele ALS functie

[Verwijderd]

Ik heb een formulier met een keuze menuutje( A ).Dit menuutje heeft drie keuzemogelijkheden:

In behandleing
Op de Lijst
Afgerond

Nu wil ik graag, dat als ik in dit formulier kies voor "Afgerond", er in veld( B ), daaronder automatisch de datum komt te staan..

Dus eigenlijk

ALS( A ) gelijk is aan "afgerond" wordt ( B ) de datum..

Is dit mogelijk en zo ja hoe..??

Heb al gezocht op google maar kan niks vinden over een ALS of IF functie in Access..

[ Voor 4% gewijzigd door Verwijderd op 09-09-2003 10:11 ]

[ATS]

Het eenvoudigste is dat te bereiken met een stukje VBA code. Kies bij de gebeurtenis van het dropdown boxje voor de optie waarbij je code kan toevoegen, en zet in die VBA code iets in de geest van:

code:

If A.ListIndex=2 Then '2 is het derde item, er wordt begonnen bij 0 met tellen
    B.text=format("DD-MM-YYYY", Now())
End If

[BtM909]

Het wordt lang zoeken naar een als functie binnen Access. 'Keuze-menuutjes' hebben een aantal events, waaronder Change

Als je hier een [event procedure] aanhangt, kan je vervolgens checken wat de waarde is van je element en aan de hand daarvan een bepaalde actie verrichten.

Keywords om te zoeken binnen Access (VBA):
• If construction
• Change value in form
• Change event

edit:

gelukkig geeft ATS al de oplossing...

[ Voor 8% gewijzigd door BtM909 op 09-09-2003 10:20 ]

[Verwijderd]

Ahum, ik heb dus 0 ervaring met VBA code, maar evengoed bedankt, ik zal eens kijken wat ik ermee kan..

Maar k heb toch zo'n vermoeden dat het simpeler moet kunnen..

[ATS]

Ik denk niet dat het veel simpeler als drie regels code gaat worden eerlijk gezegd...

[Verwijderd]

Ok ik heb nu dit ingevoerd..

code:

Private Sub Oplos_datum_AfterUpdate()


If Status.ListIndex = 0 Then  '2 is het derde item, er wordt begonnen bij 0 met tellen
    Oplos datum.Text = Format("DD-MM-YYYY", Now())
End If
End Sub

Maar er klopt iets niet..wat..?

Edit:

-"status" is de rijbron van de keuzelijst.
-in de keuze lijst is "afgerond" de 1 record, dus 0..?
-"oplos datum" is het veld waar de datum in moet komen.

[ Voor 26% gewijzigd door Verwijderd op 09-09-2003 11:59 ]

[bigben04]

Verwijderd schreef op 09 september 2003 @ 11:55:
Maar er klopt iets niet..wat..?

Krijg je een foutmelding, of gebeurt er niks, of is er wat anders mis?

[Verwijderd]

bigben04 schreef op 09 September 2003 @ 11:58:
[...]

Krijg je een foutmelding, of gebeurt er niks, of is er wat anders mis?

Als ik in mijn formulier kies voor "afgerond" gebeurt er niks, terwijl ik graag zou willen dat de datum in het veld eronder zou komen...

[Verwijderd]

Screenshotje ter verduidelijking..

MAar waar moet ik nou die VBA code zetten..? Bij "na bijwerken" ??

[ Voor 5% gewijzigd door Verwijderd op 09-09-2003 12:05 ]

[Yoeri]

je gebruikt daar een spatie in de naam van de textbox? (oplos spatie datum ?)

[Verwijderd]

ja dat klopt..

>?

[Verwijderd]

Je zit in de juiste richting.
Ik heb het geprobeerd met de gebeurtenis "Bij gewijzigd"
Je moet wel de dubbele aanhalingstekens bij format(DD-MM-YYYY) verwijderen.

Private Sub StatusVanMelding_Change()

If StatusVanMelding.ListIndex = 2 Then '2 is het derde item, er wordt begonnen bij 0 met tellen
Oplosdatum.SetFocus
Oplosdatum.Text = Format(DD - MM - YYYY, Now())
End If

End Sub

[Verwijderd]

Visual basic houdt niet zo van spaties in componentnamen.
Als het niet te veel werk is, zou ik de spatie verwijderen of er een liggend streepje voor in de plaats zetten. oplos_datum

[Masch]

of je zet oplos datum tussen spekhaken [oplos datum]

[Dido]

Verwijderd schreef op 09 September 2003 @ 11:55:
Ok ik heb nu dit ingevoerd..

code:

Private Sub Oplos_datum_AfterUpdate()

Maar er klopt iets niet..wat..?

Je wilt, als ik het goed begrijp, Oplos_datum.Text aanpassen nadat je keuzelijst is geupdate, niet je oplosdatum?

Zou het dan geen Private Sub Keuzelijst_AfterUpdate() moeten zijn

[ Voor 17% gewijzigd door Dido op 09-09-2003 12:33 ]

[Verwijderd]

Dido schreef op 09 september 2003 @ 12:32:
[...]

Je wilt, als ik het goed begrijp, Oplos_datum.Text aanpassen nadat je keuzelijst is geupdate, niet je oplosdatum?

Ja je zegt het goed, ik zal es kijekn of het dan werkt..Jullie hebben wel door dat jullie te maken hebben met een 100% acces/VBA noob..:)