Bölgesi kutusuna yazdığınız olayı görmek için son halini ekleyiniz.
Şu anki örneğinizde Olay yordamı yok...
Dosyayı ekledim. Abone eden kısmında CurrentDb.Execute strsql, dbFailOnError bu hatayı veriyor.
Her zaman üzerine basa basa söylediğimiz ölümcül hatalar.
Tablo adlarında boşluk kullanmayın. İleride başınıza dert açabilir.
strsql = "Insert Into [Abone Eden]([Abone Eden]) values ('" & NewData & "')"
olarak değiştirin.
Tamamdır Hocam size ve emeğinize saygılar. Teşekkür ederim.