2017-10-27 7 views
0

Access 보류중인 작업을 다시 검색하고 상태와 함께 나열하기 위해 Access DB와 연결된 Excel Userform을 만들었습니다. 이 엑셀 파일은 문제없이 6 명의 분석가가 실행하지만 런타임 오류 429를 수신했습니다. activeX 구성 요소가 객체를 만들 수 없습니다.ADODB.Connection 개체를 만들 때 오류 429가 발생했습니다.

오류가 발생한 사용자는 x86 윈도우 만 사용하고 있습니다. 나는 또한 액세스 데이터베이스 엔진 여전히 코드에 따라

오는 오류를 설치하려고

나는 MS ActiveX 데이터의 모든 버전을 시도했습니다

는 unsuccessfull XL에 참조에 XX의 개체 라이브러리 :

Public Const conStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\SAO229DT91264\Planej_dev\Planilhao.accdb;Persist Security Info=False;" 
Public CN As ADODB.Connection 
Public RS As ADODB.Recordset 
_______________________________________________________________ 
Function importDB(ByVal filter As String) 
    Dim line As Long 
    Dim col As Long 
    Dim tim As Date 
    Dim user As String 
    Dim query As String 

    query = "Select Code, indice, flNO, dtStart, dtEnd, Pattern, orig, std, sta, dest, mkt, resp, order, motiv, status, action, obs, dtMsg, numMsg, dtVigencia, daysOps, dtAdd, dtChg from Alterations" 

    tim = Now() 
    user = CStr(Application.UserName) 

    Set CN = New ADODB.Connection 'The code stops here With the runtime error 
    Set RS = New ADODB.Recordset 

    WS.Unprotect 

    line = WS.Cells(Rows.Count, 1).End(xlUp).Row 
    If linha > 2 Then WS.Range(WS.Cells(3, 1), WS.Cells(linha, 23)).ClearContents 

    CN.Open conStr 
    RS.Open query & " " & filter & " order by code asc;", CN 

    line = 2 

    Do While Not RS.EOF 
     line = line + 1 
     For col = 1 To RS.Fields.Count 
      If col = 4 Or col = 5 Then 
       WS.Cells(line, col).NumberFormat = "@" 
       WS.Cells(line, col) = CStr(Format(RS.Fields(col - 1).Value, "dd/MMM/YYYY")) 
      Else 
       WS.Cells(line, col) = RS.Fields(col - 1).Value 
      End If 
     Next col 
     RS.MoveNext 
    Loop 

    CN.Close 
    WS.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ 
    , AllowSorting:=True, AllowFiltering:=True 
    End Function 
+0

무엇을 의미합니까 "오류가 발생한 사용자는 x86 창만 사용합니다" 32 비트를 의미합니까, 아니면 다른 사람들이 Wine이나 MAC을 사용합니까? –

+0

다른 모든 사용자는 64 비트 창을 사용하고 있습니다. –

답변

0

도구의 adodb에 대한 참조를 제거하고 실패한 컴퓨터의 참조를 저장하고 닫습니다. 다시 참조를 다시 열고 다시 컴파일 한 다음 다시 컴파일하십시오.

관련 문제