Ошибка 3709 access

Какую именно запись в таблице «Лекарства» вы меняете?

Тут столько проблем, я даже не знаю с чего начать.

Добавлено через 19 минут
Начну, пожалуй, со способа, которым вы заполняете Combobox.
По моему опыту, наиболее оптимальным является создание 2-х полей в Combobox (свойство ColumnCount), одно из которых делается нулевой длины (свойство ColumnWidth, которое должно при этом выглядеть примерно вот так: «0;100», т.е. первый столбец длины 0 точек, второй — длины 100 точек). Обратите при этом внимание на свойство BoundColumn, которое определяет порядковый номер столбца начиная с 1, из которого берется значение для всего Combobox. Если вы будете передавать значение в Combobox, или извлекать его, программа по умолчанию будет «смотреть» именно на этот столбец.

При этом заполнить Combobox, имеющий 2 значения, из Recordset можно следующим образом:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

Sub test()
    Dim oRS As Recordset        'Результат запроса
    Dim sSQL As String          'Текст запроса
    Dim i As Long               'Счетчик
    
    'Получаем данные из базы
    sSQL = "SELECT [Код],[Название группы] FROM Группа"
    Set oRS = Db.OpenRecordset(sSQL, dbOpenForwardOnly)
    
    'Читаем данные и записываем их в Combobox
    With UserForm2.ComboBox1
        Do Until oRS.EOF 'Обходим Recordset с первой до последней записи
            .AddItem                        'Добавляем запись в Combobox
            .Column(0, i) = oRS("Код")      'NB: в VBA нумерация колонок начиначся с 0, а не 1
            .Column(1, i) = oRS("Группа")
            i = i + 1
            oRS.MoveNext
        Loop
    End With
    
    'Закрываем запрос
    oRS.Close
    Set oRS = Nothing
End Sub

Добавлено через 18 минут
Далее, по вашему способу изменять базу данных. На мой взгляд, использование метода Edit сопряжено с такой массой проблем и ограничений, что является банально нецелесообразным. Намного разумнее использовать для изменения SQL-запросы UPDATE и INSERT.

Например, вам надо поменять некую запись в таблице «Лекарства», добавив в поле «Фармокологическая группа» значение из Combobox, соответствующее Коду записи в таблице Группа. Предположим, вы каким-то образом уже получили Код этой записи. Он у меня в коде будет представлен переменной «PharmID».
Так как мы уже выгрузили в скрытую колонку Combobox Коды соответствующих записей, нам не нужен отдельный запрос, для получения Кода нужной нам записи из БД, достаточно просто получить значение колонки 0:

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

Sub Update_Pharm()
    Dim sSQL As String
    Dim lGroupID As Long
    Dim lPharmID As Long
    
    'Ïîëó÷àåì Êîä òàáëèöû Ëåêàðñòâà (íåîáõîäèìî ñàìîìó ñîçäàòü ìåõàíèçì ïîëó÷åíèÿ
    lPharmID = 0
    'Ïîëó÷àåì Êîä òàáëèöû Ãðóïïà
    lGroupID = UserForm2.ComboBox1.Column(0)
    'Ôîðìèðóåì çàïðîñ íà îáíîâëåíèå òàáëèöû Ëåêàðñòâà
    'NB: íèêîãäà íå çàáûâàéòå â çàïðîñå UPDATE ÷àñòü WHERE,
    'âûáèðàþùóþ ðåäàêòèðóåìóþ çàïèñü. Èíà÷å áóäóò îáíîâëåíû âñå çàïèñè â òàáëèöå
    sSQL = "UPDATE Ëåêàðñòâà SET [Ôàðìîêîëîãè÷åñêàÿ ãðóïïà]=" & lGroupID & " WHERE Êîä=" & lPharmID
    'Выполяем запрос
    db.Execute sSQL
End Sub

I’ve been logging user errors and noticed that 3709 has cropped up a couple of times on a particular form. What’s odd is that the bulk of the procs for the form simply close the form or change display-related properties of controls on the form. We’re running
a SQLServer backend and I haven’t detected any issues yet.

The error is being trapped by the Form_AfterUpdate Event

Private Sub Form_AfterUpdate()

