arkadaslar setup ini yapip dagittigim bir program baska bir bilgisayarda Run-Time error '91' Object variable or With block variable not set diye hata veriyor calisma esnasinin bir bölümünde. olustugu hata noktasi basic modülündeki kodlar asagidaki gibi. ( Birde bu hata sadece bir bilgisayarda oluyor diger bilgisayarlarda sorun yok. hata olusan Bilgisayar Laptop Vista 64 Bit yüklü. Programi Setup Factory 8 ile paketledim ve vista ile uyumlu. Program ilk kuruldugunda hatasiz calisiyor ve bilgisayari yeniden baslatildiginda ve program calistirildiginda bir bölümde Run-Time error '91' hatasi veriyor ve tekrar setup dosyasindan kurulum yapilsada degisen birsey olmuyor hata hep ayni. takii Pc formatlanincaya kadar. Formattan sonra yine ayni durum olusuyor. ) Hatanin verdigi modül icindeki kodlar. Function WorkbookReadRange As Variant Dim conWkb As ADODB. Connection Dim rsWkbCells As ADODB. Recordset Dim sConString As String Dim lThisField As Long, avResults As Variant, avHeadings As Variant On Error GoTo ErrFailed Set conWkb = New ADODB. Connection Set rsWkbCells = New ADODB. Recordset sConString = "DRIVER= ;ReadOnly=1;DBQ=" & sSourceFile conWkb. Open sConString If Len Then 'Get data from specified sheet Set rsWkbCells = conWkb. Execute("Select from " & Chr(34) & sSheetName & "$" & sRange & Chr$(34)) Else Set rsWkbCells = conWkb. Execute End If If rsWkbCells. EOF Then ReDim avHeadings(0 To 0, 0 To rsWkbCells. Fields. Count - 1) For lThisField = 0 To rsWkbCells. Fields. Count - 1 avHeadings(0, lThisField) = rsWkbCells. Fields . Name Next WorkbookReadRange = avHeadings Else If bReturnHeadings Then avResults = rsWkbCells. GetRows ReDim avHeadings(0 To rsWkbCells. Fields. Count - 1, 0 To 0) For lThisField = 0 To rsWkbCells. Fields. Count - 1 avHeadings(lThisField, 0) = rsWkbCells. Fields . Name Next WorkbookReadRange = Array Else WorkbookReadRange = rsWkbCells. GetRows End If End If rsWkbCells. Close conWkb. Close Set rsWkbCells = Nothing Set conWkb = Nothing On Error GoTo 0 Exit Function ErrFailed: WorkbookReadRange = Err. Description If conWkb. state <> adStateClosed Then conWkb. Close End If Set rsWkbCells = Nothing Set conWkb = Nothing End Function Setup i olusturmadan önce Basic programi üzerinde Referanslardan bu Function icin gerekli Microsoft ActiveX Data Objects 2.5 Library secilmis durumda ve karsi bilgisayara Register de yapiliyor. Arastirdim heryolu denedim ama bir cözüm bulamadim. Yardimlarinizi bekliyorum.

ofice kurulu mu calistirdigin pc de? uac kaldirip birde kurmayi denesene...