value invullen wanneer status veranderd

[scw]

Goedendag,

Hoe kan ik voor elkaar krijgen in de volgende code, dat wanneer Me!Kader 71 gaat van Status 1 naar 6 of 7 én wanneer Me!Datumafhandeling.Value = "" dat dan de =Now() er in gezet wordt.

Dus niet wanneer die van Status= 2 naar 6 of 7 gaat, dan moet die alleen de Status.Value aanpassen... alleen bij Status=1

If Me!Kader71 = 1 Then
Me!Status.Value = "1"
Me!DatumAfhandeling.Value = ""
Me!TijdAfhandeling.Value = ""
ElseIf Me!Kader71 = 2 Then
Me!Status.Value = "2"
Me!DatumAfhandeling.Value = Now()
Me!TijdAfhandeling.Value = Now()
ElseIf Me!Kader71 = 6 Then
Me!Status.Value = "6"
ElseIf Me!Kader71 = 7 Then
Me!Status.Value = "7"
End If

[COLOR="red"]If Me!Status.Value = 6 And Me!DatumAfhandeling = "" Then
Me!DatumAfhandeling.Value = Now()
Me!TijdAfhandeling.Value = Now()
ElseIf Me!Status.Value = 7 And Me!DatumAfhandeling = "" Then
Me!DatumAfhandeling.Value = Now()
Me!TijdAfhandeling.Value = Now()[/COLOR]
End If


Bedankt voor de hulp. :thumb:
scw
Me.Status.Requery

 

[OctaFish]

Ik zou ze samenvoegen:

If Me.Kader71 = 1 Then
     Me.Status.Value = "1"
     Me.DatumAfhandeling.Value = ""
     Me.TijdAfhandeling.Value = ""
ElseIf Me.Kader71 = 2 Then
     Me.Status.Value = "2"
     Me.DatumAfhandeling.Value = Now()
     Me.TijdAfhandeling.Value = Now()
ElseIf Me.Kader71 = 6 Then
     If Me.DatumAfhandeling & "" = "" Then
          Me.DatumAfhandeling.Value = Now()
          Me.TijdAfhandeling.Value = Now()
     End If 
     Me.Status.Value = "6"
ElseIf Me.Kader71 = 7 Then
     If Me.DatumAfhandeling & "" = "" Then
          Me.DatumAfhandeling.Value = Now()
          Me.TijdAfhandeling.Value = Now()
     End If 
     Me.Status.Value = "7"
End If

 

[scw]

Harstikke bedankt!!!

Helemaal perfect! Nu begrijp ik hoe je die extra criteria er aan toevoegd

Bedankt voor dit!

:thumb:scw

 

[OctaFish]

Mag deze op <Opgelost>, denk ik!

 

[scw]

Inderdaad: opgelost!