AccessTr.neT

Merhaba, bir sorum olacaktı.
ben Access verileri Excel ile accesse  bağlantı yaparak aktarıyorum. aktarım yaparken aşağıdaki kodu kullanıyorum.

 Dim mesaj

    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)

 

  If mesaj = vbYes Then

  

  CurrentDb.Execute "Delete  From TBL_Police"

    CurrentDb.Execute "ALTER TABLE TBL_Police ALTER Column ID COUNTER(1,1)"

    CurrentDb.Execute "INSERT INTO TBL_Police ( [txt_Musteri] SELECT Police.[SIG_ETTIREN_AD] FROM [Police]"

       MsgBox "Tablonunuza Güncel Verileriniz Eklenmiştir!!!", vbInformation



ElseIf mesaj = vbNo Then

        DoCmd.Close

    End If

  

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.

çalışmanızı eklerseniz yardımcı olmaya çalışırız
ama aşağıdaki bağlantılar da işinize yarayabilir
https://accesstr.net/konu-excelden-veri-...tarma.html
https://accesstr.net/konu-excelden-veri-...86523.html

(17/03/2020, 23:40)berduş yazdı: [ -> ]çalışmanızı eklerseniz yardımcı olmaya çalışırız
ama aşağıdaki bağlantılar da işinize yarayabilir
https://accesstr.net/konu-excelden-veri-...tarma.html
https://accesstr.net/konu-excelden-veri-...86523.html

boyutu çok büyük yükleyemiyorum.
aşağıdaki komuttun basına dışardaki veritabanını göstermem gerekli
bağlı tablo olduğu için içeri aktarım yapmıyor. currentdb.excutute başına ne yazmalıyım ki
CurrentDb.Execute "INSERT INTO TBL_Police ( [txt_Musteri] SELECT Police.[SIG_ETTIREN_AD] FROM [Police]"

"INSERT INTO komutu bağlı tabloda sorun çıkarmaması gerek
belirttiğim bağlantıdaki dosyayı indirip denedim
tablo bağlı da olsa yerel de kayıt ekleme ve güncellemede sorun çıkarmıyor
https://accesstr.net/konu-excelden-veri-...tml?page=8 bağlantısındaki dosya da insert into kullanıyor

---

bahsettiğiniz sorun bağlı tablodan ziyade bağlı olmayan harici veritabanına eklemeye çalışırsanız görülebilir o durumda dış veritabanına kayıt ekleme bağlantısı
işinize yarayabilir

 INSERT INTO TableName ( Field1, Field2, ...) In 'tamyoluveadı'

merhaba datayı ekledım

aşağıdaki kodu dener misiniz
adres kısmına dikkat edin

 Dim ADO_CN As Object

 Set ADO_CN = CreateObject("Adodb.Connection")

     ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & dosyaYoluveAdi & ";"

     ADO_CN.Open

 

 Dim mesaj

    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)

 

  If mesaj = vbYes Then

  

  CurrentDb.Execute "Delete  From TBL_Police"

    ADO_CN.Execute "ALTER TABLE TBL_Police ALTER Column ID COUNTER(1,1)" 

    CurrentDb.Execute "INSERT INTO TBL_Police ( [txt_Musteri],[txt_PoliceNo],[txt_Muta],[txt_AcenteKod],[txt_SigortaliTCKVKN],[txt_SigortaEttirenTCKVKN],[txt_TanzimTarihi],[txt_PoliceBasTarihi],[txt_PoliceBitisTarihi],[txt_SaticiSicil],[txt_PortfoyYoneticisi],[txt_YeniPoliceNo],[txt_EskiPoliceNo],[txt_RiskBedeli],[txt_BrutPrim],[txt_Komisyon],[txt_DainiMurtehin],[txt_TarifeAdi],[txt_TarifeKodu],[txt_Uavt],[txt_Durum],[txt_Surec]) SELECT Police.[SIG_ETTIREN_AD], Police.[CARI_POL_NO],Police.[MBB],Police.[ACENTA_NO],Police.[SIG_TCK_VKN],Police.[SIG_ETT_TCK_VKN],Police.[TANZIM_TARIH],Police.[BASLAMA_TARIH],Police.[BITIS_TARIH],Police.[SATICI_SICIL_NO],Police.[PORTFÖY YÖN#],Police.[YENI_POL_NO],Police.[ESKI_POL_NO],Police.[POL_BEDEL],Police.[BRUT_PRIM],Police.[VERILEN_KOM],Police.[DAINI_SUBE],Police.[TARIFE_AD],Police.[TARIFE_KOD],Police.[UAVT],Police.[durum],Police.[surec] FROM [Police]"

       MsgBox "Poliçe Tablonunuza Güncel Verileriniz Eklenmiştir!!!", vbInformation



ElseIf mesaj = vbNo Then

        DoCmd.Close

    End If