Имеется одна таблица с 20 записями и две формы. В одной форме 20 записей, во второй 15 записей. Нужно чтобы по нажатию кнопки в форме №1, открывалась форма №2 с данными из текущей записи формы №1.

http://www.sql.ru/forum/1117546/otkryt-formu-dlya-tekushhey-zapisi

Добрый день, форумчане
помогите с организацией поиска названия поля одного рекордсета в значениях полей второго рекодсета, и вывести название поля второго рекордсета при совпадении
написал вот такое вот:

+

Set rs = CurrentDb.OpenRecordset("Recordset1") Set Crtable = CurrentDb.OpenRecordset("Recordset2") For Z = 0 To rs.Fields.Count - 1 field_name = rs.Fields(Z).Name For k = 0 To Crtable.Fields.Count - 1 Do While Not Crtable.EOF Set ww = Crtable.Find(" & Crtable.fields(k) & " = " & field_name & ", 1, adSearchForward) Crtable.MoveNext Loop if not ww is nothing then msgbox Crtable.fields(k).name Set ww = nothing Next k

только в "писанине" куча ...., к примеру при поиске в первом столбце курсор застывает в позиции .EOF и хз как его вернуть в начало, при переходе цикла к другому полю
также что то мне не очень вериться в правильность конструкции Set ww = Crtable.Find(" & Crtable.fields(k) & " = " & field_name & ", 1, adSearchForward)
помогите плз

http://www.sql.ru/forum/1117545/recordset-i-find

Здравствуйте!
MS Access 2013. Есть самая простая база данных клиентов.
1. Что нужно сделать, чтобы с этим файлом можно было работать одновременно с разных компьютеров через интернет?
2. Какие нужно сделать настройки в Access для совместного доступа?
3. На какой интернет-ресурс можно закинуть файл?

http://www.sql.ru/forum/1117529/kak-organizovat-sovmestnyy-dostup-k-faylu-access-2013-cherez-internet

Есть БД mdb разделенная на две части (оболочка и таблицы с данными). Пользователи через оболочки редактируют записи в таблице с данными, которые находятся на сервере внутри сети. То есть оболочки прилинкованы через обчную связь с таблицами к файлу с данными на общем серваке.
А теперь появилась необходимость, чтобы подключить другие компы находящиеся в других частях города. То есть необходимо файл с данными был доступен по инету.
Подскажите пожалуйста с чего начать для того чтобы это все организовать с минимальными потерями времени. SQL server? импорировать туда данные с таблиц mdb? при этом необходимо чтобы пользователи могли работать со старой оболочкой (аксесовской 2003, 2007)
Спасибо

http://www.sql.ru/forum/1117502/dostup-k-dannym-cherez-inet

фильтрация реализована так, что по мере набора символов отображаются записи, содержащие введенные символы (по своим полям), но возникают ошибки, которые я прибил "переходом далее". Это неправильно ) подправьте процедуру, где есть ошибки

Private Sub wфильтр_номер_дела_Change()
On Error Resume Next
S0 = "" & Me.wфильтр_номер_дела
Call fpoisk
Me.wфильтр_номер_дела.SelStart = Len(S0) + 1
End Sub
 
Sub fpoisk()
Dim s1, s2
 
    Me.Refresh
    s1 = "true "
    
s2 = "" & Me.wфильтр_наименование
If Len(s2) > 0 Then
s1 = s1 & " and   (полное_наименование & краткое_наименование) like '*" & s2 & "*'"
End If
 
s2 = "" & Me.wфильтр_номер_дела
If Len(s2) > 0 Then
s1 = s1 & " and  номер_дела like '*" & s2 & "*'"
End If
 
s2 = "" & Me.wфильтр_договор
If Len(s2) > 0 Then
s1 = s1 & " and  номер_договора like '*" & s2 & "*'"
End If
 
Debug.Print s1
    Filter = s1
    FilterOn = True
    
    If IsNull(Forms![ДанныеПоискФильтрация]![wфильтр_договор] & Forms![ДанныеПоискФильтрация]![wфильтр_номер_дела] _
    & Forms![ДанныеПоискФильтрация]![wфильтр_наименование] & Forms![ДанныеПоискФильтрация]![wФильтрДатыЗаседания]) Then
        MsgBox "Введите данные для фильтрации"
        Me.ОбластьДанных.Visible = False
        Else
        Me.ОбластьДанных.Visible = True
    End If
 
End Sub

http://www.sql.ru/forum/1117478/filtraciya-zapisey-bazy-po-mere-nabora-teksta

Добрый день
Подскажите плз, можно ли сделать следуюшее.
Имеется ОСНОВНАЯ форма с таким VBA кодом

    If Forms!Force.User = "UsernameNumber1" Then