On Error GoTo Err_Form_AfterUpdate

Err_Form_AfterUpdate:
    MsgBox getDefaultErrorMessage(Me.Name, «Form_AfterUpdate», Err.Number, Err.Description), vbCritical
    Resume Exit_Form_AfterUpdate

End Sub

Private Sub cmdAddTrailer_Click()

Err_cmdAddTrailer_Click:
    MsgBox getDefaultErrorMessage(Me.Name, «cmdAddTrailer_Click», Err.Number, Err.Description), vbCritical
    Resume Exit_cmdAddTrailer_Click

End Sub

Private Sub lockFields()

David H

Solution 1

First (and unrelated to your error), unless you need to support clients using Windows 2000 or earlier, you should reference the highest Microsoft ActiveX Data Objects version instead of 2.0. If you’re only using ADODB to interact with the database, you don’t need the Microsoft Access 16.0 Object Library at all.

Second, if you already have a reference, don’t create late bound objects like this:

Set cn = CreateObject("ADODB.connection")

Adding the reference early binds the type, so explicitly declare them and instantiate them using New:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

Your connection string should be fine — where you run into problems are these 2 lines:

    Set rs1 = CreateObject("ADODB.recordset")

    rs1.activeconnection = cn

Executing an ADODB.Command will return the Recordset, not the other way around. Remove those 2 lines entirely. Instead of attaching the connection to the Recordset, you need to use it when you’re building your ADODB.Command:

    Dim strSQL As New ADODB.Command
    strSQL.ActiveConnection = cn      '<---Insert this.
    strSQL.CommandText = "SELECT * FROM Table1"
    strSQL.CommandType = adCmdText

Also, get rid of the Hungarian notation there — it’s confusing as hell. An ADODB command isn’t a String, so why should it be named strFoo?

You also need to clean up after yourself — don’t leave your recordset and connection just hanging open when you’re done with them. Call .Close when you’re finished.

Finally, your SQL statement is most likely incorrect — you probably need to enclose your TID in single quotes('):

"SELECT * FROM Tooling WHERE TID='BD0001'"

It should look closer to this:

Sub Importfromaccess()
    Dim Path As String
    Path = "C:UsersmyUserDesktopDatabase1.accdb"

    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Path & ";"

    Dim query As New ADODB.Command
    query.ActiveConnection = cn
    query.CommandText = "SELECT * FROM Tooling WHERE TID='BD0001'"
    query.CommandType = adCmdText

    Dim rs1 As ADODB.Recordset
    Set rs1 = query.Execute ' This is the line the error occurs on

    Sheets("Calc").Range("K1").CopyFromRecordset rs1

    'CLEAN UP AFTER YOURSELF:
    rs1.Close
    cn.Close 
End Sub

Solution 2

You already Set rs1

How about trying something more like:

Sub Importfromaccess()
  Dim strSQL As String, strPath as String
  Dim cn as Object, rs1 as Object

  strPath = "C:UsersmyUserDesktopDatabase1.accdb"
  Set cn = CreateObject("ADODB.connection")

  cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Path & ";"

  Set rs1 = CreateObject("ADODB.Recordset")

  strSQL = "SELECT * FROM Tooling WHERE TID='BD0001'"
  rs1.Open strSQL, cn

  Sheets("Calc").Range("K1").CopyFromRecordset rs1
End Sub

Related videos on Youtube

	Номер ошибки:	Ошибка 3709
Название ошибки:	Microsoft Access Error 3709
Описание ошибки:	The search key was not found in any record.
Разработчик:	Microsoft Corporation
Программное обеспечение:	Microsoft Access
Относится к:	Windows XP, Vista, 7, 8, 10, 11

Оценка «Microsoft Access Error 3709»

«Microsoft Access Error 3709» обычно называется формой «ошибки времени выполнения». Программисты работают через различные уровни отладки, пытаясь убедиться, что Microsoft Access как можно ближе к безошибочным. Поскольку разработчики программного обеспечения пытаются предотвратить это, некоторые незначительные ошибки, такие как ошибка 3709, возможно, не были найдены на этом этапе.

После первоначального выпуска пользователи Microsoft Access могут столкнуться с сообщением «The search key was not found in any record.» во время запуска программы. Когда это происходит, конечные пользователи программного обеспечения могут сообщить Microsoft Corporation о существовании ошибки 3709 ошибок. Затем Microsoft Corporation исправляет эти дефектные записи кода и сделает обновление доступным для загрузки. Чтобы исправить такие ошибки 3709 ошибки, устанавливаемое обновление программного обеспечения будет выпущено от поставщика программного обеспечения.

В первый раз, когда вы можете столкнуться с ошибкой среды выполнения Microsoft Access обычно с «Microsoft Access Error 3709» при запуске программы. Следующие три наиболее значимые причины ошибок выполнения ошибки 3709 включают в себя:

Ошибка 3709 Crash — Номер ошибки вызовет блокировка системы компьютера, препятствуя использованию программы. Если Microsoft Access не может обработать данный ввод, или он не может получить требуемый вывод, это обычно происходит.

Утечка памяти «Microsoft Access Error 3709» — ошибка 3709 приводит к постоянной утечке памяти Microsoft Access. Потребление памяти напрямую пропорционально загрузке ЦП. Возможные провокации включают отсутствие девыделения памяти и ссылку на плохой код, такой как бесконечные циклы.

Ошибка 3709 Logic Error — логическая ошибка Microsoft Access возникает, когда она производит неправильный вывод, несмотря на то, что пользователь предоставляет правильный ввод. Это видно, когда исходный код Microsoft Corporation включает дефект в анализе входных данных.

В большинстве случаев проблемы с файлами Microsoft Access Error 3709 связаны с отсутствием или повреждением файла связанного Microsoft Access вредоносным ПО или вирусом. Как правило, решить проблему можно заменой файла Microsoft Corporation. Если ошибка Microsoft Access Error 3709 возникла в результате его удаления по причине заражения вредоносным ПО, мы рекомендуем запустить сканирование реестра, чтобы очистить все недействительные ссылки на пути к файлам, созданные вредоносной программой.

Распространенные проблемы Microsoft Access Error 3709

Частичный список ошибок Microsoft Access Error 3709 Microsoft Access:

• «Ошибка в приложении: Microsoft Access Error 3709»
• «Microsoft Access Error 3709 не является приложением Win32.»
• «Microsoft Access Error 3709 столкнулся с проблемой и закроется. «
• «Microsoft Access Error 3709 не может быть найден. «
• «Microsoft Access Error 3709 не может быть найден. «
• «Ошибка запуска программы: Microsoft Access Error 3709.»
• «Файл Microsoft Access Error 3709 не запущен.»
• «Microsoft Access Error 3709 выйти. «
• «Ошибка пути программного обеспечения: Microsoft Access Error 3709. «

Эти сообщения об ошибках Microsoft Corporation могут появляться во время установки программы, в то время как программа, связанная с Microsoft Access Error 3709 (например, Microsoft Access) работает, во время запуска или завершения работы Windows, или даже во время установки операционной системы Windows. Запись ошибок Microsoft Access Error 3709 внутри Microsoft Access имеет решающее значение для обнаружения неисправностей электронной Windows и ретрансляции обратно в Microsoft Corporation для параметров ремонта.

Создатели Microsoft Access Error 3709 Трудности

Проблемы Microsoft Access и Microsoft Access Error 3709 возникают из отсутствующих или поврежденных файлов, недействительных записей реестра Windows и вредоносных инфекций.

В частности, проблемы Microsoft Access Error 3709 возникают через:

• Недопустимая или поврежденная запись Microsoft Access Error 3709.
• Зазаражение вредоносными программами повредил файл Microsoft Access Error 3709.
• Другая программа злонамеренно или по ошибке удалила файлы, связанные с Microsoft Access Error 3709.
• Microsoft Access Error 3709 конфликтует с другой программой (общим файлом).
• Microsoft Access/Microsoft Access Error 3709 поврежден от неполной загрузки или установки.

Продукт Solvusoft

Загрузка
WinThruster 2022 — Проверьте свой компьютер на наличие ошибок.

Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11

Установить необязательные продукты — WinThruster (Solvusoft) | Лицензия | Политика защиты личных сведений | Условия | Удаление