powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / AbsolutePosition
4 сообщений из 4, страница 1 из 1
AbsolutePosition
    #32036837
Gena G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Странная штука - в Access2002 при попытке передать значение из дочерней (POPUP) формы в родительскую в привязынный к полю таблице textbox вылазиет ошибка типа нет такой проперти как Value для данного объекта. Причем это происходит только тогда когда я читаю любую проперть из рекордсета что привязан к родительской форме:

Dim n As Integer
n = Me.Recordset.AbsolutePosition

Это у меня глюк или как?
...
Рейтинг: 0 / 0
AbsolutePosition
    #32036854
sFx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а можно поподробнее...если не сложно, то с частью вашего кода, где присутсвует value
...
Рейтинг: 0 / 0
AbsolutePosition
    #32036869
Gena G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ок

Открываем дочернюю форму (просто Calendar ActiveX):

OpenCalendar Me.Name, "DateCanceled"

Код процедуры:

Public Sub OpenCalendar(NameForm As String, NameField As String)
DoCmd.OpenForm "Calendar", acNormal
' берем дату из заветного поля
Forms!Calendar!Calendar0 = Forms(NameForm).Controls(NameField).Value
' сохраняем имя вызвавшей формы и имя поля куда вернуть результат
Forms!Calendar!FormReturn = NameForm
Forms!Calendar!FieldReturn = NameField
End Sub

Передаем обратно дату:

Private Sub Set_Click()
' имеем ошибку в этой строчке
Forms(Me.FormReturn).Controls(Me.FieldReturn) = Me.Calendar0
DoCmd.Close acForm, Me.Form.Name
End Sub

Но как я говорил что ошибка появится ТОЛЬКО если считать значение какой-то проперти у рекордсета в родительской форме перед открытием дочерней. Где собака порылась?
...
Рейтинг: 0 / 0
AbsolutePosition
    #32036999
sFx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
попробуй обновлять рекордсет перед изменением. например по move 0. или по requery, интересно это сработает?
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / AbsolutePosition
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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