Me.Form.RecordSource = "SELECT * FROM tables1UsernameNumber1"
    End If
..........................................

    If Forms!Force.User = "UsernameNumber1" Then
Me.Form.RecordSource = "SELECT * FROM tables1UsernameNumberX"
    End If

Можно ли передать значение из Forms!Force.User в Me.Form.RecordSource в виде переменной, типа такого

Me.Form.RecordSource = "SELECT * FROM tables1$Переменная"

Заранее спасибо за ответ!

http://www.sql.ru/forum/1117425/imya-tablicy-i-peremennaya

мне нужно определить что найденная запись единственная, которая нашлась по результат поиска. После поиска запись открывается в ленточной форме, а потом по кнопке "перейти к записи" я открываю её в форме (одностраничной, простой).
Хочу чтобы по нажатию клавиш перехода по записям появлялось сообщение о том что запись одна. При этом если записей несколько в конце и в начале списка появлялось сообщение что "достигнут конец списка в начале" или "достигнут конец списка в начале" соответственно. Мой код не совсем правильно работает.

Private Sub предыдущая_запись_кнопка_Click()
On Error GoTo MSG
    Me.Recordset.MovePrevious
MSG:     MsgBox "Вы находитесь в режиме просмотр одной записи (фильтр)1"
End Sub

Private Sub следующая_запись_кнопка_Click()
With Me.Recordset
        .MoveNext
        If Me.NewRecord Then .MovePrevious
        MsgBox "Достигнут конец списка записей"
    End With
On Error GoTo MSG
Me.Recordset.MovePrevious
MSG:     MsgBox "Вы находитесь в режиме просмотр одной записи (фильтр)2"
End Sub

http://www.sql.ru/forum/1117392/kak-opredelit-chto-tekushhaya-zapis-edinstvennaya-po-rezultatam-raboty-filtra-ili-zaprosa

Всем самого хорошего!
В своё время, когда я писал бух. программу на Access, здесь мне здорово помогли.
С надеждой на то, что доброжелательность сохранилась, обращаюсь с вопросом.
Поставил второй винчестер на комп, благо блок пит. позволяет.
Подскажите стандартную программу, чтобы файл или папка, содержимое которой изменилось, записывалось сразу на 2 диска.Скажем, корректирую я файл на диске D:, а этот файл записывается не только на диск D:, но и на диск F:?
----------------
Вопрос конечно не в тему, но надеюсь, что доброта модератора позволит "повисеть" вопросу сутки, двое.

http://www.sql.ru/forum/1117345/kopirovat-fayly-papki-s-diska-na-disk

Какой критичный объём БД, после которого необходимо переносить на Server.

http://www.sql.ru/forum/1117326/v-kakih-sluchayah-neobhodimo-perenosit-bazu-na-ms-server-ili-mysql

Подскажите, плз, как в табличной форме сделать обработку строк по полю.
Задача - есть таблица, как в примере, необходимо вычислить, сколько времени занимает каждая операция.
В поле2 указано наименование, в поле3 указано время начала работы с операцией. Поле1 определяет цикл (транзакцию), в пределах которого должен быть результат.
Т.е. получить должны вычисляемое поле в табличной форме (Форма1) в котором будет время, затраченное на операцию - для примера сделал его (Поле4) в Таблице2.
Арифметика достаточно простая - из значения Поля3 следующей строки вычитаем значение Поля3 предыдущей строки, а в последней операции каждой транзакции в Поле4 оставляем текущее значение Поля3.

В экселе делается элементарной формулой, в аксе даже не знаю с чего начать.

http://www.sql.ru/forum/1117294/obrabotka-strok

Приветствую, Форумчане!

Существует некое приложение. Работало довольно долго без сбоев. А2003, разделенка (файл-сервер)

Клиенты приходят с планшетниками, нажимают волшебную кнопку и переносят данные на основное приложение, на котором также предусмотрен ручной ввод.

Единственным исключением было то, что вводить данные с планшетника и редактирование данных в ручном режиме одновременно было исключено! Не смог добиться параллельного переноса данных.

Недавно начались приключения. После ввода данных нарушаются все каскадные связи (удаляются). Причем бывают случаи когда в основной таблице данные сохраняются, а в подчиненной нет (вместо записей Error по всей длине полей). Либо наоборот: данные в подчиненке целые, но основная таблица пуста...

Что могла произойти? Серверный файл создал по новой, перенес данные, восстановил связи один ко многим (каскадное обновление), но не сработало...

Посоветуйте, что можно предпринять, до недавнего времени всё работало без сбоев...

