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

1 respuesta

Respuesta
1

Me había tirado un rato escribiendo una contestación más larga pero al final me he dado cuenta de que no se que es lo que pretendes. No entiendo a que te refieres con activar y desactivar el botón.

Basándonos en lo que has puesto indica que es lo que pretendes. Por otra parte, no si ha sido al escribirlo en la pregunta pero si lo tienes así en el código, lógicamente te dará fallo. Hay que tener en cuenta los saltos de linea para formar debidamente la sentencia y cerrar correctamente, si es necesario, cada uno de los if.

Espero tu aclaración y pasate por El Foro, allí encontraras ejemplos y explicaciones que te podrán guiar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas