Всем привет!
Помогите, пожалуйста, с обновлением подчиненных форм.
У меня есть основная форма, в которой есть две подчиненные формы subform1 и subform2.
В основной форме на событие After Update повесил

Me.subform1.Requery

Тут проблем нет ))

Вопрос как обновить subform2 при добавлении данных в subform1, т.е. при её обновлении?
Основная форма при этом уже не меняется, поэтому Ме... уже не подходит.

http://www.sql.ru/forum/1303301/obnovlenie-requery-podchinennyh-form

Прописываю условие для каждого поля:
Выражение: [КодЗаявки]=CurrentValue()
В коде:

Public Function CurrentValue() As Long
  CurrentValue = lngКодЗаявки
End Function

Private Sub Form_Current()
  lngКодЗаявки = Me!КодЗаявки
  Me.Recalc
End Sub

Почему при переводе указателя на другую строку выделенной остается только первая запись?
Что я делаю не так?
___________________________________
Использую Microsoft Access 2010, 64 бит.
Спасибо каждому, кто мне когда-либо здесь помог и продолжает помогать.

http://www.sql.ru/forum/1303255/uslovnoe-formatirovanie-tekushhey-zapisi

добрый день Форумчане.

Подскажите кто сталкивался с заданием программно размеров разделенной формы.
В разделенной форме есть три параметра ширины:
-- me.Width. в справке MS указано, что это расстояние внутри границ формы, то есть по сути это ширина "подложки" формы в режиме конструктора
-- me.InsideWidth. в справке MS указано, что это размер окна, содержащего форму, то есть размер формы может быть один, втч больше самого окна, а окно это внешний контур, ограничивающий эту форму
-- Me.SplitFormSize. это расстояние от левой границы формы (в случае если таблица справа) до линии, разделяющей форму и табличную часть разделенной формы.

Есть одна проблема: Как узнать общий размер окна формы вместе с таблицей записей, ни одно из этих свойств не дает общий размер окна, более того, что me.InsideWidth, что в теории должно давать общий размер всей окна, куда помещена форма, в случае разделенной формы (если форма справа) дает значение равное Me.SplitFormSize, то есть дает размер окна без учета табличной части. У меня пример с правым расположением, но сути это не меняет если табличная часть будет в другом месте. Суть в том, что в случае разделенной формы me.InsideWidth=Me.SplitFormSize.

При открытии требуется установить метод Move и задать общий размер формы, метод хорошо отрабатывает, устанавливает общий размер. Но так как нет возможности считать общий размер формы, то нет возможности его задать как некую переменную. В чем суть затеи: при закрытии формы размер и положение формы пишутся в "сервисную табличку", при открытии формы ее размер и местоположение восстанавливается в те же значения, что были при закрытии. Может, конечно, изобретаю велосипед, но так приятнее работать, когда настроил нужные размеры и дальше они открываются именно такими как тебе нужно.

Прилагаю картинку чтобы было понятнее суть. Заранее благодарен за подсказку как выудить размер формы с учетом таблицы разделенной формы, то есть ШИРИНА (форма+таблица).

http://www.sql.ru/forum/1303249/razmery-razdelennoy-formy-access

Всем доброго времени суток. Я только собираюсь изучать SQL для использования в Access. И тут оказалось что у SQL много диалектов.. :-) Подскажите пожалуйста, какой диалект используется в Access ? немного изучала сама MySQL, но в Access некоторые самые простые запросы не выполнялись - вылезала ошибка...

http://www.sql.ru/forum/1303238/podhodit-li-postrege-sql-dlya-ispolzovaniya-v-access

Здравствуйте.
Создаю небольшую базу.
Хочу в одном файле поместить таблицы, а в другом программную оболочку (запросы и все остальное).

Где размещать схему данных?

http://www.sql.ru/forum/1303236/shema-dannyh-i-svyazannye-tablicy-v-aksess

Да, вопрс до ужаса простой. Второй день извращаюсь. И так.
Если в свойстве Данные элемента управления "поле"

="текст"="текст"

то вычисляется логическое выражение. Без проблем.
Проблема в том, когда вместо одной из текстовых констант надо подставить ссылку на другое поле
Вот моя неудачная попытка:

="=" & """" & [Поле1] & """=""текст""" & ""

Помогите чайнику.

http://www.sql.ru/forum/1303229/postroenie-logicheskogo-vyrazheniya-v-elemente-upravleniya-pole

В макросе "ЕСЛИ" ввожу выражение :
...

"[Поле" & [LocalVars]![N] & "]="""""

...
т.е. должно проверится условие пустой строки для значения Поле1

[Поле1]=""

Но никак не получается. Очень нужно для цикла обработки средствами макросов (без VBA).

http://www.sql.ru/forum/1303150/konkatenaciya-imeni-polya-v-vyrazhenii

