Kalender som drop down box på et dato felt

Hej

Du bruger kalender Active-X komponentet. Indsæt det i en ny formular ved navn Calender. Denne indsatte formular skal hedde \"Calender1\". Indsæt den formular i en ny formular med en OK ved navn \"cmdOK\" og cansel ved navn \"cmdClose\" knap. Paste denne kode ind i denne formular.

Option Compare Database

Private Sub Calendar1_DblClick()
Me.Visible = False
End Sub



Private Sub cmdClose_Click()
DoCmd.Close
End Sub

Private Sub cmdOK_Click()
Me.Visible = False
End Sub

Private Sub Form_Load()
Calendar1.Value = Date
Calendar1.Refresh
End Sub

Kald denne formular fra dit dato feldt med koden.

Private Sub Dato_DblClick(Cancel As Integer)
Dim lRet As Variant
lRet = GetDate(Dato.Value)
If Not IsNull(lRet) Then Dato.Value = lRet

Sidst men ikke midst. Paste denne kode ind i et modul.

Public Function GetDate(Optional varDate As Variant) As Variant
   
    \' If varTempDate is missing then use today\'s date.
    \' Otherwise, set the date to the date passed.
   
    Dim varTempDate As Variant

    \' Set calendar date
    If IsNull(varDate) Then varTempDate = Date Else varTempDate = varDate
   
    \'varTempDate = IIf(IsMissing(varDate), Date, varDate)
   
    \' Validate date
    If Not IsDate(varTempDate) Then varTempDate = Date
    DoCmd.OpenForm FormName:=\"Calendar\", WindowMode:=acDialog, OpenArgs:=varTempDate

    \' If frmCalendarControl is still loaded, then the user clicked OK so get the
    \' date from the form.  If the form isn\'t open return a value of Null.
    If IsLoaded(\"Calendar\") Then
        GetDate = Forms(\"Calendar\").Calendar1.Value
        DoCmd.Close acForm, \"Calendar\"
    Else
        GetDate = Null
    End If
   
End Function

Håber du kan bruge det.
End Sub

End Sub, skal selvfølge med efter, End Function.....Håber du kan bruge det fik lige sneget sig ind før.

Jeg har længe haft en popup kalender, der leverer den rette dato dato i datofeltet. How about it ?

Henrik.

Det er sæføli ren access.

Hej Accesspro
Jeg er desværre endnu ikke meget bekendt med aktivx komponenter, men har forsøgt via \"indsæt Aktivx objekt\" at finde det nævnte calender objekt i mit acces miljø, det er der desværre ikke er det noget jeg mangler at installerer som er med på Access cd\'en?

Hej Hnteknik.
Har du en henvisning til en hjemmeside eller en anden form for information? 

Der er en anden komponent du kan bruge:
Den hedder DateTimePicker.
Du tilføjer den ved at vælge \'flere kontrolelementer\' i din værktøjskasse, så ruller du ned til: Microsoft Date And Time Picker Control, Version 6.0 eller lignende.

Jeg er dog ikke sikker på at den findes i dit system. Hvis den gør, udfylder den netop dit formål.
Selve filen der anvendes hedder MSCOMCT2.OCX

/tjacob

Nope, men jeg kan da sende den til dig på en mail

Dobbeltklik på feltet og kalenderen popper op.
klik på ønsket dato og feltet udfyldes.
Esdc returnerer blankt.

sendt en request til henrik@web4it.dk

Henrik

Hej tjacob

Beklager den sene tilbagemelding. Komponentet er et du installerer fra Office CD\'en

Robert

Hi Tjacob

Hent min løsning her på

web4it.dk/download/kaldenderkode.zip (60k)

happy programming

Henrik accessprof

Og den er lige lavet med dobbeltklik, da klik funktionen kan være irriteret, altså dobbeltklik i feltet

Jeg takker for jeres store hjælp. Hvor er det dejligt at folk gider hjælpe hinanden.
Jeg har valgt hntekniks løsning, da det er den jgt pt. best forstår. Men jeg vil straks begynder af finde ud af noget mere om Aktiv-x komponenter.

phjensen (og ikke Tjacob)
Jeg takker og nedlægger linket igen.
Jeg er/var lidt træt ( skal op til eksamen imorgen)

Henrik