ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не получается настроить редактирование записи в таблице Access
7 сообщений из 7, страница 1 из 1
Не получается настроить редактирование записи в таблице Access
    #38127340
Emmelman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Emmelman
Гость
Здравствуйте, форумчане! Прошу вашего совета, а то что-то совсем я уже, никак разобраться не могу в чем проблема.

Есть код на кнопке, при нажатии которой берутся данные из таблицы,они заполняются в другой форме,где их можно отредактировать и сохранить. Вроде бы все просто, но у меня выбирает только первую запись в таблице,всегда! И я не могу понять почему, в другой работе этот же код работает исправно, вот он

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Sub Редактировать _Click()
DoCmd.OpenForm "Form-edit_undercontrol"
Forms![Form-edit_undercontrol].Form.Caption = "Редактировать"
 [Forms]![Form-edit_undercontrol]![Text0].SetFocus
    
    Dim MyL As ADODB.Recordset
    Set MyL = New ADODB.Recordset
    MyL.Open "Select * From empl_undercontrol", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    [Forms]![Form-edit_undercontrol]![Text0] = Me.[ACCOUNT_OWNER_ID]
    [Forms]![Form-edit_undercontrol]![Text2] = Me.[ACCOUNT_OWNER_NAME]

    

Exit_Редактировать_Click:
    Exit Sub

Err_Редактировать_Click:
    MsgBox Err.Description
    Resume Exit_Редактировать_Click
End Sub



табличка у меня маленькая,всего два поля и вот такая ерунда...Заранее спасибо!
...
Рейтинг: 0 / 0
28.01.2013, 14:53
| Ответить | Цитировать | Написать  
Не получается настроить редактирование записи в таблице Access
    #38127411
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Emmelman Вроде бы все просто, но у меня выбирает только первую запись в таблице,всегда! И я не могу понять почему, в другой работе этот же код работает исправно, вот он

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Sub Редактировать _Click()
DoCmd.OpenForm "Form-edit_undercontrol"
Forms![Form-edit_undercontrol].Form.Caption = "Редактировать"
 [Forms]![Form-edit_undercontrol]![Text0].SetFocus
    
    Dim MyL As ADODB.Recordset
    Set MyL = New ADODB.Recordset
    MyL.Open "Select * From empl_undercontrol", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    [Forms]![Form-edit_undercontrol]![Text0] = Me.[ACCOUNT_OWNER_ID]
    [Forms]![Form-edit_undercontrol]![Text2] = Me.[ACCOUNT_OWNER_NAME]

    

Exit_Редактировать_Click:
    Exit Sub

Err_Редактировать_Click:
    MsgBox Err.Description
    Resume Exit_Редактировать_Click
End Sub



он (код) и "в другой работе" - работает точно также :
- текущей записи формы Form-edit_undercontrol присваиваются значения из текущей записи формы в которой код

...и это - а зачем вы открывете рекордсет, если нигде его не используете ?

зы
Акцесс - тама http://www.sql.ru/forum/actualtopics.aspx?bid=4
...
Рейтинг: 0 / 0
28.01.2013, 15:22
| Ответить | Цитировать | Написать  
Не получается настроить редактирование записи в таблице Access
    #38127433
Emmelman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Emmelman
Гость
qwerty112,

и вправду рекордсет не нужен...
в другой был такой же код(с рекордсетом,по незнанию пихнул) и с присвоением значений полям, но там он присваивает именно то, что я выбрал, а не только первую строку, где изюминка-то)
...
Рейтинг: 0 / 0
28.01.2013, 15:32
| Ответить | Цитировать | Написать  
Не получается настроить редактирование записи в таблице Access
    #38127448
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Emmelmanqwerty112,

и вправду рекордсет не нужен...
в другой был такой же код(с рекордсетом,по незнанию пихнул) и с присвоением значений полям, но там он присваивает именно то, что я выбрал, а не только первую строку, где изюминка-то)
я ещё раз повторяю :
- ваш код, выбирает в форму Form-edit_undercontrol НЕ первую запись таблицы,
а текущую запись на форме ! (если конечно ACCOUNT_OWNER_ID, ACCOUNT_OWNER_NAME - имена полей-контролов, с заданными ControlSource)

а какая она там "текущая" - никто кроме вас не знает ...
...
Рейтинг: 0 / 0
28.01.2013, 15:38
| Ответить | Цитировать | Написать  
Не получается настроить редактирование записи в таблице Access
    #38127469
Emmelman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Emmelman
Гость
qwerty112,

все,понял, почему в старой проге работает, а тут нет. В старой у меня как раз через ControlSource привязано, поэтому выбирает все отлично, а в данном случае просто datasheet view таблицы на форме. Как в таком случае следует обратиться к записям?
...
Рейтинг: 0 / 0
28.01.2013, 15:53
| Ответить | Цитировать | Написать  
Не получается настроить редактирование записи в таблице Access
    #38127482
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Emmelmanqwerty112,

все,понял, почему в старой проге работает, а тут нет. В старой у меня как раз через ControlSource привязано, поэтому выбирает все отлично, а в данном случае просто datasheet view таблицы на форме. Как в таком случае следует обратиться к записям?
даа, так же ...
перейти в datasheet view на нужную запись, и выполнить тот код

для datasheet view, ведь, тоже в конструкторе формы, вы задавали поля-контролы для отображения ?
покажите картинку формы
...
Рейтинг: 0 / 0
28.01.2013, 16:00
| Ответить | Цитировать | Написать  
Не получается настроить редактирование записи в таблице Access
    #38127486
Emmelman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Emmelman
Гость
все исправил,заработало
[Forms]![Form-edit_undercontrol]![Text0] = Me![empl_undercontrol subform]![ACCOUNT_OWNER_ID]
[Forms]![Form-edit_undercontrol]![Text2] = Me![empl_undercontrol subform]![ACCOUNT_OWNER_NAME]

вот так надо было,затупил конкретно я)
...
Рейтинг: 0 / 0
28.01.2013, 16:03
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не получается настроить редактирование записи в таблице Access
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38127340&tid=2157182]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 51ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 2ms
others: 284ms
total:  415ms
созд. / загр.: 415ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]