powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Это можно не читать.
5 сообщений из 5, страница 1 из 1
Это можно не читать.
    #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
Это можно не читать.
    #32375629
Фотография Nasch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну где же вы, что никто так не делал?
...
Рейтинг: 0 / 0
Это можно не читать.
    #32375684
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да нормально ты делаешь, только после открытия формы надо заполнить ее поля

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

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


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