Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Экземпляры форм  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 1105
база с формами у клиента, таблицы на сервере Win 7-64 Office 2013-32
при нажатии на кнопку через Currentdb.execute " insert....." заполняется временная таблица у клиента и на ней открывается форма
нужно открыть несколько экземпляров этой формы....
как действовать?
проверять - открыта ли уже форма, если да - то создавать еще одну временную таблицу, заполнять ее, открывать экземпляр формы и менять источник данных в ней на вновь созданную временную таблицу?
Или есть еще какое-то решение?
6 окт 21, 08:12    [22379872]     Ответить | Цитировать Сообщить модератору
 Re: Экземпляры форм  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 5361
Serg197311, делать на оторванном рекордсете
6 окт 21, 10:11    [22379918]     Ответить | Цитировать Сообщить модератору
 Re: Экземпляры форм  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 1105
Панург
Serg197311, делать на оторванном рекордсете

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

Сообщение было отредактировано: 6 окт 21, 10:09
6 окт 21, 10:19    [22379929]     Ответить | Цитировать Сообщить модератору
 Re: Экземпляры форм  [new]
alecko
Member

Откуда: Башкирия
Сообщений: 849
Serg197311, используйте одну таблицу, сделайте поле с признаком. в запросе фильтруйте записи, либо используйте фильтр формы.
6 окт 21, 13:36    [22380023]     Ответить | Цитировать Сообщить модератору
 Re: Экземпляры форм  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 5361
Serg197311
А редактировать данные это позволит?
каждое нажатие на кнопку главной формы породит экземпляр формы Товары со своим источником на оторванном/отсоединённом рекордсете.

А чего не делать просто на запросе с готовым фильтром (секция WHERE)?

К сообщению приложен файл (detached_recordset.zip - 35Kb) cкачать
6 окт 21, 13:38    [22380028]     Ответить | Цитировать Сообщить модератору
 Re: Экземпляры форм  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 1105
Панург


А чего не делать просто на запросе с готовым фильтром (секция WHERE)?

А там запрос нередактируемый получается с кучей JOINов...
6 окт 21, 13:50    [22380035]     Ответить | Цитировать Сообщить модератору
 Re: Экземпляры форм  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 1105
Serg197311
Панург


А чего не делать просто на запросе с готовым фильтром (секция WHERE)?

А там запросы нередактируемый получается с кучей JOINов...

"INSERT INTO tempvygr ( codever, prod, qt, codm1, tp, pth )" _
                & " SELECT MAIN1_1.codever, MAIN1_1.prod, getqbp(MAIN1_1.pth), MAIN1_1.code, 1 AS Âûðàæåíèå1, MAIN1_1.pth " _
                & " FROM MAIN INNER JOIN (main1 INNER JOIN MAIN1 AS MAIN1_1 ON main1.code = MAIN1_1.OWN) ON MAIN.CODE = MAIN1_1.coded " _
                & " WHERE (((MAIN1_1.prod)=True) AND ((MAIN.MARKA) Not Like '*erp*') AND ((Exists (SELECT MAIN1.code FROM MAIN1 where main1.own=main1_1.code;))=True) AND ((MAIN1_1.pth) Like '*" & ptcodm1 & "')) " _
                & " ORDER BY MAIN.MARKA; "

что -то типа такого - только 4 раза с разными условиями и объединениями...
6 окт 21, 13:52    [22380037]     Ответить | Цитировать Сообщить модератору
 Re: Экземпляры форм  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 1105
Панург


А чего не делать просто на запросе с готовым фильтром (секция WHERE)?

Панург.... у меня что-то не получается.... То есть
If isop = True Then
    strSQL = "*********;"
    Set rst = New ADODB.Recordset
    rst.CursorLocation = adUseClient
    rst.LOCKTYPE = adLockBatchOptimistic
    rst.CursorType = adOpenStatic
    Set rst.ActiveConnection = CurrentProject.Connection
    rst.Open strSQL, Options:=adCmdText
    Set rst.ActiveConnection = Nothing
    Set frmCurrent = New Form_tabl
    Set frmCurrent.Recordset = rst
    frmCurrent.Visible = True
    frmCurrent.Caption = Replace(Replace(ctl.Column(1, i), "ÀÁÂÊ.", ""), ".000.000", "")
    m_Forms.add frmCurrent
    
Else
   DoCmd.OpenForm "tabl"
   Forms!tabl.Caption = Replace(Replace(ctl.Column(1, i), "ÀÁÂÊ.", ""), ".000.000", "")
End If
  DoCmd.Close acForm, "rab"
End Sub

форма появляется на экране а после end sub пропадает....
а у тебя - не пропадает...
разные версии Акса?
Или у меня руки кривые?
7 окт 21, 10:13    [22380460]     Ответить | Цитировать Сообщить модератору
 Re: Экземпляры форм  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 1105
разобрался, оказывается тут главная команда - Me.SetFocus)))
7 окт 21, 11:18    [22380525]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить