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

Форум: MS ACCESS

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

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

 
 

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

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

тема: не срабатывает MsgBox на открытие формы на отсутствие данных
 
 автор: ser60   (29.04.2011 в 06:50)   личное сообщение
 
 

Поставил на открытие формы на отсутствие данных код

Private Sub Form_Open(Cancel As Integer)
 If Me.RecordsetClone.RecordCount = 0 Then MsgBox "Нет данных!" , vbOKOnly + vbInformation
  Cancel = True
End Sub

Видно, что акс отрабатывает (Обработка команды...), но MsgBox не показывается. В чем может быть причина? Из-за содержащейся там подформы?

  Ответить  
 
 автор: Силblч   (29.04.2011 в 07:18)   личное сообщение
 
 


Private Sub Form_Open(Cancel As Integer) 
 If Me.RecordsetClone.RecordCount = 0 Then 
   MsgBox "Нет данных!" , vbOKOnly + vbInformation 
  Cancel = True 
End Sub 


а здесь точно Me.RecordsetClone.RecordCount=0?

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

кусок кода скачал когда из файла katalog кажется с этого файла. А Me.RecordsetClone.RecordCount проверил дебагом. Ничего не показал. Неправильно, да?

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

допиши nz(......,0)=0

  Ответить  
 
 автор: ser60   (30.04.2011 в 05:04)   личное сообщение
 
 

Силыч! я написал так

 If Nz(Me.Recordset.RecordCount, 0) = 0 Then
 MsgBox "Нет данных!", vbOKOnly + vbInformation
  Cancel = True
End If

но форма открывается, а MsgBox не отрабатывает. Подскажите, что еще нужно исправить?

  Ответить  
 
 автор: Силblч   (30.04.2011 в 08:00)   личное сообщение
 
 

не знаю, у меня сработало

Private Sub Form_Open(Cancel As Integer)
 If Nz(Me.RecordsetClone.RecordCount, 0) = 0 Then
 MsgBox "Нет данных!", vbOKOnly + vbInformation
  Cancel = True
End If
End Sub



у тебя же ведь в источнике записей есть же єтот источник хоть?

  Ответить  
 
 автор: Explorer   (30.04.2011 в 10:45)   личное сообщение
 
 

для рекордсет каунт также помогает мувласт мувфёст

нужно дать системе явно заполнить рекордсет (также как для файндфёст)

сёрч стринг - "метнуться"

  Ответить  
 
 автор: Explorer   (30.04.2011 в 10:52)   личное сообщение
 
 

в России, как известно, две беды
и даже если одну из них можно решить
при помощи асфальтоукладика и дорожного катка, например

то все равно - что делать с дорогами... неизвестно

  Ответить  
 
 автор: ser60   (30.04.2011 в 17:28)   личное сообщение
 
 

Explorer’у: Ладно, с трубоукладиком понятно. Форум же и существует, чтобы общаться. Ну бывает, что бьешься головой об стену, патамушта зацикливаешься... А у вас не было так поначалу?! Вот и обращаемся к вам, профессорам!!!
Когда формулируешь письменно проблему, невольно еще раз пересматриваешь код и находишь свои же собственные глюки, которые не видны сразу. В этом суть общения. А ты сразу катком...

  Ответить  
 
 автор: Lukas   (30.04.2011 в 18:06)   личное сообщение
 
 


...А ты сразу катком...


  Ответить  
 
 автор: explorer   (30.04.2011 в 19:15)   личное сообщение
 
 

да я же пошутил просто

тебя совсем не имел в виду и даже в мыслях не было! необижайсо!

Форум же и существует, чтобы общаться (с)

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

заметано!

  Ответить  
 
 автор: ser60   (30.04.2011 в 17:23)   личное сообщение
 
 

СилЫчу: Спасибо! Разобрался с формой (там у меня всегда есть хотя бы одна запись).

  Ответить  
 
 автор: Силblч   (30.04.2011 в 21:16)   личное сообщение
 
 

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