SELECT Count(ПраздничныеДаты.Код) AS Выражение1
FROM ПраздничныеДаты
WHERE (((ПраздничныеДаты.Дата)>=[ДатаНачала] And (ПраздничныеДаты.Дата)<=[ДатаОкончания]));

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Count(ПраздничныеДаты.Код) AS КолВых  FROM ПраздничныеДаты Where (ПраздничныеДаты.Дата>=" & Format(Me.ДатаНачала, "\#mm\/dd\/yyyy\#") & ")AND(ПраздничныеДаты.Дата<=" & Format(Me.ДатаОкончания, "\#mm\/dd\/yyyy\#") & ")")
If rs.Fields(0) > 0 Then
Me.Поле130 = rs.Fields(0)
End If

Me.Поле130 = rs.Fields(0)

Me.Поле130 = rs.Fields(0).Value

Me.Поле130 = rs.Fields(0).Value

SELECT Count(ПраздничныеДаты.Код) AS Выражение1
FROM ПраздничныеДаты
WHERE (((ПраздничныеДаты.Дата)>=[ДатаНачала] And (ПраздничныеДаты.Дата)<=[ДатаОкончания]));

Function tst()
On Error GoTo err1
    
    If IsNull(Me.ДатаНачала) Or IsNull(Me.ДатаОкончания) Then
        
        Me.Поле130.Value = Null
    
    Else
        Dim rs As DAO.Recordset, SQL As String
        
        SQL = "SELECT Count(Код) AS КолВых FROM ПраздничныеДаты WHERE" & _
            " Дата>=#" & Format(Me.ДатаНачала, "mm\/dd\/yyyy") & "# AND" & _
            " Дата<=#" & Format(Me.ДатаОкончания, "mm\/dd\/yyyy") & "#"
        
        Set rs = CurrentDb.OpenRecordset(SQL)
        Me.Поле130.Value = rs.Fields(0).Value
        
        Debug.Print SQL
        Debug.Print "Count=" & rs.Fields(0).Value
    End If
    Exit Function
    
err1:
    MsgBox Err.Description, 48, Err.Number
    Exit Function
End Function
Private Sub Form_Error(DataErr As Integer, Response As Integer)
DoCmd.SetWarnings False
End Sub

Private Sub ВремяНаДокумент_AfterUpdate()
КолЧасовПлан = ВремяНаДокумент
End Sub

Private Sub ВремяНаДокумент_Click()
КолЧасовПлан = ВремяНаДокумент
End Sub

Private Sub Form_Load()
 Me.Repaint
End Sub

Private Sub Form_Open(Cancel As Integer)
 Me.Repaint
End Sub

Private Sub ДатаНачала_AfterUpdate()
Dim workdays As Integer
Dim d1, d2, i As Date
Dim wd As Integer
tst
If ДатаНачала <> "" Then
d1 = ДатаНачала
End If
If ДатаОкончания <> "" Then
d2 = ДатаОкончания
End If
workdays = 0
If ДатаНачала <> "" Then
For i = d1 To d2
wd = Weekday(i, 0)
If wd <> 1 And wd <> 7 Then workdays = workdays + 1
Next i
КоличествоДней = workdays - Me.Поле130
КолДнейПлан = workdays - Me.Поле130
End If
End Sub

Private Sub ДатаОкончания_AfterUpdate()
Dim workdays As Integer
Dim d1, d2, i As Date
Dim wd As Integer
tst
If ДатаНачала <> "" Then
d1 = ДатаНачала
End If
If ДатаОкончания <> "" Then
d2 = ДатаОкончания
End If
workdays = 0
For i = d1 To d2
wd = Weekday(i, 1)
If wd <> 1 And wd <> 7 Then workdays = workdays + 1
Next i
КоличествоДней = workdays - Me.Поле130.Value
КолДнейПлан = workdays - Me.Поле130.Value
End Sub