Добрый день.
Собственно сабж, не могу понять, почему Access намертво виснет.

Есть форма с двумя комбобоксами. After_update первого комбобокса стоит асинхронный запрос для заполнения рекордсета второго. Но во время выполнения запроса access виснет, хотя запрос запускается асинхронно (проверял, например выводом msgbox, на следующем шаге). Как побороть?

Делал как вот тут, только не понял зачем флаг...

http://www.sql.ru/forum/168/voros-k-znatokam-vozmozhno-li-zapustit-asinhronno

Dim WithEvents rstComboBox As ADODB.Recordset
Dim boolFlag as Boolean

'Инициализация
Private Sub Form_Load()
   set rstComboBox = new ADODB.Recordset
   rstComboBox.CursorLocation = adUseClient
end sub


'Собственно after_update первого комбобокса
Private Sub cmb1_AfterUpdate()
   Call setRecordset()
End Sub

'Функция запуска запроса
Private Function setRecordset()
    Dim strFieldName As String, sqlRowSource As String        
    strFieldName = DLookup("[QueryText]", "[tFindAlgo]", "[QueryType] = '" & frm.cmbFind.Value & "'")
    
    sqlRowSource = _
    "SELECT " & _
        "DISTINCT " & strFieldName & _
    "FROM " & _
        "[tCustomerInfo]"
    
    rstComboBox.Open sqlRowSource, CurrentProject.Connection, adOpenStatic, adLockOptimistic, adAsyncExecute
    
End Function

'Событие, все готово
'Присвоение результатов в комбобокс2
Private Sub rstComboBox_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset)
 If boolFlag = False And rstComboBox.State = adStateOpen Then
    rstComboBox.ActiveConnection = Nothing
    Set Me.cmb2.Recordset = rstComboBox.Clone
    rstComboBox.Close
 End If
End Sub

Заранее спасибо.

http://www.sql.ru/forum/1145283/asinhronnyy-zapros

Ребят, такая задача у меня, есть таблица, в ней поле паспорт и там данные записаны в виде "Паспорт серия 1111 №111111 блабла"
Пытаюсь вырезать только серию и номер, с помощью

UPDATE таблица SET поле = Replace(Mid(поле, Instr(поле, 'Паспорт серия'),12), '№', '') 

Почему то получаю такой результат: Паспорт сери

http://www.sql.ru/forum/1145263/ot-formatirovat-stroku-pasporta-v-tablice

Здравствуйте. на работе поставили задачу создать базу с вопросами для тестирования.
Есть база (в базе более 500 вопросов). В каждой записи(строке) указан ВОПРОС с ОТВЕТАМИ также отдел и должность к которой относиться вопрос.
Нужно чтобы в форме можно было применить фильтр по отделам и должностям, а также чтобы из отфильтрованного выдавалось только N-ое количество вопросов.


как не пытался не могу совместить фильтр(по должностям и отделам) с выводом определенного количества записей в форме.
Получилось только : Форма с фильтром.