Не подскажете инструмент, как конвертировать Аccess запрос в MS SQL .
Где то видел web страницу каторая форматирует в разные форматы.
Найти не могу снова.
Запрос В Аccess'e сложный, никак не получается в Формат MS SQL перевести.

http://www.sql.ru/forum/1303146/konvertirovat-access-zapros-v-ms-sql

Здравствуйте.
Подскажите пожалуйста список символов, которые заменяются на "_" при создании перекрестного запроса в названии столбцов. Спасибо.

http://www.sql.ru/forum/1303133/nazvaniya-stolbcov-v-perekrestnom-zaprose

добрый день!
в форме есть 2 подформы.
При удалении последней записи в таб предмет, надо чтобы обновилась сумма баллов у соответствующего ученика в таб учеников.
При удалении одной записи - все работает, а при удалении последней - нет

http://www.sql.ru/forum/1303058/obnovlenie-pri-udalenii

Можно ли "разорвать" одно расширяемое огромное поле МЕМО на две страницы отчета? Сейчас с полстраницы оставляет пустое место (т.к. поле целиком не влезает до конца страницы) и переносит поле целиком на следующую страницу. Некрасиво.

http://www.sql.ru/forum/1303020/kak-razorvat-pole-na-stranicy-otcheta

В базе имеется штук 50 разных запросов, которые получают данные друг от друга, т.е запрос от запроса.
Необходимо как то быстро разобрать это дело и понять логику.

Есть ли какой то софт, который строит схему запросов или как быстрее разобрать все это?

http://www.sql.ru/forum/1302991/shema-zavisimostey-zaprosov

Помогите разобраться пож.
Есть задача получить данные из оракл и вывести их на форму.
По каким то непонятным причинам, сначала все работает нормально. Потом кодировка сбивается и выводятся нечитаемые символы.

Можно ли принудительно задавать кодировку в наборах записей/соединении ADO?
В свойствах не нашел....
Может не так/не там ищу.

Что-то типа rst.ActiveConnection.Charset = "WIN1251"
Или в самих параметрах ConnString
или непосредственно к рекордсету.

Или может вариант конвертировать нечитаемый результат из рекордсета какой процедурой на форму.

Это сильная боль и печаль. Помогите...

http://www.sql.ru/forum/1302990/kodirovka-adodb-recordset

Друзья, помогите пожалуйста с контекстным меню.
Получаю сообщение "Введенное выражение содержит функцию с неверным числом аргументов."
Уже что только не перепробовал (. НЕ пойму как победить...

Private Sub TEST_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim IPNE$, script$, BLK_Cell$, q$
IPNE = "10.10.10.10"
UBL_Cell = BLK_UNBLKCell(Me.bcfid, Me.bscid, "UBL")	' тут функция вернет текстовое значение

'q = toExecute(IPNE, UBL_Cell)  '<- вот эту функцию хочу выполнить в OnAction
On Error Resume Next
'Debug.Print "PopUpName: " & PopUpName
CommandBars(PopUpName).Delete
Err.Clear

On Error GoTo Err_
With Me
    PopUpName = .Name & .hWnd
    PopUpName = "test"
End With
On Error Resume Next
With CommandBars.Add(PopUpName, 5, , True)
    With .Controls.Add(1, , , , True)
        .Caption = "UBL_Cell " & Me.btsName & "(BCF=" & Me.bcfid & " ,BSC=" & bscid & ")"
        '.OnAction = "=toExecute(""" & IPNE & "," & UBL_Cell & """)" ' не получается выполнить
        .OnAction = "=toExecute(""'" & IPNE & "','" & UBL_Cell & "'"")"    ' не получается выполнить
     End With

End With

With Me
    .ShortcutMenu = True
    .ShortcutMenuBar = PopUpName
End With

Exit_TEST_MouseDown:
    Exit Sub

Err_:
    MsgBox Err.description & "(Îøèáêà - " & Err.Number & ")", , "Îøèáêà"
    Resume Exit_TEST_MouseDown
End Sub

Public Function toExecute(IPNE As String, script As String)

If Screen.ActiveForm.SendToServer = True Then
    DoCmd.Beep
    If MsgBox("Âû äåéñòâèòåëüíî õîòèòå ïîñëàòü êîìàíäû íà BSC?", vbYesNo, "Ïîäòâåðæäåíèå") = vbYes Then
        Form_FormaLog.SendData IPNE, script
    End If
Else
    MsgBox script, , "Ïîìåùåíî â áóôåð îáìåíà!"
    Text2Clipboard (script)
End If

End Function

http://www.sql.ru/forum/1302904/onaction-zamuchil-kak-pobedit

Друзья, подскажите пожалуйста, можно ли каким либо образом повесить функцию на закрытие программы? Нужно отлинковать референс. И второй вопрос. Референс можно добавлять References.AddFromFile или References.AddFromGuid.
На разных компьютерах Guid (DEAFE982-35A3-4DC6-9C05-DBCCE4058B8E) для одной и той же dll будет разный или одинаковый?
Спасибо.

http://www.sql.ru/forum/1302891/pri-zakrytii-programmy

Доброго времени суток!
У меня есть функция, которая выдает в форму логов в поле txtSource данные полученные от оборудования

DoCmd.OpenForm "FormaLog", acNormal
Form_FormaLog.txtSource = Form_FormaLog.txtSource & sBuffer
Form_FormaLog.txtSource.Setfocus
Form_FormaLog.txtSource.SelStart=Len(Form_FormaLog.txtSource.Text)

Но проблема в том, что результат на форме не очень читаемый, т.к. съезжает форматирование.
Вот на белом фоне, то что ловлю в дебаг.

http://www.sql.ru/forum/1302871/pomogite-pozhaluysta-s-sohraneniem-formatirovaniem-teksta-pri-vyvode-v-formu

На нажатие кнопки из отчета

Private Sub _Click()
 CurrentDb.Execute "UPDATE [A_AAF^2] SET [A_AAF_A^S1]=" & Me.[G_AAK_A^S4] & "  WHERE [A_AAF^KO]=2"
End Sub

Если данные Me.[G_AAK_A^S4] числовые идет обновление.
Если текстовые выдает ошибку
ошибка 3061, слишком мало параметров, требуется 2.
Формат с числового на текстовое меняю.

http://www.sql.ru/forum/1302859/oshibka-na-obnovlenie

Добров время суток уважаемые! горит отчет. стоит задача проинвентаризировать доки.
имеется таблица с 2 колонками инвен номер и наименование документа. добавляю третий логический - состояние на 21.09.2018
при помощи поиска нахожу искомый инв номер и в 3 колонке ставлю галочку.
Помогите упростить процесс.

Дабы не заморачиваться с поиском, и с лишними телодвижениеми. хочу что бы после ввода инв номера
а) или выскакивала табличка и после нажатия пробела закрывалась и потом снова на ввод номера.
или б) после ввода номера автоматически бы ставилась галочка .
Как данную задачу решить.
Помогите плиз.

