Biraz uğraştırdı ama çözdüm sonuçta..

Çözüm :
frm_ana kapandığında olayına

Private Sub Form_Close()

If IsNull(Me.VERILENCEVAP) Or Me.VERILENCEVAP = "" Then

Else

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE FROM Ana_Tablo WHERE VERILENCEVAP is null "

End If

End Sub

Kodu ile tabloda boş kayıt oluşursa otomatik silinmesini sağladım.. Denemelerim devam ediyor..

Aynı zamanda form1 deki tbsil kodunuda

Sub tblsil()

 

    DoCmd.SetWarnings False

    DoCmd.RunSQL "DELETE FROM Ana_Tablo WHERE VERILENCEVAP is null " 'boş satır sil

    CurrentDb.Execute "insert into Ana_Tablo2 select * from Ana_Tablo" 'Aktarma

    DoCmd.RunSQL "delete from Ana_Tablo where 1=1" 'tümünü sil

End Sub

Şeklinde değiştirerek önce boş satır varsa silmesini, ardından tablo2 ye aktarmasını ve son olarak tümünü silmesini sağladım..