Помогите пожалуйста! Читаю форум вторую неделю не могу найти решение((((

https://cloud.mail.ru/public/60ac17483263/База.accdb - моя база для пробы

http://www.sql.ru/forum/1145210/pomogite-razobratsya

Добрый день!!!
Как в Access можно выполнить перевод текста в формат CCSID 1025?
Пример в Excel работает в Access нет :((

SELECT  CAST(NMFOU AS CHAR(30) CCSID 1025) AS NMFOU FROM FB1.FOUP 

Результат:

NMFOU
"МЕТРОПОЛ"ООО
OOO ЦЕНТР
ХЛЕБОКОМ

http://www.sql.ru/forum/1145194/tekst-v-formatccsid-1025-analog-cast-convert-v-access

Всем привет!
Столкнулся с небольшой проблемой.
Есть база access которая запускает большое количество процедур на сервере после нажатия на кнопку.
Хотел сделать примитивный progress bar что бы было понимание на каком степе сейчас идет обработка (что бы было понимание сколько еще примерно осталось времени, так как суммарное время отработки занимает до 2х часов, а количество вовлеченных процедур около 30 штук).
Сделал новую форму, которая открывается после запуска основной процедуры, на всю форму растянуто текстовой поле куда постятся логи по мере выполнения процедур.
На этом вроде как все ОК, проблемы нет, система работает.

Проблема начинает возникать в тот момент когда access благополучно зависает (not responding), и естественно, в этот момент форма перестает обновляться, и все изменения отображаются разом после того как весь процесс отработал.

Как я только не пытался это обойти, и вешал таймер в самом коде между запусками процедур:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private sub main
CurrentDb.Execute "proc_1"
Forms!Progressbar.Text0 = status_
Forms!Progressbar.Refresh
Sleep 5000
CurrentDb.Execute "proc_2"
End sub

И через me.TimerIterval

Private Sub Form_Timer()
Form_Progressbar.Refresh
End Sub

Ничего из этого мне не помогло.

Пытался даже начать отображать логи в cmd или powershell

process_id = SHELL("C:\windows\system32\powershell.exe", vbNormalFocus)

Но тут столкнулся с другой проблемой, как первоначально передать набор команд в cmd я понимаю и знаю, а вот как дальше работать с созданной cmd зная ее PID я не понимаю.

Надеюсь у вас есть идеи как с этим можно справиться.

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

http://www.sql.ru/forum/1145187/progress-bar

Здравствуйте уважаемые форумчане!
Акс.2010. Приведенный фрагмент кода дает ошибку: "Run-time error '-2147217904 (80040e10)' отсутствует значение для одного или нескольких параметров" выделяется строка (красная). Если проблема в синтаксисе, то помогите пожалуйста поправить. Заранее благодарен.

With rstDog
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "SELECT * FROM zdReestrForDog WHERE [Период]=" & CrMonth & " Or [Период]=" & CrQuarter & " Or [Период]=" & CrHalfYear & " Or [Период]=" & CrYear, connDog
End With

переменным Cr... присвоены числовые значения

http://www.sql.ru/forum/1145146/kakaya-to-neponyatnaya-oshibka-v-kode

Здравствуйте форумчане!
Проблема такая (Access 2013):

Запрос стал возвращать пустой рекордсет
Set rst1 = dbs.OpenRecordset("SELECT * FROM Statement WHERE ((Statement.[Statement_date])" & _
"BETWEEN #" & [Forms]![Form1]![date_from] & "# AND #" & [Forms]![Form1]![prior_to] & "# )")
Таблица Statement данными заполнена, поля формы date_from и prior_to тоже.
Что произошло не могу разобраться.

http://www.sql.ru/forum/1145063/sql-zapros-vozvrashhaet-pustoy-rekordset

Приветствую Всех любителей Access.

Есть ли возможность построить отчет средствами Access (без выгрузки и форматировании, например, в Excel) такого вида:

Имеем таблицу, надо вывести значение одного поля, например, в 5 колонок, в таком порядке

1 2 3 4 5
6 7 8 9 10
11 12 13 14 15

С уважением, Сергей.

http://www.sql.ru/forum/1144837/otchet-s-gorizontalnym-sledovaniem-znacheniy-odnogo-polya

Добрый день
можно ли настроить Access таким образом, чтобы при наведении курсора на объект, например на таблицу, в подсказке было не имя объекта, а, его свойства?
То есть например в свойствах таблицы записано "Проект закупки" и чтобы при наведении на неё курсора в списке таблиц в подсказке было "Проект закупки".

Спасибо

http://www.sql.ru/forum/1144770/uvidet-svoystva-obekta

Добрый день.

Для работы с данными я использую стронний грид от Exontrol, к сожалению в их помощи я не нашел как реализовать копирование данных из грида в буфер обмена, поэтому попытался сделать что-то свое.
Но все уперлось в то, что Access не перехватывает нажатие Ctrl-C!

Вот процедура "отлова" нажатий, Ctrl-A ловится отлично, а Ctrl-C не хочет.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim g As EXGRIDLib.Grid
  
  Set g = Grid0.Object
  If Shift = acCtrlMask Then
    Select Case KeyCode
      Case vbKeyA
        With g
          .BeginUpdate
          .Items.SelectAll
          .EndUpdate
        End With
        KeyCode = 0
      Case vbKeyC
        With g
          .BeginUpdate
          ClipBoardSetData .Export("", "sel")
          .EndUpdate
        End With
        KeyCode = 0
    End Select
  End If
End Sub

Может можно отловить эту комбинацию с помощью WinAPI, подскажите как?

http://www.sql.ru/forum/1144730/perehvat-nazhatiya-ctrl-c

Добрий день

можно ли как то сделат пересчёт в Access типа функции Excel ПРЕДСКАЗ (FORECAST) ?

http://www.sql.ru/forum/1144521/predskaz-forecast-kak-ego-osushhestvit-v-access

посоветуйте как отловить сообщение об ошибке,
повесил триггер на табл. для контроля дублей данных ... все ок, отрабатывает, но в акс возвращается сообщение "Неопознанная ошибка" ... как сообщение перехватить и написать более внятное ... чет никак не получается ...
заранее спасибо ...

http://www.sql.ru/forum/1144518/access-2007-neopoznannaya-oshibka

Добрый день!
Может данный вопрос уже где-то разбирался, но к сожалению, не смог найти.
Есть запрос на добавление данных, который в Access работает без ошибок. Я его решил перенести в VBA и там выдается ошибка: "Run-time error 3067 В качестве входных данных запрос должен иметь хотя бы одну таблицу или запрос".
Пробовал через RunSQL и через DAO.Recordset.

В чем может быть ошибка?
Заранее спасибо!

http://www.sql.ru/forum/1144483/ne-rabotaet-zapros-na-dobavlenie-iz-vba

На форме есть 2 поля и флажок.По нажатию флажка должен выполниться запрос который бы вывел все записи у которых в поле истина.
Код:
SELECT Запрос12.№, Запрос12.[Тип подписи], Запрос12.ФИО, Запрос12.[Дата], Запрос12.Выражение1, Запрос12.Соглашение, Запрос12.Актуальность, Запрос12.Организация
FROM Запрос1, Запрос12
WHERE ((Запрос1.№)=Запрос12.№) And ((Запрос1.Соглашение)=Истина) AND (Forms.ГлавФорм.Флажок19=Истина)
ORDER BY Запрос12.№;
Но вместо результата он выводит какие то поля и ничего потом не выводит,может я что то не так написал?

http://www.sql.ru/forum/1144469/sql-zaprs-c-flazhkom-v-access

Всем здравия желаю!
Акс 2010. В одиночной форме "fdTTN" есть поле со списком "Объект". Его источник запрос "zdDogPred". В построителе запросов данные сгруппированны, т.е:

Форма!fdTTN!Объект.Источник строк: SELECT zdDogPred.Объект, zdDogPred.Дог FROM zdDogPred GROUP BY zdDogPred.Объект, zdDogPred.Дог HAVING (((zdDogPred.Дог)=[Формы]![fdTTN]![Дог]));

но в списке поля "Объект" данные почему-то отображаются не сгруппировано, т.е. каждая запись по много раз. Для проверки сделал свободный запрос, точно как в источнике строк, нормально группирует, каждая запись отображается по одному разу.

Почему в списке данные не группируются? Как сделать чтобы группировались?

http://www.sql.ru/forum/1144378/pole-so-spiskom

Не получается прочитать через ADO из таблицы MSysRelationships - нет прав.
Пытался разными способами добавить права, но возникют различные ошибки.
К примеру, через ADOX:

  DB := CoCatalog.Create;
  DB.Set_ActiveConnection(FormatConnectionString(DBName) + ';Persist Security Info=False;');
  try
    DB.Users['Admin'].SetPermissions('MSysRelationships', adPermObjTable,
      adAccessSet, adRightRead, adInheritNone, EmptyParam);
  finally
    DB := nil;
  end;

Или через ADO: con.Execute('GRANT SELECT ON MSysRelationships TO Admin;') тоже возникает ошибка.

Для чего это надо? Для того, чтобы определить, какие индексы у таблиц являются системными (автоматически сгенерированными), чтобы их не трогать при переносе структуры базы. Через ADOX такие индексы не отличаются от обычных индексов, но в списке индексов у таблицы Access их не показывает.

Есть ли у кого какие идеи, как ещё можно получить доступ к MSysRelationships?

http://www.sql.ru/forum/1144371/prochitat-dannye-msysrelationships

Не работают.
Создана форма. На форме есть вкладки. Во вкладках размещены поля.
На 1 вкладке есть 2 поля доступ и фокус которых необходимо запретить.
Установка Доступ - нет решило задачу.
На 7 вкладке есть еще 2 поля доступ и фокус которых необходимо запретить.
Вот только Доступ - нет никак не меняет права обращения к полю.
При активации вкладки - в поле встает курсор независимо от значений свойств Доступ и блокировки.

http://www.sql.ru/forum/1144297/blokirovka-i-dostup

После того, как поиском в Excel найдены нужные адреса ячеек необходимо составить из них временную таблицу, которая станет источником данных для поля со списком. Можно такое сделать?
То есть в таблице в рамках одной записи будут указаны данные из 3 ячеек одной строки. Таких строк может быть несколько. Поле со списком помогает выбрать нужный набор значений и занести их в базу.
Подробнее:
В файле Excel указаны названия столбцов "название", "сумма", "срок", "номер", "дело". Надо найти строки в которых есть совпадения по столбцам "сумма" и "срок". А в поле со списком вывести в строках "номер строки", "название", "срок". При выборе нужной строки будет создаваться переменная с номером строки, которая в дальнейшем и будет использоваться.
С поиском понятно, можно даже сформировать переменную с перечнем значений или адресов, но как передать эти значения в форму? Поэтому предлагается как вариант таблица (временная), которая станет источником данных для поля со списком

http://www.sql.ru/forum/1144238/sozdanie-vremennoy-tablicy-i-zapolnenie-eyo-znacheniyami-iz-excel

Can a foreign key be NULL?
http://www.sql.ru/forum/1144209/can-a-foreign-key-be-null

http://www.sql.ru/forum/1144217/can-a-foreign-key-be-null

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

http://www.sql.ru/forum/1144207/problema-pri-poluchenii-vneshnih-dannyh