Excel access beraber

[Barons]

merhaba

ekteki dosyada excelden (excel 2007) userform aracılığı ile access (access 2007)'e veri atmaya çalışıyorum ama hata veriyor.

yardımcı olacak arkadaşlara çok teşekkür ederim.

 

[Zeki Gürsoy]

Merhaba,

Excel olan dosyayı 2003 versiyon olarak ekleyebilirseniz inceleme fırsatımız olur.

 

[Barons]

merhaba
2003 versiyonunda sorun yok çalışıyor zaten ancak ben 2007'ye geçtim.Bu sebeple 2003 işime yaramıyor .

İlginiz için çok teşekkürler

 

[Barons]

merhaba
2003 versiyonunu yolluyoırum.Çalışıyor dedim ama sorun vermeye başladı,Bu versiyondada çalışmıyor,bakarsanız memnun olurum.Çok teşekkürler

 

[Barons]

bu tarz çalışma yapan pek kimse yok sanırım.

 

[Barons]

Ustadlar yardım

 

[Zeki Gürsoy]

DB yapısını incelemedim; ilk göze çarpan hatalar giderildi sanırım.
Renkli ve koyu kısımlar ilave/değişen kısımlardır.

[B][COLOR=Blue]Private adoCN As Object[/COLOR][/B]

Private Sub CommandButton1_Click()
'On Error Resume Next
Application.ScreenUpdating = False
'Accesse atar.......................................................................
Set RS = CreateObject("ADODB.recordset")
  strSQL = "SELECT * FROM Tablo1 Where No='" & TextBox1 & "'"
  RS.Open strSQL, adoCN, 3, 3

  If RS.RecordCount = 0 Then
    RS.AddNew
    RS("Adı") = TextBox1
    RS("soyadı") = TextBox2
    RS("telefon") = TextBox3
    RS.Update

  Else
    MsgBox TextBox1 & " adlı kişiyi daha önce girmiştiniz.", , "deneme"
  End If
  RS.Close
  'RefreshDB
  Set kayit = Nothing
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next

  Set adoCN = CreateObject("ADODB.Connection")
  
    [COLOR=Blue][B]DatabasePath = _
        "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
            ThisWorkbook.Path & "\vt1.accdb"[/B][/COLOR]
            
    [COLOR=Blue][B]If Dir(ThisWorkbook.Path & "\vt1.accdb") = "" Then[/B][/COLOR]
        MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "sevk"
        Unload Me
        Exit Sub
    End If
    
    [COLOR=Blue][B]adoCN.ConnectionString = DatabasePath[/B][/COLOR]
    adoCN.Open
End Sub

[COLOR=Blue][B]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
adoCN.Close
Set adoCN = Nothing
End Sub[/B][/COLOR]

 

[Barons]

hocam çok sağolun...sistem çalışıyor...
Elinize sağlık