Buenas, he creado un formulario para introducir datos de la tabla gastos de portal gastos generales. No se por que al reiniciar la base de datos me guarda un registro extra(No es duplicado por que limpio los campos del formulario).

Option Compare Database

Private Sub GastosPortal_Change()

 Me.Cantidad = Me.GastosPortal.Column(2)

End Sub

Private Sub Guardar_Click()

DoCmd.SetWarnings False

    ' Definir la cadena SQL para insertar los datos en la tabla GastosGenerales

    Dim strSQL As String

    strSQL = "INSERT INTO GastosGenerales (Descripción, Cantidad, IdGastosPortal, Fecha) " & _

             "VALUES ('" & Me.Descripción & "', " & Me.Cantidad & ", " & Me.GastosPortal & ", #" & Format(Me.Fecha, "yyyy-mm-dd") & "#)"

    

    ' Ejecutar la instrucción SQL

    DoCmd.RunSQL strSQL

    

   

    

    

    Me.Descripción = ""

    Me.Cantidad = ""

    Me.GastosPortal = ""

    Me.Fecha = Date

DoCmd.SetWarnings True

 MsgBox "El registro se ha guardado correctamente.", vbInformation, "Guardar Registro"

End Sub 

El resultado es que al salir de la base de datos me añade un registro vacio.

Gracias  

https://we.tl/t-g93uGYLNDz 

SELECT GastosGenerales.Descripción, GastosGenerales.Cantidad, GastosGenerales.Fecha FROM GastosGenerales;  

esto tengo en origen del registro del formulario. Entonces puede venir por ahí el error? 

Lo que pasa que al quitar el origen del registro no me deja escribir en los campos y me aparecen con errores como este cada uno de los campos como este "#¿Nombre?"

De antemano muchas gracias.

Aquí tenéis la base de datos por si podéis echarle un ojo.