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

Форум: MS ACCESS

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

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

 
 

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

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

тема: Напомните - а?
 
 автор: час   (21.04.2011 в 10:08)   личное сообщение
 
 

Хочу открыть запрос ("FILE_NAME_YES") как Recordset

Set db = CurrentDb
Set RST = db.OpenRecordset("FILE_NAME_YES", dbOpenDynaset)

abu_вам

  Ответить  
 
 автор: Анатолий (Киев)   (21.04.2011 в 10:21)   личное сообщение
 
 

Помнится, вы работаете в VB? Там нет CurrentDb. Нужно создать объект DBEngine, в нем OpenDatabase, а в ней уже OpenRecordset.

  Ответить  
 
 автор: час   (21.04.2011 в 11:00)   личное сообщение
 
 

Анатолий (Киев) - Сейчас, блудный сын вернулся
- В аксес, я снова окунулся
И памяти своей я ужаснулся
Что - половину я забыл
Бывало код писал и пиво пил
И на экране - всё сходилось
Задумал и отобразилось
А нынче хуже времена
Порой не помню ни ражна
Вот и сейчас зашёл в тупик
К экрану форума приник
И жду ответа - вдруг услышу
А то совсем поедет крыша
И мозг вскипит, и пена возле рта
Такая светит нонче ...та!

  Ответить  
 
 автор: час   (21.04.2011 в 11:03)   личное сообщение
 
 

Ну ладно, - голь на выдумки хитра
Забил проблему - поступив иначе
Не даром - ранее была муштра....
Решил с другого боку - я - задачу!!!!!

  Ответить  
 
 автор: kot_k_k   (21.04.2011 в 11:16)   личное сообщение
 
 

плохо если не знал, да еще и забыл


каким ты блы - таким ты и остался

  Ответить  
 
 автор: час   (21.04.2011 в 17:13)   личное сообщение
 
 

  Ответить  
 
 автор: час   (21.04.2011 в 19:51)   личное сообщение
 
 

Хочу из основной формы в подчинённой скрыть три поля


Forms("DIRECTOR_FRM").LIST_ACTUAL_PRODUCT.Form.WIDTH_P.Visible = False
Forms("DIRECTOR_FRM").LIST_ACTUAL_PRODUCT.Form.HEIGHT_P.Visible = False
Forms("DIRECTOR_FRM").LIST_ACTUAL_PRODUCT.Form.COMMENT.Visible = False

Me.LIST_ACTUAL_PRODUCT.Form.WIDTH_P.Visible = False
Me.LIST_ACTUAL_PRODUCT.Form.HEIGHT_P.Visible = False
Me.LIST_ACTUAL_PRODUCT.Form.COMMENT.Visible = False

ничего не происходит?
Почему?

  Ответить  
 
 автор: Lukas   (21.04.2011 в 20:10)   личное сообщение
 
 

А фокус где?
Я бы описал метод в подчиненной форме, и вызывал бы его из основной.

  Ответить  
 
 автор: час   (21.04.2011 в 20:12)   личное сообщение
 
 

Это - возможно?
Вот так?
Public СкрытьНафиг()

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

Public SetVisible(blnVisible As Boolean)

Кстати, подчиненная, часом, не в табличном режиме?

  Ответить  
 
 автор: час   (21.04.2011 в 20:18)   личное сообщение
 
 

А как к ней абратиться из основной?

  Ответить  
 
 автор: Lukas   (21.04.2011 в 20:21)   личное сообщение
 
 


Private sf As Form

На откритии
Set sf=Me.LIST_ACTUAL_PRODUCT.Form

Где надо
sf.SetVisible False

На закрытии
Set sf=Nothing


Кстати, подчиненная, часом, не в табличном режиме?

  Ответить  
 
 автор: час   (21.04.2011 в 20:55)   личное сообщение
 
 

У табличном
Симён Семёныч............

  Ответить  
 
 автор: Explorer   (21.04.2011 в 20:56)   личное сообщение
 
 



час классно пишет :) очень читабельно

некоторые рекомендуют заменять имена созвучные (даже визуально похожие на) системым на акронимы или условные сокращения

т.е. не использовать WIDTH_P или HEIGHT_P

а писать что-то вроде:

W_PARCEL
H_PARCEL
T_PARCEL
L_PARCEL

вроде понятно и глаз не режет... но к этому нужно привыкнуть

-----------
ну и конечно все операции с объектами через коллекции (а потом For each Item in)

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

Символ подчеркивания хотели зарезервировать для VBA, но, видать, пока не решаются.
Все-же, лучше не пользовать.

  Ответить  
 
 автор: час   (21.04.2011 в 21:30)   личное сообщение
 
 


А у мну подчёркивание усюду усюду усюду усюду

  Ответить  
 
 автор: Explorer   (21.04.2011 в 23:22)   личное сообщение
 
 

готовься!

  Ответить  
 
 автор: час   (22.04.2011 в 09:23)   личное сообщение
 
 

  Ответить  
 
 автор: Explorer   (21.04.2011 в 20:15)   личное сообщение
 
 

топек не четал

Visible = False это коряво
должно быть Enabled & Locked

так что совсем ничего не происходит или ругается?

  Ответить  
 
 автор: час   (21.04.2011 в 20:17)   личное сообщение
 
 

Не ругается - глотает, а поля не прячет (С)
-----------------------------
Совсем ничего не происходит.....

  Ответить  
 
 автор: Explorer   (21.04.2011 в 20:21)   личное сообщение
 
 

>>> Совсем ничего не происходит

э-э-э-э...

  Ответить  
 
 автор: час   (21.04.2011 в 21:34)   личное сообщение
 
 


час классно пишет :) очень читабельно


Мне тоже нравится
Типа ширина не видима

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