konuyu kapatabilirsiniz.
Private Sub Gönder_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into tbl_duyuru (duyurumetni) values ('" & Me.personel.Column(1) & ": '+'" & Me.yazım_alanı & "')"
SoundMe
DoCmd.SetWarnings True
yazım_alanı = ""
End Sub