Tablodaki OlayAyı alanının varsayılan değerini

=Format(Date();"mmm")

yerine

=Format(Date();"mmmm")

yazmalısın,

Formun Kayıt kaynağını ve Açılan kutunun Denetim Kaynağını boş bırak.

Formdaki butonun tıklandığında olayına yazdığın kodu aşağıdaki ile değiştir.

Private Sub Komut104_Click()

Dim ay, yol As Integer

yol = CurrentProject.path & "\" & "Frm1.mdb"

ay = MtnAy

DoCmd.RunSQL "INSERT INTO Tablo ( SucNo, OlayAyi ) IN '" & yol & "' SELECT Tablo.SucNo, Tablo.OlayAyi, * FROM Tablo WHERE (((Tablo.OlayAyi)='" & ay & "'));"



End Sub