validering af tid

what part do you have problems with?

Enig med Terry - det er svært at hjælpe når du ikke definerer dit problem bedre.

Men et skud i tågen:
du kan lave en If..Then sætning / Select Case der måler på felterne i underformularen. hvis denne periode overlapper den tidligere indtastede tid, så laver du en MsgBox der siger sådan og sådan. Hvis den ikke overlapper Then Exit sub.

Mvh / Mugs

jeg ville gerne have nogle idere til koden ...
da jeg ikke helt gangennemskue det .......

If Start >= Tidligere indtastet And <= Tidligere indtastet tid Then
MsgBox skriv noget
Else:
gør noget andet

Det er kort og ikke fuldendt, men jeg skal til et møde nu.

Mugs

Behøver du stadig hjælp?
Ellers vær venlig at afslutte spørgsmålet.

Private Sub txtStartDate_BeforeUpdate(Cancel As Integer)
    If Not DateOverlap(Me.txtStartDate) Then
        If IsDate(Me.txtStartDate) Then Me.txtEndDate = Me.txtStartDate
    Else
        Cancel = True
    End If

End Sub

Private Sub txtEndDate_BeforeUpdate(Cancel As Integer)
    If Me.txtEndDate < Me.txtStartDate Then
        msgBox \"End date less than start date.\", vbInformation
        Cancel = True
    Else
        If DateOverlap(Me.txtEndDate) Then
            Cancel = True
        End If

    End If
End Sub

Function DateOverlap(TheDate As Date) As Boolean
\'If chkCheckForOverlap = True.
\'Checks to see if TheDate overlaps in an existing period.

    If Me.chkCheckDateOverlap Then
        If DCount(\"openPeriodID\", \"tblLocalDefaultOpenCalendar\", \"#\" & Format(TheDate, \"mm-dd-yyyy\") & \"# Between StartDate and Enddate\") Then
            msgBox \"The date overlaps with an existing period.\", vbInformation
            DateOverlap = True
           
        End If
    Else
        DateOverlap = False
    End If

End Function

There is a bit of code which isnt necessary but hopefully it will give you some ideas!

terry