=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