Интерфейс не зарегестрирован (Страница 1 из 2)

Зарегистрировали, настроили, перезагрузились - не помогло

Создается файл ReportDB_11102011 74428.mdb с пустыми таблицами

Скрин с ошибкой прилагается

Нет никаких

Параметры безопасности Access настроены?

переходим в редактор VBA (Alt+F11).

Создаем новый модуль,  в нем процедурку тестовую

Sub t1()
  adodbName = Application.References.Item("ADODB").Name
  MsgBox adodbName
End Sub

Встаем на этот код и выполняем его (F5). Результаты?

создаем еще процедурку и выполняем ее

Sub t2()
  Set M = Application.VBE.ActiveVBProject.VBComponents.Add(1)
  M.Name = "MyTestModule1"
  
  LineCnt = M.CodeModule.CountOfLines
  
  Call M.CodeModule.InsertLines(LineCnt, "Sub g1")
  Call M.CodeModule.InsertLines(LineCnt + 1, "MsgBox Application.CurrentDb.Name")
  Call M.CodeModule.InsertLines(LineCnt + 2, "End Sub")
  
End Sub

должен появиться  новый модуль и именем MyTestModule1 и в нем процедурка g1.

Результаты?

Очищаем временную папку, запускаем отчет, когда появилась ошибка убиваем процесс TechnologiCS и получившийся mdb файл сюда-же прикрепите.

Сразу скажу - ошибка подобная встречалась, но ни разу так просто обойти ее не удалось, заканчивалось обычно переустановкой системы (винды). Так что результат не гарантируем,  но попробовать можем, постараюсь оперативно отвечать.

Постараемся без него, главное чтобы терпения хватило.

В личке инструкция как создать лог файл. Жду результатов.

Открываем БД (любуе из приложенных).
Создаем вот такой код

Dim RS1  As ADODB.Recordset

Function Open1()
 Set RS1 = New ADODB.Recordset
 RS1.Open "RptSheet", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
End Function

Function Close1()

RS1.Close
End Function


Function Add1(A As Variant)
Dim I, J As Long
For I = 1 To UBound(A, 1) Step 1
    RS1.AddNew
    For J = 0 To UBound(A, 2) - 1
       RS1.Fields(J) = A(I, J + 1)
    Next J
    RS1.Update
Next I
End Function


Sub t3()
 Call Open1
 Dim A(5, 5)
 Dim I, J As Long
 For I = 1 To UBound(A, 1) Step 1
    For J = 0 To UBound(A, 2) - 1
      A(I, J) = I * J
    Next J
 Next I
 
 Call Add1(A)
 Call Close1
 
End Sub

Встаем на процедуру t3 и выполняем ее.

В таблице RptSheet должны появиться записи.

Открываем БД (любую из приложенных).

Создаем код что указан выше (можно туже базу взять). Сохраняем ее ( с именем C:\1.mdb)

Создаем да диске файл 1.vbs например в блокноте и в нем такой код

  Set App = CreateObject( "Access.Application" )  
  Call App.OpenCurrentDatabase( "C:\1.mdb", False )
  
  MsgBox "1"
  App.Run( "t3" )
  MsgBox "2"

запускаем на выполнение.  В таблице RptSheet должно появиться еще 5 записей

Кстати, а почему xls файл не появляется вообще?