| |
|
|
| | Private Sub Печать_квитанции_Click()
Select Case Me.АorХ
Case "Ателье"
DoCmd.OpenReport "rptАтелье", acViewPreview, "КвитанцияNew", "[Номер квитанции]=Me.[Номер квитанции]"
Case "Химчистка"
DoCmd.OpenReport "rptХимчистка", acViewPreview, "[Квитанция-HimNew]", "[Номер квитанции]=Me.[Номер квитанции]"
End Select
End Sub | |
| |
| |
| |
|
|
| | DoCmd.OpenReport "rptХимчистка", acViewPreview, "[Квитанция-HimNew]", "[Номер квитанции]=" & Me.[Номер квитанции] | |
| |
| |
| |
|
|
| | огромное спасибо!!!! Все получилось!!!!!!!!!!!!!!!!! | |
| |
| |
| |
|
|
| | Я отчасти нашла ошибку. Вот итоговая строка. Что тут не так?
DoCmd.OpenForm "Форма-Оплата", "[ОплатаNew]![Номер квитанции]=[Forms]![Заполнение квитанции].[Me.Номер квитанции]" | |
| |
| |
| |
|
|
| | наверное не может найти объект с именем [Ме.Номер Квитанции] | |
| |
| |
| |
|
|
| | Почему не открывается форма?
Select Case Me.АorХ
DoCmd.OpenForm "Форма-Оплата", "[ОплатаNew]![Номер квитанции]=[Forms]![Заполнение квитанции].[Me.Номер квитанции]"
End Select | |
| |
| |
| |
|
|
| | По той же причине, что и отчет не открывался. Исправте синтаксис фильтра | |
| |
| |
| |
 37 Кб. |
|
| | Посмотрите пример, и попробуйте почитать Help | |
| |
| |
| |
|
|
| | DoCmd.Open Form "Форма-оплата", "[ОплатаNew]", "[Номер квитанции]=" & Me.[Номер квитанции]
Все-равно не открывается | |
| |
| |
| |
|
|
| | Воспользуйтесь мастером для создания кнопок, и посмотрите потом код | |
| |
| |
