kodu şu şekilde değiştir
Dim strSQL As String
Dim I As Integer
Dim msg As String
If NewData = "" Then Exit Sub
strSQL = "Insert Into firmalar ([firma]) " & _
"values ('" & NewData & "');"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
![Çözüldü](images/icons/cozuldu.png)