Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Это можно не читать. / 5 сообщений из 5, страница 1 из 1
14.01.2004, 13:17
    #32375601
Nasch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Это можно не читать.
Как передать строку из одной табл. формы в другую двойным нажатию по этой строке, чтобы ее потом можно было изменить и сохранить? Я что делаю:
В той откуда надо перенести пишу

Private Sub Number_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
Dim StatusBarText As String

stDocName = "dbo_ContractFin2"
stLinkCriteria = "[Number]=" & "'" & Me![Number] & "'" & "
and " & "[Type]=" & "'" & Me![Type] & "'" & "
and " & "[TypeAddons]=" & "'" & Me![TypeAddons] & "'" & "
and " & "[PayType]=" & "'" & Me![PayType] & "'"
DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria, acFormAdd
End Sub


В другой при открытии нужно перенести эту строку, изменить ее и сохранить как новую.
...
Рейтинг: 0 / 0
14.01.2004, 13:34
    #32375629
Nasch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Это можно не читать.
Ну где же вы, что никто так не делал?
...
Рейтинг: 0 / 0
14.01.2004, 13:54
    #32375684
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Это можно не читать.
Да нормально ты делаешь, только после открытия формы надо заполнить ее поля

Forms("stDocName")![Type]=Me![Type]
и т.п., и сохранить запись
docmd.runcommand accmdsaverecord
при необходимости.

Только ты не первый день на форуме - давай понятные назавания топикам. В том числе, скажи, как обозвать этот, а то я сам с ним что-нибудь сделаю :)
...
Рейтинг: 0 / 0
14.01.2004, 14:21
    #32375751
Nasch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Это можно не читать.
Ошибка: не возможно присвоить значение объекту. И в этом вся беда:

Private Sub Form_Open(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
Dim StatusBarText As String
stDocName = "dbo_ContractFin2"
stLinkCriteria = "[Number]=" & "'" & Me![Number] & "'" & " and " & "[Type]=" & "'" & Me![Type] & "'" & " and " & "[TypeAddons]=" & "'" & Me![TypeAddons] & "'" & " and " & "[PayType]=" & "'" & Me![PayType] & "'"
DoCmd.OpenForm stDocName, acFormDS, , , acFormAdd

Forms(stDocName)![Type] = Me![Type]

End Sub


Назови как хошь. :-)
...
Рейтинг: 0 / 0
14.01.2004, 14:37
    #32375783
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Это можно не читать.
Forms(stDocName)![Type] = nz(Me![Type],0)
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Это можно не читать. / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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