Avatar billede dla Praktikant
15. marts 2004 - 11:01 Der er 14 kommentarer og
1 løsning

Den 1. i måneden som default dato

Kan det lade sig gøre at få Access til at skrive den 1. hhv. den sidste i indeværende måned som dato i et formularfelt?

Dorit
15. marts 2004 - 11:02 #1
Som standardværdi?
Avatar billede dla Praktikant
15. marts 2004 - 11:03 #2
Ja...
15. marts 2004 - 11:05 #3
På formens vedIndlæsning-hændelse kan du lægge denne kode
Me!DenFørst.Defaultvalue = "#" & Dateserial(Year(Date());Month(date());1) & "#"
Me!DenSidste = "#" & Dateserial(Year(Date());Month(date())+1;1)-1 & "#"
Avatar billede dla Praktikant
15. marts 2004 - 11:13 #4
Tusind tak, det virker når jeg ændrer et par semikolonner til kommaer :-)
Avatar billede dla Praktikant
15. marts 2004 - 11:27 #5
Hov, Thomas, den skriver faktisk 03-01-2004 i DenFørste feltet, hvad er der galt? DenSidste er god nok, der står 31-03-2004
15. marts 2004 - 11:30 #6
Hmm, det er VB, som har det med at konvertere til amerikansk datoformat :o(

Prøv med:
Me!DenFørst.Defaultvalue = format("#" & Dateserial(Year(Date()),Month(date()),1) & "#","yyyy-mm-dd")


semikolonerne var fordi jeg startede med at skrive, som om de skulle stå direkte i tekstboksen, sorry
Avatar billede dla Praktikant
15. marts 2004 - 11:36 #7
Det ændrede ikke sagen...
15. marts 2004 - 11:41 #8
hmm, nå, men så skulle denne i hvert fald virke (har lige prøvet den):
Me!DenFørst.Defaultvalue = "'1-" & Month(Date) & "-" & Year(Date) & "'"

Den indsætter blot en tekststreng, men Access oversætter den jo selv til datoformat, så det skulle være ok.
Avatar billede dla Praktikant
15. marts 2004 - 11:57 #9
Ja, nu skriver den 1-3-2004 og det er jo rigtig dato, men det er jo ikke så pænt når DenSidste skriver 31-03-2004, kan du få den til at skrive dato og måned med 2 tal?
Avatar billede dla Praktikant
15. marts 2004 - 12:05 #10
...og de forskellige brugere har deres maskiner sat op til at vise datoer på forskellige måder, det skulle gerne vises ens i de to felter.
15. marts 2004 - 12:05 #11
Me!DenFørst.Defaultvalue = "'01-" & format(Month(Date),"00") & "-" & Year(Date) & "'"
Avatar billede dla Praktikant
15. marts 2004 - 12:06 #12
Hvad siger du til min sidste kommentar?
15. marts 2004 - 12:20 #13
hmm, nu bliver du krævende.

Så går vi tilbage til datoformatet. Men så må vi lave en public function som returnere datoen:

Put denne i et modul:
Public Function GetFirst() As Date
    GetFirst = DateSerial(Year(Date), Month(Date), 1)
End Function

På feltet på formularen skriver du nu dette i egenskaben Standardværdi:
=GetFirst()

(det samme kunne gøres for den sidste)
Avatar billede dla Praktikant
15. marts 2004 - 12:47 #14
YES! Det virker. Hvor er du dygtig! TAK!
15. marts 2004 - 12:54 #15
Tja, jeg skulle jo bare have foreslået den løsning i starten....men det er af og til lidt svært at gennemskue hvornår det dato-problem slår igennem :o(
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester