Mevzu anlaşıldı.
Buton kodunu aşağıdaki ile değiştiriniz.

Private Sub Command43_Click()

On Error GoTo Err_Command43_Click



    Dim stDocName As String



    stDocName = "YeniHakedislerUpdate"

		For X = 0 To 6

			DoCmd.SetWarnings False

			DoCmd.OpenQuery stDocName, acNormal, acEdit

			DoCmd.SetWarnings True

		Next X

DoCmd.RunCommand acCmdRefresh



Exit_Command43_Click:

    Exit Sub



Err_Command43_Click:

    MsgBox Err.Description

    Resume Exit_Command43_Click

    

End Sub