value = oldvalue

Hvad er OldValue ... et felt for sig selv ?

Private Sub Dato_Change()
  If Me.LøstDato <> "" Then
    Me.Dato.Value = Me.OldValue.Value
  End If
End Sub

Nej, hvis man skriver eks. me.dato. så er både value og oldvalue en mulighed...

har du tjekket hjælpen?

Er i gang!~)

OldValue refererer til en eksisterende dato, som du ikke allerede foretaget ændringer til

Hej Jesper > Coop kører fuldt tilfredsstillende :o)

Hvad har i lavet!~)

Undskyld, jeg blev bare lidt nysgerrig (sådan en slags, jeg vil også være med, følelse)!~)

31/03-2006 13:00:08>Ja, så hvis der er indsat en LøstDato, så kan man ikke ændre i Dato, men der sker ikke noget...

Vi har bare løst en "lille" opgave, som vi reelt burde have haft 100.000 kr for ... og så læste vi den på små 10 timer ...

Det virker da også.
Hvis LøstDato er tom, kan du skrive i Dato. Ellers ikke.

En mere pådagogisk metode ville måske være at disable feltet, hvis LøstDato ikke er tom, altså
  Private Sub LøstDato_AfterUpdate()
    Me.Dato.Enabled = (Me.LøstDato = "")
  End Sub
så kan brugeren se, at feltet er låst.

... og det skulle jo så have været:
  Private Sub LøstDato_AfterUpdate()
    Me.Dato.Enabled = IsNull(Me.LøstDato)
  End Sub

Hov, jeg sidder og drømmer lidt!~)

Det virkede ikke, men løsningen fandt jeg....
Der manglede bare:

Dim dato As Control

Og da jeg nu, hvad angår hajer befinder mig i det gule hav på eksperten, så vil jeg skynde mig at oprette et nyt spørgsmål!~)

Jensen363 > Det er godt at høre. God løsning vi fik lavet der. Jeg håber de er bitre ovre i it-afdelingen :-)

Lad mig sige det sådan ... de er blevet mere seriøse i deres estimater ... men langt fra seriøse nok ...

Hvis du er interesseret i at se den færdige løsning, incl vejledning, kan jeg godt sende den til dig ...

Ja tak, det vil meget gerne. Jeg vil gerne se, hvad det blev til. Har du stadig min mail?

Den står eet eller andet sted i programkoden :o) ...

Nå ja :-)