Sayın subco;
Sorununuz için bilebildiğim kadarıyla 3 çözüm önerisi sunuyorum.
1- Hatayı dikkate almadan devam etmek için

Private Sub Form_Open(Cancel As Integer) 'bu satırın altına aşağıdaki satırı ekleyin

On Error GoTo hata

sonra en alta da, "end sub" dan önceye

hata:

Exit Sub

End Sub

ekleyiniz.
2- Girilen tarihin geçerlilik kontrolünü yap. isdate(değer) fonksiyonu
"strdate = InputBox("Lutfen Puantaj Giris Tarihini Giriniz!!!", "Main Database")" satırının altına

If IsDate(strdate) = False Then

MsgBox ("Geçersiz tarih")

Exit Sub

End If

kodunu ekle
3- Girişi inputbox la değil. Bu forumda çok örneğini bulacağın şifre giriş formlarıyla tarih sor. Orada yapacağın metin kutusuna takvim bağla. Kullanıcı sadece takvimden seçebilsin.

Benim önerilerim bunlar. İnşallah işine yarar. Saygılarımla.