Marcar en documento word lo seleccionado

   ludos, Hola y Saludos, estoy
retomando un viejo proyecto, y gracias a la ayuda de prga (que me facilito la
siguiente instrucción) la cual me marca en un documento Word lo marcado en un
formulario de Access.

If
Forms!FSintomas!Verificación157.value = True Then

 appword.ActiveDocument.FormFields("Casilla53").CheckBox.value
= -1

Hasta
aquí todo bien.

 En
el formulario de Access, he añadido tres opciones más (daños materiales, lesiones,
fallecidos)

Que
me ocurre que, si marco por ejemplo la opción daños materiales o lesiones, en
el documento de word me sale marcado la opción fallecidos.

Esta
es la instrucción que estoy utilizando

''Accidente, daños
materiales

If
Forms!FSintomas!Verificación157.value = True Then

 appword.ActiveDocument.FormFields("Casilla53").CheckBox.value
= -1

 appword.ActiveDocument.FormFields("Casilla001").CheckBox.value
= -1 'Daños materiales

 appword.ActiveDocument.FormFields("Casilla002").CheckBox.value
= 0 'lesiones

 appword.ActiveDocument.FormFields("Casilla003").CheckBox.value
= 0 'Fallecidos

End
If

''Accidente, lesiones

If
Forms!FSintomas!Verificación157.value = True Then

 appword.ActiveDocument.FormFields("Casilla53").CheckBox.value
= -1

 appword.ActiveDocument.FormFields("Casilla001").CheckBox.value
= 0 'Daños materiales

 appword.ActiveDocument.FormFields("Casilla002").CheckBox.value
= -1 'lesiones

 appword.ActiveDocument.FormFields("Casilla003").CheckBox.value
= 0 'Fallecidos

End
If

''Accidente, Fallecidos

If
Forms!FSintomas!Verificación157.value = True Then

 appword.ActiveDocument.FormFields("Casilla53").CheckBox.value
= -1

 appword.ActiveDocument.FormFields("Casilla001").CheckBox.value
= 0 'Daños materiales

 appword.ActiveDocument.FormFields("Casilla002").CheckBox.value
= 0 'lesiones

 appword.ActiveDocument.FormFields("Casilla003").CheckBox.value
= -1 'Fallecidos

End
If

Que tendría que hacer o como modificar la instrucción para que cuando seleccionara daños
materiales o lesiones o fallecidos se marcara la opción seleccionada y no me marcara siempre la opción fallecidos.
 Un Saludo.

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Antonio Pedro Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 13/Diciembre/2005 Estado: Sin conexión Puntos: 297	Tema: Marcar en documento word lo seleccionado Enviado: 15/Septiembre/2023 a las 23:28
	ludos, Hola y Saludos, estoy retomando un viejo proyecto, y gracias a la ayuda de prga (que me facilito la siguiente instrucción) la cual me marca en un documento Word lo marcado en un formulario de Access. If Forms!FSintomas!Verificación157.value = True Then appword.ActiveDocument.FormFields("Casilla53").CheckBox.value = -1 Hasta aquí todo bien. En el formulario de Access, he añadido tres opciones más (daños materiales, lesiones, fallecidos) Que me ocurre que, si marco por ejemplo la opción daños materiales o lesiones, en el documento de word me sale marcado la opción fallecidos. Esta es la instrucción que estoy utilizando ''Accidente, daños materiales If Forms!FSintomas!Verificación157.value = True Then appword.ActiveDocument.FormFields("Casilla53").CheckBox.value = -1 appword.ActiveDocument.FormFields("Casilla001").CheckBox.value = -1 'Daños materiales appword.ActiveDocument.FormFields("Casilla002").CheckBox.value = 0 'lesiones appword.ActiveDocument.FormFields("Casilla003").CheckBox.value = 0 'Fallecidos End If ''Accidente, lesiones If Forms!FSintomas!Verificación157.value = True Then appword.ActiveDocument.FormFields("Casilla53").CheckBox.value = -1 appword.ActiveDocument.FormFields("Casilla001").CheckBox.value = 0 'Daños materiales appword.ActiveDocument.FormFields("Casilla002").CheckBox.value = -1 'lesiones appword.ActiveDocument.FormFields("Casilla003").CheckBox.value = 0 'Fallecidos End If ''Accidente, Fallecidos If Forms!FSintomas!Verificación157.value = True Then appword.ActiveDocument.FormFields("Casilla53").CheckBox.value = -1 appword.ActiveDocument.FormFields("Casilla001").CheckBox.value = 0 'Daños materiales appword.ActiveDocument.FormFields("Casilla002").CheckBox.value = 0 'lesiones appword.ActiveDocument.FormFields("Casilla003").CheckBox.value = -1 'Fallecidos End If Que tendría que hacer o como modificar la instrucción para que cuando seleccionara daños materiales o lesiones o fallecidos se marcara la opción seleccionada y no me marcara siempre la opción fallecidos. Un Saludo.

prga Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Moderador Unido: 16/Noviembre/2004 Localización: España Estado: Sin conexión Puntos: 3510	Enviado: 17/Septiembre/2023 a las 11:21
	Hola. Imaginando una posible solución: If Forms!FSintomas!Verificación157.value = True Then appword.ActiveDocument.FormFields("Casilla53").CheckBox.value = -1 appword.ActiveDocument.FormFields("Casilla001").CheckBox.value = Valor daños materiales appword.ActiveDocument.FormFields("Casilla002").CheckBox.value = Valor lesiones appword.ActiveDocument.FormFields("Casilla003").CheckBox.value = valor fallecidos End If Suponiendo que son casillas de verificación los valores señalados. Recuerda que los checkbox de los formularios word son "False" para el valor 0 y "True" para el resto de valores. Espero que aporte alguna idea para solucionar el problema. Ya comentas. Un saludo a todos

Antonio Pedro Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 13/Diciembre/2005 Estado: Sin conexión Puntos: 297	Enviado: 18/Septiembre/2023 a las 22:32
	Hola prga y gracias por tu respuesta , al final lo he solucionado de la siguiente manera: If Forms!FSintomas!Verificación157.value = True And Forms!FSintomas!Marco162 = 1 = True Then appword.ActiveDocument.FormFields("Casilla53").CheckBox.value = -1 appword.ActiveDocument.FormFields("Casilla001").CheckBox.value = -1 'Daños materiales End If If Forms!FSintomas!Verificación157.value = True And Forms!FSintomas!Marco162 = 2 = True Then appword.ActiveDocument.FormFields("Casilla53").CheckBox.value = -1 appword.ActiveDocument.FormFields("Casilla002").CheckBox.value = -1 'lesiones End If If Forms!FSintomas!Verificación157.value = True And Forms!FSintomas!Marco162 = 3 = True Then appword.ActiveDocument.FormFields("Casilla53").CheckBox.value = -1 appword.ActiveDocument.FormFields("Casilla003").CheckBox.value = -1 'Fallecidos End If Saludos y muchas gracias, se puede cerrar el hilo.