Access SQL
[VBA] Dış Veri Tabanından Veri çekerken Hata Alıyorum - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: [VBA] Dış Veri Tabanından Veri çekerken Hata Alıyorum (/Konu-Dis-Veri-Tabanindan-Veri-cekerken-Hata-Aliyorum)

Sayfalar: 1 2

Dış veri tabanından veri çekerken hata alıyorum - neco_can - 17-03-2020

Merhaba,  
ben verileri excel ile accesse  bağlantı yaparak aktarıyorum. aktarım yaparken aşağıdaki kodu kullanıyorum. 
Visual Basic
  1. Dim mesaj
  2.     mesaj = MsgBox("Bu yapacağınız İşlem Geri Alınamaz!!! Tablolar Üzerinde Değişiklik Yapacaktır!!! Çıkmak İçin Hayırı Tıklayınız?", vbCritical + vbYesNoCancel)
  3.  
  4.   If mesaj = vbYes Then
  5.   
  6.   CurrentDb.Execute "Delete  From TBL_Police"
  7.     CurrentDb.Execute "ALTER TABLE TBL_Police ALTER COLUMN ID COUNTER(1,1)"
  8.     CurrentDb.Execute "INSERT INTO TBL_Police ( [txt_Musteri] SELECT Police.[SIG_ETTIREN_AD] FROM [Police]"
  9.        MsgBox "Poliçe Tablonunuza Güncel Verileriniz Eklenmiştir!!!", vbInformation
  10.  
  11. ElseIf mesaj = vbNo Then
  12.         DoCmd.Close
  13.     End If
  14.   



hem access hızlı olması hemde verilerimin zarar görmemesi için tablo veri tabanımı veritabanı bölücü ile böldüm. Şimdi yukardaki komutum çalışmıyor nasıl cözeceğimi iki gündür arıyorum fakat çözüm bulamadım yardımlarınızı bekliyorum. şimdiden teşekkür ederim.

RE: Dış Veri Tabanından Veri çekerken Hata Alıyorum - onur_can - 18-03-2020

Ne hatası veriyor. Hata ekranını ekleyebilir misiniz.

RE: Dış Veri Tabanından Veri çekerken Hata Alıyorum - neco_can - 18-03-2020

Merhaba, almış olduğum hata ekteki gibidir.  Dosya çok boyutlu oldugu için ekleyemiyorum.

RE: Dış Veri Tabanından Veri çekerken Hata Alıyorum - onur_can - 18-03-2020

Aşağıdaki gibi satırı değiştirip denermisiniz.

Visual Basic
  1. CurrentDb.Execute "ALTER TABLE [" & CurrentDb.TableDefs(TBL_Police).Connect & "].[" & TBL_Police & "] ALTER COLUMN [ID_COUNTER(1,1)]"




RE: Dış Veri Tabanından Veri çekerken Hata Alıyorum - neco_can - 18-03-2020

(18-03-2020, 12:56)onur_can demiş ki: Aşağıdaki gibi satırı değiştirip denermisiniz.

Visual Basic
  1. CurrentDb.Execute "ALTER TABLE [" & CurrentDb.TableDefs(TBL_Police).Connect & "].[" & TBL_Police & "] ALTER COLUMN [ID_COUNTER(1,1)]"


merhaba ,yine hata verdi

RE: Dış Veri Tabanından Veri çekerken Hata Alıyorum - onur_can - 18-03-2020

İlk hatanızın düzelmiş olduğu görülüyor. Bağlantı yapamıyordu, şimdi bağlantı yapıyor fakat alan adı ile ilgili bir sorun var gibi
son kısımda bulunan ID alan adı ayrı olması gerekiyor,

Visual Basic
  1. ALTER COLUMN ID COUNTER(1,1)"



bu şekilde değiştirin.