Automatisk dato

There is no easy way as far as I know, you will need to do it in code!

Jeg har ikke umiddelbart set nogen "smart" metode, idet du antageligt vil få problemer med feltegenskaberne dato/klokkeslæt, herunder kontrol af dato, og ikke mindst indputmasker ...

I tekstfelter kan du eventuelt benytte :

Private Sub Dato_AfterUpdate()
    Dato.Value = Dato & Right(Now(), 17)
End Sub

... men så tilsidesætter du de automatiske kontrolrutiner ...

Terry -> Findes der et eksempel eller noget. Jeg er ikke verdensmester i VB kode og det er nok ud over mine evner.

Jensen363 -> Har prøvet din kodesnip, men kan ikke få det til at fungere. Jeg vil også være ked af at miste inputmasker osv. Da nogen vil taste hele datoen ind.

Med mindre, du er ret meget inde i VB, tror jeg desværre ikke der er meget hjælp at finde ... indrømmet, dine forslag til forbedringer er oplagte, men nok ikke lige indenfor rækkevidde ...

It isnt really a problem to code this, the real problem is making sure that only valid values are entered and taking this into account if they rae not. This makes the actual coding more complex, and hence more time comsuming.

You can use the Left, Right and Mid functions to extract parts of a string and also len can be uesed to assist in checking the length of the input.

Then when you have extracted the day and maybe month too you can use Year(date()) to give you the year. Then it is just a case of putting it all together

CDate(Year(date()) & "-" & varMonth & "-" & varDay)

or something like that.

Just some ideas to get you on your way.

Det er nok lidt mere komplekst end jeg lige havde regnet med. Jeg tror jeg springer det over i første omgang, men takker for interessen.

selv tak