CurrentDb.Execute " delete from [vaazplanek] where id_vaazplan=" & Me.txtPlanid
CurrentDb.Execute " insert into vaazplanek (id_vaazplan, id_vaaz, SiraNo) select " & CLng(Me.txtPlanid) & ", [id_vaaz], [sirano] from [SQLBirlesTmp] where not isnull([sirano])"
sadece bunu yazın buton koduna
normaldir iç içe yazmışsınız yukardaki kodu