Private Sub Yukle_Click()
Dim VT As Database, Tbl As TableDef, VarYok As Integer
Set VT = CurrentDb
For Each Tbl In VT.TableDefs
If Tbl.Name = "ExcelDosyasi" Then VarYok = -1 Else VarYok = 0
Next Tbl
If VarYok = 0 Then
 '*******kisiler.xlsx Excel dosyasini VT'na alir ****************** 
 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "ExcelDosyasi", CurrentProject.Path & "\kisiler.xlsx", True
End If
 
'*******kisiler tablosuna, excel dosyasinda(kisiler.xlsx) olup, tabloda olmayan kayitlari YUKLER**************
CurrentDb.Execute "INSERT INTO kisiler ( tcno, [adi soyadi], dogumtarihi ) " & _
"SELECT ExcelDosyasi.tcno, ExcelDosyasi.[adi soyadi], ExcelDosyasi.dogumtarihi " & _
"FROM ExcelDosyasi LEFT JOIN kisiler ON ExcelDosyasi.tcno = kisiler.tcno WHERE (((kisiler.tcno) Is Null)) " & _
"GROUP BY ExcelDosyasi.tcno, ExcelDosyasi.[adi soyadi], ExcelDosyasi.dogumtarihi"
'*******yerler tablosuna, excel dosyasinda(kisiler.xlsx) olup, tabloda olmayan kayitlari YUKLER**************
CurrentDb.Execute "INSERT INTO yerler ( tcnu, ili, ilcesi, konu, tarih, sonuc, yersayi ) " & _
"SELECT ExcelDosyasi.tcno, ExcelDosyasi.ili, ExcelDosyasi.ilcesi, ExcelDosyasi.konu, ExcelDosyasi.tarih, ExcelDosyasi.sonuc, kisiler.kisino " & _
"FROM (kisiler INNER JOIN ExcelDosyasi ON kisiler.tcno = ExcelDosyasi.tcno) LEFT JOIN yerler ON ExcelDosyasi.tcno = yerler.tcnu " & _
"WHERE (((yerler.tcnu) Is Null))"
'******VT alinan tabloyu siler.**********************************
DoCmd.DeleteObject acTable, "ExcelDosyasi"
'******Eklenen kayitlarin form uzerinde gorulmesini saglar***********
Me.Requery
Me.yerformu.Form.Requery
End Sub