Hjælp til kalender

Der mangler nogle oplysninger, før man kan svare på spørgsmålet.

Har du allerede kalenderen på formularen, og i så fald med hvilke felter?

Har du kun én post på formularen af gangen, eller er der tale om en løbende formular?

Du kan prøve at kigge nærmere på Formater/betinget formatering og bruge >[ankomstdato] and < [afrejse] som betingelse.

Jeg huskede lidt forkert. Den hedder "Mellem" [ankomstdato]og [afrejse], i hvert fald i Access XP

Jeg prøver lige

Jeg har kalenderen på formularen, og jeg kan godt få den til at markere ankomstdatoen men ikke de mellemliggende datoer til og med afrejsedato - jeg har taget kalenderen ind fra værktøjskassen

Jeg har prøvet - men det virker ikke, ellers er jeg dum - vender tilbage senere

Here is an idea, costs money though :o)
http://www.datasphere.net/DsSchedule.aspx

Hm - har jeg set på før - jeg kan ikke helt gennemskue det. Jeg prøver mig frem igen.

Jeg kunne måske bedre skrive det i VB???

If you can do it in VB you should be able to do it in Access!

Kan du give et forslag til VB - jeg er kun begynder i det. Selvom hjælpefunktionen er god til at komme med forslag.
Altså generere på kalenderen og skrive det i VB der!!! Jeg er altså reel amateur

Jeg vil godt vove et halvt øje, og sige at det ikke kan lade sig gøre med den kalender, som du har valgt, men det kan ganske givet lade sig gøre på en anden måde. Jeg kender den bare ikke.

Ja - jeg tror såmænd du har ret - æv. Men jeg giver nu ikke op lige med det samme. Så nu har jeg oprettet en tabel med datoer og en forespørgsel jeg kan stadig få den tid at markere ankomst datoen, men ikke afrejse datoen og jeg ville jo gerne have noget, der ligner en kalender i stedet for en underformular

Fra http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnacc2k2/html/odc_acdates.asp

Selecting a Range of Dates in the Calendar Control
Another shortcoming of the Calendar control is that you can't select a range of dates in the control...

Jeg har en ren Access/VBA kalender, som jeg har modificeret fra en, som jeg fik fra terry.

Den kan du få og prøve med, hvis du lægger din mail.

Lyder sandelig godt, tak det vil jeg meget gerne prøve - bosbeier@worldonline.dk

Linket du sendte i går  ligner lidt det jeg har brug for. Tak for hjælpen - jeg arbejder videre og giver dig 200 point:prøver om jeg kan finde ud af det med points

Mon jeg har gjort det rigtigt?

Takker for point.

Hvis du skifter denne funktion ud i kalenderen, jeg sendte dig, tror jeg, at det virker. Jeg har sat følgende ind i funktionen:
                            ElseIf datDate >= Me.Parent.Ankomst And datDate <= Me.Parent.afrejse Then
                            .ForeColor = vbRed

___________________________________________________________________
Private Sub FixDaysInMonth(intStartDay As Integer)
    ' Turn on and off buttons in the currently displayed month.
    Dim intRow As Integer
    Dim intCol As Integer
    Dim intNumDays As Integer
    Dim intCount As Integer
    Dim strTemp As String
    Dim datDate As Date

    intNumDays = DaysInMonth(Me!Month)
    ' If the chosen date is past the last day in this month,
    ' then just select the last day of this month.
    If Me!Day > intNumDays Then
        Me!Day = intNumDays
    End If

    intCount = 0
    For intRow = 1 To 6
        For intCol = 1 To 7
            If (intRow = 1) And (intCol < intStartDay) Then
                Me("lbl1" & intCol).Visible = False
            Else
                intCount = intCount + 1
                strTemp = "lbl" & intRow & intCol
               
                With Me(strTemp)
                    If intCount <= intNumDays Then
                      datDate = DateSerial(Me.txtYear, Me.Month, intCount)
                     
                      If DCount("[CalDate]", "[tblSchedule]", "[CalDate]=#" & datDate & "#") > 0 Then
                          .ForeColor = vbRed
                          .FontWeight = 800
                        Else
                          .FontWeight = 400
                          If WeekDay(datDate) = 1 Or WeekDay(datDate) = 7 Then
                              .ForeColor = vbBlue
                            ElseIf datDate >= Me.Parent.Ankomst And datDate <= Me.Parent.afrejse Then
                            .ForeColor = vbRed
                            Else
                              .ForeColor = vbBlack
                          End If
                      End If
                        If Not .Visible Then
                            .Visible = True
                        End If
                        .Caption = intCount
                    Else
                        If .Visible Then
                            .Visible = False
                        End If
                    End If
                End With
            End If
        Next intCol
    Next intRow
End Sub

Tusinde tak - desværre har jeg et arbejde jeg skal passe så jeg kan nok ikke afprøve det før i morgen.