|
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.
|