Sayın ucloy;
Sizin için bundan önce yaptığım örnekte kodlarda yaptığım şekilde alt aalta çalıştırabilirsiniz.
Örneğin;

DoCmd.OpenQuery "sorgu1"

DoCmd.OpenQuery "sorgu2"

DoCmd.OpenQuery "sorgu3"

şeklinde olabileceği gibi aşağıdaki şekilde de olur;

CurrentDb.Execute "select * from tablo1"

CurrentDb.Execute "select * from tablo2"

CurrentDb.Execute "select * from tablo3"

Bu sorgularda ekleme, silme ve güncelleştirme olacaksa sorguları çalıştırmaya başlamadan önceki satıra

Docmd.SetWarnings False

Kodu ile uyarıları kapatıp sorguları çalıştırma işi bitince de

Docmd.SetWarnings True 

Koduyla uyarıları yeniden açabilirsiniz.
Kolay Gelsin.