aut. datum aanpassen naar invoerveld

Status
Niet open voor verdere reacties.

cyblix

Gebruiker
Lid geworden
15 apr 2004
Berichten
42
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
 
De volgende code zou je in het AfterUpdate of onChange event van de combobox moeten zetten:

Code:
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,
 
Geplaatst door beheer25
De volgende code zou je in het AfterUpdate of onChange event van de combobox moeten zetten:

Code:
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???
 
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,
 
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....
 
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....:eek:
 
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???
 
Code:
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,
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan