| |
|
|
| | Для подчинённой формы присваиваю строку источник:
strSQL = "SELECT * FROM for_jorn_zayav WHERE True" & _
" AND prizv Like '*" & Me.Поле6 & "*' " & _
" AND vid_doc='" + Me.Combo103 + "'" & _
" AND vid_zvern='" + Me.Combo105 + "'" & _
" AND zv_sub='" + Me.ПолеСоСписком52 + "'"
Forms![search kartka]![for_lenta_zaya].Form.RecordSource = strSQL
Forms![search kartka]![for_lenta_zaya].Form.Repaint
Подскажите пожалуйста как эту же строку присвоить отчёту? | |
| |
| |
| |
|
|
| | Как вариант (для А2002 и выше), в форме:
DoCmd.OpenReport strReportName, acPreview, , , , strSQL
|
В отчете:
Private Sub Report_Open(Cancel As Integer)
Dim strOpenArgs As String
strOpenArgs = Nz(Me.OpenArgs)
If Len(strOpenArgs) > 0 Then
Me.RecordSource = strOpenArgs
Else
'Cancel = True - если нет установленного валидного источника
End If
End Sub
|
| |
| |
| |
