Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: скрыть поле в отчете по значению другого поля?
 
 автор: ser60   (02.05.2011 в 07:12)   личное сообщение
 
 

Возможно ли скрыть поле в отчете по значению другого поля? Следующих два примера не работают:

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
If Me.[Примечание] = True Then
    Me.НомерСтроки.Visible = False
End If
End Sub

' следующий пример, вместо . поставил !
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
If Me![Примечание] = True Then
    Me!НомерСтроки.Visible = False
End If
End Sub

  Ответить  
 
 автор: Lukas   (02.05.2011 в 12:57)   личное сообщение
 
 

А условным форматированием не проще?

  Ответить  
 
 автор: ser60   (02.05.2011 в 20:41)   личное сообщение
 
 

а поподробнее или где почитать?

  Ответить  
 
 автор: ser60   (03.05.2011 в 15:00)   личное сообщение
 
 

Lukas, условное форматирование применимо только к формам, не так ли?

  Ответить  
 
 автор: Дядя Федор   (02.05.2011 в 14:15)   личное сообщение
 
 

Вообще-то должно работать.
Только надо обработать и оба условия
If Me.[Примечание] = True Then
Me.НомерСтроки.Visible = False
else
Me.НомерСтроки.Visible = True
End If
Иначе ... ну понятно.
А можно просто

    Me.НомерСтроки.Visible = NOT Me.[Примечание]


Должно прокатить.

  Ответить  
 
 автор: ser60   (02.05.2011 в 20:45)   личное сообщение
 
 

не прокатывает (оба варианта)

  Ответить  
 
 автор: Силblч   (02.05.2011 в 20:59)   личное сообщение
 
 

возможно на событии OnPrint...

  Ответить  
 
 автор: ser60   (02.05.2011 в 22:57)   личное сообщение
 
 

не прошло оба:

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
If Me.[Примечание] = True Then
    Me.НомерСтроки.Visible = False
    Else
        Me.НомерСтроки.Visible = True
End If
'Me.НомерСтроки.Visible = Not Me.[Примечание]
End Sub

  Ответить  
 
 автор: Дядя Федор   (03.05.2011 в 08:36)   личное сообщение
 
 

Попробовал, действ. не работает с лог.полем.
Замени его на числовое.
И заработает

  Ответить  
 
 автор: ser60   (03.05.2011 в 14:13)   личное сообщение
 
 

Извините, может я сделал неправильно (не работает):

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
If CLng(Nz(Me.[Примечание], 0)) = -1 Then
    Me.НомерСтроки.Visible = False
    Else
        Me.НомерСтроки.Visible = True
End If
'Me.НомерСтроки.Visible = Not CLng(Nz(Me.[Примечание], 0))
End Sub

http://zalil.ru/30969137

  Ответить  
 
 автор: Дядя Федор   (04.05.2011 в 08:18)   личное сообщение
51 Кб.
 
 

Me.НомерСтроки.Visible = Not Me.Примечание - работает.
У вас строка 17 НЕ ПЕЧАТАЕТСЯ если прим. истина.
Посмотрите запрос!!!!!
Ошибка в нем, а не в отчете.
См. скриншот->

  Ответить  
 
 автор: ser60   (04.05.2011 в 14:27)   личное сообщение
 
 

спасибо!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList