У меня есть странный вопрос, код, который работал внезапно начал генерировать вопрос (я не имею ни малейшего понятия, как обойти его)VBA код перестал работать как задумано
Я List Box (List2) на Form1, это населенное по:
SELECT [queryFormyTradycyjne].[Nr Maszyny], [queryFormyTradycyjne].[UID], [queryFormyTradycyjne].[Nazwa], [queryFormyTradycyjne].[UAP], [queryFormyTradycyjne].[Linia], [queryFormyTradycyjne].[GAP], [queryFormyTradycyjne].[Status] FROM queryFormyTradycyjne ORDER BY [Nr Maszyny];
код queryFormyTradycyjne:
SELECT Lista.[Nr Maszyny], Lista.[Nazwa], Lista.[UAP], Lista.[Linia], Lista.[GAP], Lista.[Status], Lista.[UID]
FROM Lista
WHERE Lista.isValid=False And Lista.UID Like 'FF*';
и если я дважды щелкните на элементе из List2 он supose поставить значение в другой форме (AwariaZgloszenieNew), в текстовое поле на med txtNrMaszyny.
ЭТО работает просто отлично, так как 2 часа назад. Я на самом деле не касался вещи в коде или ни в одной из этих форм. Я проверил это на нескольких ПК с установленной версией Access. Тот же результат: Ошибка Метод 'Item' объекта 'формы' не удалось (-2146500594 (800f000e))
Мой VBA код двоеборье клик:
Public strSelectedItem As String
Private Sub List2_DblClick(Cancel As Integer)
Dim varItem As Variant
With Me.List2
For Each varItem In .ItemsSelected
strSelectedItem = .ItemData(varItem)
Next
End With
DoCmd.OpenForm "AwariaZgloszenieNew"
[Forms]![AwariaZgloszenieNew].[txtNrMaszyny] = strSelectedItem
End Sub
Любой человек с какой-либо идеи?
Вы пытались компактно и ремонтировать БД? – MatthewD
Я не совсем уверен, как это сделать. Изменить: если вы говорите об этой кнопке «Компактность и ремонт» - после нажатия на нее ничего не изменилось ... – Eska
На вкладке «Инструменты базы данных» в меню ленты есть кнопка «Компактная и восстановительная база данных». Сначала создайте резервную копию своей базы данных. – MatthewD