Кстати, как можно добиться параллельного переноса данных? Вся проблема у меня в том, что при переносе данных с планшета требуется создание записи ID (index, autonumber), но при одновременном вводе (как я предполагаю) генерируется в памяти ID с одинаковыми значениями и всё блокируется...

Отвечу на любые дополнительные вопросы

http://www.sql.ru/forum/1117273/sletaut-kaskadnye-svyazi-dannye-ne-perenosyatsya

Здравствуйте
Имеем форму (frmVorms) при открытии которой необходимо присвоить необходимые значения полям. В поле (fldLocal) возникает означенная ошибка. Танцы с бубном были. Код localid присвайвает, а собственно значение нет. Последняя надежда на помощь зала.

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
Dim intAutid As Integer
Dim intGroupid As Integer
intAutid = 66
intGroupid = 37

Dim strNum As String
strNum = "SELECT tblAutopsy.num FROM tblAutopsy WHERE tblAutopsy.autopsyid=" & intAutid
Me.fldNum.Value = CurrentProject.Connection.Execute(strNum).Fields(0)

Dim strVid As String
strVid = "SELECT tblVid.vid FROM tblVid RIGHT JOIN tblAutopsy ON " & _
            "tblVid.id = tblAutopsy.vidida WHERE tblAutopsy.autopsyid=" & intAutid
Me.fldVid.Value = CurrentProject.Connection.Execute(strVid).Fields(0)

'Dim strLocal As String
'strLocal = "SELECT tblGroups.localid FROM tblGroups WHERE tblGroups.groupsid=" & intGroupid
'Me.fldLocal.Value = CurrentProject.Connection.Execute(strLocal).Fields(0)

Dim strLocal As String
strLocal = "SELECT tblLocal.local FROM tblLocal RIGHT JOIN tblGroups ON " & _
                "tblLocal.localid = tblGroups.localid WHERE tblGroups.groupsid=" & intGroupid
Me.fldLocal.Value = CurrentProject.Connection.Execute(strLocal).Fields(0)

Dim strGroup As String
strGroup = "SELECT tblGruppa.gruppa FROM tblGruppa RIGHT JOIN tblGroups ON " & _
                "tblGruppa.gruppaid = tblGroups.gruppaid WHERE tblGroups.groupsid=" & intGroupid
Me.fldGroup.Value = CurrentProject.Connection.Execute(strGroup).Fields(0)

End Sub

http://www.sql.ru/forum/1117254/method-execute-of-object-connection-failed-v-fak-e-byl

Предполжим существует проект (какой-то там) по данному проекту приходят разные письма в Outlook их может быть много. На данный момент я просто эти сообщения сохраняю в соответствующей папке на компьютере и делаю на неё гиперссылку. Когда мне надо открыть сообщения я просто жму гиперссылку и открываю письмо. Но это неудобно.
Есть ли возможность выбора письма прямо в Outlookе с возможностью последующего открытия. Я даже примерно не знаю как это сделать, может через связанную таблицу, а в качестве полей для привязки использовать дату и время. Но как потом открыть-то это сообщение в Outlook?
Кто-нибудь занимался такой задачей.

http://www.sql.ru/forum/1117202/ssylka-na-soobshheniya-iz-outlook-v-access

Кое-что сегодня побудило меня заняться исследованием на тему:
Роль БОРЩА на нашем сайте в целом и на нашем форуме в частности, или Знай свое место.

Итак,
всего топиков с упоминанием этого термина - 3647,
отбросим ПТ, архив ПТ, НЗР, ОНС, работа, вакансии - остаются 194 топика.
То есть,
на 53 профессиональных форума - 194 топика.
Из них на Microsoft Access - 44 топиков, > 23%.

При этом на Microsoft Access этот термин везде, за редчайшим исключением, применяется как мерило уровня ТС женского рода и определение его аксессонепригодности.
В остальных же 150 топиках с 52 форумов подобное я встретила только один раз, в куда более легкой форме, но исходило это опять же от участника Microsoft Access.

Что бы это значило?
Понятия не имею...

Модератор: Топик закрывается. Продолжение, если угодно, на лестнице

http://www.sql.ru/forum/1117154/vse-eto-bylo-by-smeshno

Всем привет!
Помогите с запросом на update. Он должен обновить записи в поле AMT в tbl1 из tbl2 , где tb1.dt=tbl2.dt и tb1.fil = tbl2.fil

http://www.sql.ru/forum/1117134/update-s-dvumya-usloviyami

Группирую данные по дате, но в результате появляется строка с пустыми и нулевыми значениями.

SELECT Mid((Format([DateProform],'mm mmmm yyyy')),4) AS DateDoc1, Sum(UnionSum1(AvtorCalc,LMProform)) AS SumID, Sum(UnionSum2(AvtorCalc,LMProform)) AS SumID1
FROM qdfAccount
GROUP BY (Format([DateProform],'mm mmmm yyyy'));

