DoCmd.SetWarnings False
DoCmd.OpenQuery "SORGUADI", acNormal, acEdit
DoCmd.SetWarnings True
şeklinde düzenleyin.
Kod satırını;