aut. datum aanpassen naar invoerveld

[cyblix]

Ik heb het volgende invoer formulier:

Veld 1= datum
veld 2= tijd
veld 3= bijzonderheid
veld 4= type dienst
veld 5= ingelogde gebruiker

De datum heeft als standaard waarde momenteel de huidige datum. de tijd is aan te passen... bijzonderheid is in te voeren. type dienst is een selectielijst die niet te wijzigen is. in deze lijst staan:
Ochtendienst
Avonddienst
Nachtdienst
en de ingelogde gebruiker gaat ook automatisch.

nu wil ik graag het volgende inbouwen maar heb geen idee hoe te werk te gaan. de datum die zich automatisch aanpast dient wanneer in het selectiescherm nachtdienst selecteert automatisch aan te passen... ik wil graag dat van 22.00uur tot 0.00uur de nachtdients op de huidige datum blijft staan, maar als je van 0.00uur t/m 22.00uur nachtdienst liest wil ik graag dat hij de datum automatisch 1 dag terug zet... hoop dat jullie uit deze beschrijving komen. Ik kan niet echt overweg met diverse scripts. bij voorbaad dank

 

[beheer25]

De volgende code zou je in het AfterUpdate of onChange event van de combobox moeten zetten:

If Me.Combo1 = "nachtdienst" Then
    If (Me.txbTijd > #10:00:00 PM#) And (Me.txbTijd < #11:59:00 PM#) Then
        Me.datum = Now() - 1
    End If
End If

Grtz,

 

[cyblix]

Geplaatst door beheer25
De volgende code zou je in het AfterUpdate of onChange event van de combobox moeten zetten:

If Me.Combo1 = "nachtdienst" Then
    If (Me.txbTijd > #10:00:00 PM#) And (Me.txbTijd < #11:59:00 PM#) Then
        Me.datum = Now() - 1
    End If
End If

Grtz,

en dan moet ik zeker die waardes achter die Me. aanpassen???

 

[beheer25]

Ja, waar txbTijd staat moet de naam van de textbox komen te staan zoals die bij jou heet. En waar Combo1 staat moet de naam van jouw keuzelijst komen te staan.


Grtz,

 

[cyblix]

Geplaatst door beheer25
Ja, waar txbTijd staat moet de naam van de textbox komen te staan zoals die bij jou heet. En waar Combo1 staat moet de naam van jouw keuzelijst komen te staan.


Grtz,

ok bedankt. ik ga het proberen....

 

[cyblix]

Geplaatst door cyblix


ok bedankt. ik ga het proberen....

kwam er nog wel achter dat de tijden anders moesten, en dat is me gelukt. bedankt...

 

[cyblix]

probleem

ik heb nu de volgende code gebruikt:

Private Sub Keuzelijst_met_invoervak12_AfterUpdate()
If Me.Keuzelijst_met_invoervak12 = "Nachtdienst / PWA" Then
If (Me.tijdstip < #10:00:00 PM#) And (Me.tijdstip <= #12:00:00 PM#) Then
Me.Tekst25 = Date - 1
End If
End If

End Sub



Dit werkt perfect alleen nu heb ik 1 probleem. als ik de na 12.00pm een bijzonderheid in het rapport toevoeg die van voor 12.00pm is, blijft de datum de huidige datum, terwijl hij dan ook 1 dag terug nmoet schakelen. Ik dacht zelf dat misschien dit wel de juiste code zou kunnen zijn:

Private Sub Keuzelijst_met_invoervak12_Change()
If Me.Keuzelijst_met_invoervak12 = "Nachtdienst / PWA" Then
If (Time() >= #12:00:01 PM#) And (Time() < #10:00:00 PM#) Then
If (Me.tijdstip >= #10:00:00 PM#) And (Me.tijdstip <= #11:59:59 PM#) Then
Me.Tekst25 = Date - 1
End If
Else: Me.Tekst25 = Date
End If
End If
End Sub

Alleen dit werkt niet, wie weet waarom dit niet werkt? en weet een oplossing... en kan eventueel deze code verwerkt worden in de bovenstaande??? help please is een brandend vraagstuk....

 

[cyblix]

is ie zo goed???

Volgensmij begin ik het te begrijpen?!?!? is hij zo goed:

Private Sub Keuzelijst_met_invoervak12_AfterUpdate()
If Me.Keuzelijst_met_invoervak12 = "Nachtdienst / PWA" Then
If (Time() < #10:00:00 PM#) And (Time() <= #12:00:00 PM#) Then
Me.Tekst25 = Date - 1
End If
Else: Me.Tekst25 = Date
End If

End Sub


of zit hier nog een fout in dat iemand ziet???

 

[beheer25]

Private Sub Keuzelijst_met_invoervak12_AfterUpdate() 

If Me.Keuzelijst_met_invoervak12 = "Nachtdienst / PWA" Then 
    If (Time() < #10:00:00 PM#) And (Time() <= #12:00:00 PM#) Then 
        Me.Tekst25 = Date - 1 
    End If 
Else 
    Me.Tekst25 = Date 
End If 

End Sub

Dezelfde code als die je al had, maar dan even netjes uitgelijnd. Volgens mij moet dit werken. Loop je nog ergens tegen problemen aan?


Grtz,