Наверное есть пустые значения которые считаются как нулевые и выводятся в эту строку? Как от этой строки избавиться?

http://www.sql.ru/forum/1117131/gruppirovka-vyvodit-stroku-s-pustymi-i-nulevymi-znacheniyami

Уважаемые коллеги. Здравствуйте.
DoCmd.RunSQL заполняет лишь три поля новой записи в таблице.

strSql = "INSERT INTO СсылкиNeAgentOrg ( ссылка, Заявление, Расположение, Рубрика ) SELECT '" & Ref & "' AS Выр1, '" & head & "' AS Выр2, '" & sReg & "' AS Выр3, '" & Rubric & "' AS Выр4;"

Три поля (любых) заполняет, а четыре - нет.
Все поля текстовые, допускают пустые строки, значений Null нет, размеры полей достаточны. Что это?

Заранее благодарен.

http://www.sql.ru/forum/1117028/sql-vyrazhenie-zapolnyaet-lish-tri-polya-tablicy-a-chetyre-net

реализована фильтрация так, что по мере набора символов отображаются записи содержащие введенные символы (по своим полям), но возникают ошибки, которые я прибил "переходом далее". Но это неправильно ) подправьте процедуру, где есть ошибки

Private Sub wфильтр_номер_дела_Change()
Dim S0

On Error Resume Next
S0 = "" & Me.wфильтр_номер_дела
Call fpoisk
Me.wфильтр_номер_дела.SelStart = Len(S0) + 1
End Sub

Sub fpoisk()
Dim s1, s2

    Me.Refresh
    s1 = "true "
    
s2 = "" & Me.wфильтр_наименование
If Len(s2) > 0 Then
s1 = s1 & " and   (полное_наименование & краткое_наименование) like '*" & s2 & "*'"
End If

s2 = "" & Me.wфильтр_номер_дела
If Len(s2) > 0 Then
s1 = s1 & " and  номер_дела like '*" & s2 & "*'"
End If

s2 = "" & Me.wфильтр_договор
If Len(s2) > 0 Then
s1 = s1 & " and  номер_договора like '*" & s2 & "*'"
End If

Debug.Print s1
    Filter = s1
    FilterOn = True
    
    If IsNull(Forms![ДанныеПоискФильтрация]![wфильтр_договор] & Forms![ДанныеПоискФильтрация]![wфильтр_номер_дела] _
    & Forms![ДанныеПоискФильтрация]![wфильтр_наименование] & Forms![ДанныеПоискФильтрация]![wФильтрДатыЗаседания]) Then
        MsgBox "Введите данные для фильтрации"
        Me.ОбластьДанных.Visible = False
        Else
        Me.ОбластьДанных.Visible = True
    End If

End Sub

http://www.sql.ru/forum/1117020/filtraciya-zapisey-bazy

Добрый день
помогите плз, столкнулся с очередной проблемой при осуществлении экспорта на лист екселя с акса по следующему коду:

+

Set Exap = CreateObject("Excel.Application") Set ExApWo = Exap.workbooks.Open("Файл экспорта") Set mysheet = ExApWo.Sheets("Лист1") With mysheet FiR = .UsedRange.Row FiC = .UsedRange.Column LaR = .UsedRange.Row + .UsedRange.Rows.Count - 1 LaC = .UsedRange.Column + .UsedRange.Columns.Count - 1 .Range(Cells(FiR + 1, FiC), Cells(LaR, LaC)).delete Set rs = CurrentDb.OpenRecordset("result") .Range("A2").CopyFromRecordset rs

на выделенную строку ругается компилятор (мол метод Range потерпел провал ("failed"))
предполагаю что дело в том что на данный диапазон ссылаются формулы с других листов, посему и провал
вот только как обойти, исправить ошибку - я не знаю((( пробовал ставить ручные калькуляции(хотя логично что это до фени)...
ГУРУ помогите ламаку

http://www.sql.ru/forum/1116926/eksport-na-list-excel-na-kotoryy-ssylautsya-formuly

Вопрос теоретического характера, но важен для меня.
При запуске БД пользователь заполняет форму входа, значение из одного поля которой передается глобальной переменной.
Потом некоторые формы проверяют один или два контрола на соответствие этой глобальной переменной. Всё работает.
Вопрос - как отработает MS Access ситуацию, когда несколько пользователей одновременно попытаются зайти в БД?
Тот кто зашел позже перезапишет значение глобальной переменной того кто зашел раньше?
Справочно: у меня с БД будет работать 30-40 человек.

http://www.sql.ru/forum/1116805/globalnaya-peremennaya-i-polzovateli