Error de compilación
Hola, tengo estas sentencias y cuando abro el formulario y al pulsar en un tick me da el siguiente error:
Error de compilación
Bloque If sin End If
----------------------------------------------
Private Sub En_Chapa_Click()
If En_Chapa Then 'Corresponde al caso en el que al hacer click, se activa el botón
If Not IsNull(Fecha_Inicio_Chapa) And Fecha_Inicio_Chapa.Value <> "" Then If Not IsNull(Hora_Inicio_Chapa) And Hora_Inicio_Chapa.Value <> "" Then
Exit Sub
Else
Fecha_Inicio_Chapa.Value = Date Hora_Inicio_Chapa.Value = Time
End If
Else 'Corresponde al caso en el que al hacer click, se desactiva el botón
Fecha_Inicio_Chapa.Value = Null Hora_Inicio_Chapa.Value = Null
End If
End Sub
------------------------------------------------
Podéis decirme porque se produce?
Gracias