http://www.sql.ru/forum/1302849/nuzhna-ochen-pomoshh

Добрый день!
У меня простая задача - нужно записать значение строковой переменной в ячейку таблицы.

sigSubject = "Subject:"

Делаю так:

[SRC vba]
CurrentDb.Execute "INSERT INTO Таблица1 (Имя_отправителя) VALUES (" & sigSubject & ");"
[/SRC]

Пишет ошибку:

Run-time error '3075': Ошибка синтаксиса (пропущен оператор) в выражении запроса 'Subject:'.

При этом

Debug.Print "INSERT INTO Таблица1 (Имя_отправителя) VALUES (" & sigSubject & ")"

пишет то что мне нужно:

INSERT INTO Таблица1 (Имя_отправителя) VALUES (Subject:)

Вопрос - что я делаю не так?...

http://www.sql.ru/forum/1302845/prostaya-zadacha-zapisat-znachenie-peremennoy-v-yacheyku

Добрый день.

Учу АДО, дабы перевести ADP на новые рельсы. Есть mdb 2003 + SQL 2008R2. Линкованных таблиц по ОДБС нет.

Требуется сделать форму в табличном виде с подчиненной формой.
Все хочу сделать на АДО-рекордсетах.
Главная форма сделана так, все работате, фильтрация, сортировка, добавление и удаление.

Private Sub Form_Open(Cancel As Integer)
   
   Set cn = New ADODB.Connection
   With cn
      .ConnectionString = "Provider=MSDASQL;Driver=SQL Server;Server=SQLSRV;Database=dbInfoTool;Trusted_Connection=yes"
      .CursorLocation = adUseClient
      .Open
    End With

    Set rs = New ADODB.Recordset
    With rs
        .Source = "sp_PCB_Infos"           ' хранимко
        .ActiveConnection = cn
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .CursorLocation = adUseClient
        .Open
    End With

    'Set rs.ActiveConnection = Nothing
    Set Me.Recordset = rs

    Set rs = Nothing
    Set cn = Nothing
End Sub

Как организовать подчиненную форму используя ADO?
Сложность (для меня?) в том, что на экране одновременно может отображаться несколько подчиненных форм одновременно, см.фото.
На фото подчиненка основана на ОДБС линкованной таблице-вьюхе и все работает, а вот как сделать без линковок?

И еще маленький вопрос:
Если в форме нажать Shift+F9, то выскакивает сообщение "Не удается инициализировать поставщика данных". Как это исправить.
Пока что перехватом нажатий обрабатываю Shift+F9 и сообщения не появляется, но "это же не наш метод"!

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
    If KeyCode = 120 And Shift = 1 Then KeyCode = 0

End Sub

http://www.sql.ru/forum/1302838/mdb-ado-sql-podchinenki-kak-sdelat