DoCmd.SetWarnings (False)

DoCmd.RunSQL "INSERT INTO mahal_sikayet ( [Blok No], [Daire], [Mahal Adı], [Şikayet], [Taşeron], [Tadilatı Yapan], [Kontrol Eden], [Teslim Alan], [Şikayet Tarihi], [Daire Sahibi] ) VALUES   (  ' " & Me.Blok_No & "', ' " & Me.Daire_No & "', '" & Me.Mahal_Adı & "', '" & Me.Şikayetin_Kaynağı & "', '" & Me.Taşeron_Adı & "', '" & Me.Tadilatı_Yapan & "', '" & Me.Siakyet_Tarihi & "', '" & Me.Teslim_Alan & "', '" & Me.Kontrol_Eden & "', '" & Me.Adı_Soyadı & "')"

Me.Requery

Sizde büyük ihtimal Me.Requery olarak kalmış bu ne demek "tamamen" yeniden sorgula.
Onun için sürekli ilk kayıta gider.
Sadece son satırdaki
Me.Requery ===> Me.Liste384.Requery
olarak değiştirin sorunuz çözülür.