No se puede llamar a la subrutina con un “if”.
Estoy tratando de llamar a la validación con un if, pero no funciona y la siguiente línea sigue ejecutándose, por favor ayuda.
Private Sub BtnCreateInvioce_Save_Click(sender As Object, e As EventArgs) Handles BtnCreateInvioce_Save.Click
If txtvalidation() = True Then
PrintPreviewModule.Document = PrintModule
add_items()
PrintPreviewModule.ShowDialog()
estimateclear()
janAutoNumberUpdate("invoiceno")
frmestimate_Load(sender, e)
End If
End Sub
davy.ai
Parece que hay un problema con la función
txtvalidacion()cuando se llama dentro de la declaraciónIf. Parece que la validación no está funcionando correctamente y el código continúa ejecutándose incluso si la validación falla.Para solucionar este problema, es posible que desees verificar la función
txtvalidacion()para asegurarte de que esté validando correctamente la entrada. También puedes agregar una declaraciónReturn Falsedentro de la función para asegurarte de que el valor devuelto sea consistente con el resultado de la validación.Alternativamente, también puedes intentar usar un bloque
Try...Catchpara capturar cualquier error que pueda ocurrir durante la validación y evitar que el código continúe ejecutándose si la validación falla.Pero sin conocer más acerca de la función
txtvalidacion()o el mensaje de error específico recibido, es difícil decir con certeza cuál podría ser el problema. Se necesita más información para diagnosticar y resolver correctamente el problema.