(18-03-2020, 16:02)onur_can demiş ki: database klasöründeki access dosyasını açıyorum, fakat bölünmüş olan diğer dosyayı açamadım. Ne yapmak istediğiniz kısaca açıklayabilir misiniz?
Üstad merhaba, yapmak istediğimi şu şekilde açılayayayım.
veritabanı eskiden birşeşikti birleşik olduğunda içeri aktar butonuna bastığımda komut guzelce çalışmakta.
Veri tabanı boyutlu olduğu için veri kaybım olmaması için veritabanı böl kısmından tabloları böldüm ve database\..._DataBase.accdb klasörüne aldım.
Sonrasında ekrandaki içeri aktar komutunu kullandığımda aşağıdaki hataları alıyorum.
Şöyle bir yol buldum neco_can
komutlar çalışıyor fakat 2.komutunuz olan ID'yi sıfırlama işlemi başarısız oluyor. fakat silme ve ekleme işlemi yapıyor. ID için biraz çalışmak gerekiyor.
ÇÖZÜM:
Visual Basic
Dim mesaj
Dim db As DAO.Database
Dim sSQL AsString
Dim yol AsString
Dim rs As DAO.Recordset
yol = CurrentProject.Path & "\database\PLCT_DataBase.accdb"
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
DoCmd.RunSQL("Delete From TBL_Police")
'DoCmd.RunSQL ("ALTER TABLE TBL_Police ALTER COLUMN ID COUNTER(1,1)")
DoCmd.RunSQL("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]")