Dim mesaj
 
Dim db As DAO.Database
Dim sSQL As String
Dim yol As String
Dim rs As DAO.Recordset
 
yol = CurrentProject.Path & "\database\PLCT_DataBase.accdb"
 
Set db = OpenDatabase(yol)
sSQL = "SELECT TBL_Police.ID, TBL_Police.txt_Musteri, TBL_Police.txt_PoliceNo, " & _
"TBL_Police.txt_Muta, TBL_Police.txt_AcenteKod, TBL_Police.txt_SigortaliTCKVKN, " & _
"TBL_Police.txt_SigortaEttirenTCKVKN, TBL_Police.txt_Durum, TBL_Police.txt_Surec, " & _
"TBL_Police.txt_Oncelik, TBL_Police.txt_TanzimTarihi, TBL_Police.txt_PoliceBasTarihi, " & _
"TBL_Police.txt_PoliceBitisTarihi, TBL_Police.txt_Sirket, TBL_Police.txt_SaticiSicil, " & _
"TBL_Police.txt_PortfoyYoneticisi, TBL_Police.txt_YeniPoliceNo, TBL_Police.txt_EskiPoliceNo, " & _
"TBL_Police.txt_RiskBedeli, TBL_Police.txt_BrutPrim, TBL_Police.txt_Komisyon, " & _
"TBL_Police.txt_DainiMurtehin, TBL_Police.txt_Faaliyet, TBL_Police.txt_TarifeAdi, " & _
"TBL_Police.txt_TarifeKodu, TBL_Police.txt_Uavt, TBL_Police.txt_Ekler, TBL_Police.txt_Aciklama, " & _
"TBL_Police.txt_Risk_Analiz, TBL_Police.txt_Kacma_Nedeni " & _
"FROM TBL_Police"
 
Set rs = db.OpenRecordset(sSQL)
 
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]")
 
MsgBox "Poliçe Tablonunuza Güncel Verileriniz Eklenmiştir!!!", vbInformation
 
ElseIf mesaj = vbNo Then
 
DoCmd.Close
End If
 
 
db.Close
Set db = Nothing
Set rs = Nothing