|
|
|
Это можно не читать.
|
|||
|---|---|---|---|
|
#18+
Как передать строку из одной табл. формы в другую двойным нажатию по этой строке, чтобы ее потом можно было изменить и сохранить? Я что делаю: В той откуда надо перенести пишу 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 В другой при открытии нужно перенести эту строку, изменить ее и сохранить как новую. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.01.2004, 13:17 |
|
||
|
Это можно не читать.
|
|||
|---|---|---|---|
|
#18+
Ну где же вы, что никто так не делал? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.01.2004, 13:34 |
|
||
|
Это можно не читать.
|
|||
|---|---|---|---|
|
#18+
Да нормально ты делаешь, только после открытия формы надо заполнить ее поля Forms("stDocName")![Type]=Me![Type] и т.п., и сохранить запись docmd.runcommand accmdsaverecord при необходимости. Только ты не первый день на форуме - давай понятные назавания топикам. В том числе, скажи, как обозвать этот, а то я сам с ним что-нибудь сделаю :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.01.2004, 13:54 |
|
||
|
Это можно не читать.
|
|||
|---|---|---|---|
|
#18+
Ошибка: не возможно присвоить значение объекту. И в этом вся беда: 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 Назови как хошь. :-) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.01.2004, 14:21 |
|
||
|
|

start [/forum/topic.php?fid=45&fpage=1695&tid=1677222]: |
0ms |
get settings: |
10ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
60ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
31ms |
get tp. blocked users: |
1ms |
| others: | 254ms |
| total: | 380ms |

| 0 / 0 |
