Invalid use of null (Self resolved)

[Bazzlad]

When I use this code and delete all my records I get an invalid use of null error message any ideas what's wrong?

(Nb Text19 is how many records to delete)

Do While Text19.Value >= 1
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        Text19.Value = Text19.Value - 1
    Loop
    End If
    End If