Private Sub Report_Open(Cancel As Integer)
Dim ctl As Control
If Me.HasData = 0 Then
For Each ctl In Me.Controls
If ctl.ControlType = 109 Then ctl.ControlSource = "=0"
Next
End If
End Sub
Private Sub Report_Open(Cancel As Integer)
Dim ctl As Control
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(CurrentDb.QueryDefs(Me.RecordSource).SQL)
If rst.RecordCount = 0 Then
For Each ctl In Me.Controls
If ctl.ControlType = 109 Then ctl.ControlSource = "=0"
Next
End If
End Sub
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 1