Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не получается настроить редактирование записи в таблице Access / 7 сообщений из 7, страница 1 из 1
28.01.2013, 14:53
    #38127340
Emmelman
Emmelman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается настроить редактирование записи в таблице Access
Здравствуйте, форумчане! Прошу вашего совета, а то что-то совсем я уже, никак разобраться не могу в чем проблема.

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

Код: 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, 15:22
    #38127411
qwerty112
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается настроить редактирование записи в таблице Access
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:32
    #38127433
Emmelman
Emmelman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается настроить редактирование записи в таблице Access
qwerty112,

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

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

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

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

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

для datasheet view, ведь, тоже в конструкторе формы, вы задавали поля-контролы для отображения ?
покажите картинку формы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2013, 16:03
    #38127486
Emmelman
Emmelman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается настроить редактирование записи в таблице Access
все исправил,заработало
[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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не получается настроить редактирование записи в таблице Access / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 582ms
Закрыть
start [/forum/moderation_log.php?user_name=%D0%A0%D0%BE%D0%BC%D0%B0%D0%BD+%D0%A8%D0%B5%D0%B2%D1%87%D0%B5%D0%BD%D0%BA%D0%BE]:
 0ms
get settings:
 11ms
get forum list:
 14ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 36ms
get tp. blocked users:
 2ms
others: 436ms
total:  582ms
x
x
Закрыть


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