[Enes Recep BAĞ]

Kodlarınızı aşağıdaki gibi günceler misiniz?

Kod: Tümünü seç

Private BAGLAN As Object, rs As Object

Sub BAGLANTI()
On Error Resume Next
Set BAGLAN = CreateObject("adodb.connection")
#If VBA7 And Win64 Then
BAGLAN.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\EVN.mdb;"
#Else
BAGLAN.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\EVN.mdb;"
#End If
'BAGLAN.Open "provider=microsoft.jet.oledb.4.0;data source=" & "\\Serveradı\Klasöradı\EVN.mdb"
End Sub

[mesutalkan]

Enes bey bu sekilde düzenledim sorun sanırım ikinci pc deki excel versiyonu 2013 olduğundan
1. pc ise 2010

Kod: Tümünü seç

Private BAGLAN As Object, rs As Object
Sub BAGLANTI()
On Error Resume Next
Set BAGLAN = CreateObject("adodb.connection")
#If VBA7 And Win64 Then
BAGLAN.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\EVN.mdb;"
#Else
BAGLAN.Open "provider=microsoft.jet.oledb.4.0;data source=" & "\\Dekopakserver\ortak\5-Bakım\Ağ_İçi_Mesajlaşma_Programı\EVN.mdb"
#End If
'BAGLAN.Open "provider=microsoft.jet.oledb.4.0;data source=" & "\\Serveradı\Klasöradı\EVN.mdb"
End Sub

[Enes Recep BAĞ]

Sorununuz 2010-2013 olması değil. 32-64 bit olması.

[mesutalkan]

Merhaba enes bey ikiside 64 bit işletim sistemine sahip

[Enes Recep BAĞ]

Merhaba enes bey ikiside 64 bit işletim sistemine sahip

Office mi, windows mu?

[mesutalkan]

windows 64 bit ofis versiyonlarını bilmiyorum ama 64 bit işletim sistemine 32 bit ofis yyüklenebilirmi ki desteklememesi gerekmezmi

[Enes Recep BAĞ]

Ofis sürümü önemli.
Evet yüklenebilir.