Me.alistansatisa.Requery satırının hemen üstüne eklenecek.
çalıştırmak istediğiniz diğer sorgunu amacını bilmediğimden ona dokunmadım gereksizse o kısım silinebilir
xSQL = " update tbl1 set onay=-1 " & _
" where alisNo in (select top " & Me.Metin149 & " alisNo from tbl1 where yön like ""*" & Me.Açılan_Kutu115.Value & "" & "*"") "
CurrentDb.Execute xSQL