<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Sub P_InsertDate(PDT As Date)
' Inserts Date/Chair/TimeSlot Values In Table T_Plan
On Error GoTo ErrTrap
    Dim QST As String
    Dim Datum As String
    
    Datum = "#" & Format(PDT, "mm-dd-yyyy") & "#"
    
    If DCount("*", "T_Plan", "PDate =" & Datum) > 0 Then
        GoTo ExitPoint      ' This Date Already Exists
    End If
    
    QST = "INSERT INTO T_Plan (PDate, TimeSlot) " & _
                " SELECT  " & Datum & " AS PDate, TimeSlot " & _
                " FROM T_TimeSlot ;"
    DoCmd.SetWarnings False
        DoCmd.RunSQL Q