Access Formulier Afhankelijk veld

[RadboudAKF]

Goedemorgen,

Met enige schroom plaats ik mijn vraag. Ben een ACCESS-gebruiker met (nog steeds) te weinig programmeer-ervaring om het volgende probleem op te lossen.

Ik zit met een klein programmeer-probleempje binnen ACCESS waar ik niet helemaal uitkom.

Als ik het probleem even mag schetsen komt het hier op neer:

Ik wil een bepaald veld in een formulier afhankelijk laten zijn van een waarde in een ander veld:

- Veld MONSTERNUMMER moet (voor een deel) afhankelijk worden van de MONSTERDATUM. (datum waarop monster is afgenomen)

- Als veld MONSTERDATUM bv. 24-02-2014 zou zijn dan moet het monsternummer beginnen met 14B24 (dus laatste twee posities van jaar + Maand (=februari wordt B) + dag(monsterdatum) Er volgt dan nog een “-“ waarna de gebruiker nog een nummer moet invullen.

Ik doe het nu zo:

If Month(Me.MonsterDatum) = 1 Then

Me.Monsternummer.SetFocus

Me.Monsternummer = Year(Me.MonsterDatum) & "A" & Day(Me.MonsterDatum) & "-"

End If

If Month(Me.MonsterDatum) = 2 Then

Me.Monsternummer.SetFocus

Me.Monsternummer = Year(Me.MonsterDatum) & "B" & Day(Me.MonsterDatum) & "-"

End If

etc, etc....


Waarschijnlijk heel omslachtig maar ik weet niet hoe ik het anders moet doen….

Mijn concrete vraag hier is: Hoe krijg ik nu voor elkaar dat de uitkomst van bv. 24-02-2014 NIET “2014B24-”is maar “14B24-” (dus onafhankelijk van hoe iemand zijn PC heeft ingericht met korte of lange datumnotaties wil ik de “20” niet zien. Bovendien wil ik dat de dag ook altijd twee posities heeft. (dus 5-5-2014) wordt 14 E 05

Hoop dat iemand hier naar wil kijken?

Met vr.gr.

Jan Stegeman
Rad.Apotheek

 

[OctaFish]

Ik zou daar een functie voor maken, want dan kun je het heel simpel oplossen. Die functie bestaat eigenlijk maar uit één regel met een check:

Function Volgnummer(Optional Datum As Date)
    If Datum = 0 Then Datum = Date
    Volgnummer = Right(Year(Datum), 2) & Chr(64 + Month(Datum)) & Format(Datum, "dd") & "-"
End Function

En getest op een keuzelijst met datums krijg je dan dit:

Private Sub Keuzelijst12_Click()
    Me.txtCode = Volgnummer(Keuzelijst12)
End Sub

En laat die schroom maar zitten, want vragen stellen is nooit verkeerd

 

[RadboudAKF]

Michel,

Ik ging hier mee aan de slag....en het lijkt te werken.

Zeer bedankt.... Ik ga nog even zoeken hoe de vraag op "opgelost" zet....

Jan

 

[OctaFish]

Is dat lastiger? Je hebt bovenin in de blauwe regel een knop daarvoor.