ama aynı kayıtta 5 defa basarsanız 5 defa ekler
Dim xSQL
xSQL = " INSERT INTO ilanNumaralari " _
& "(kurs1ilanNo,kurs2ilanNo, kurs3ilanNo) VALUES " _
& "(" & IIf(Len([KURS1 İLAN NO] & "") = 0, "Null", [KURS1 İLAN NO]) & "," & _
IIf(Len([Metin703] & "") = 0, "Null", [Metin703]) & "," & _
IIf(Len([Metin705] & "") = 0, "Null", [Metin705]) & ");"
CurrentDb.Execute xSQL
Not: @atoykan hocamın belirttiği gibi çalışmanızı yeniden yapılandırmanız yerinde olur