Private Sub Comando8_Click()
If Me![Opción0].Value = -1 And Me![Opción3].Value = -1 And Me![Opción5].Value = -1 Then
DoCmd.OpenReport "Convenio", acViewReport, , "[empresa]=forms![datos generales]![empresa]"
End If
If Me![Opción0].Value = -1 And Me![Opción3].Value = 0 And Me![Opción5].Value = 0 Then
DoCmd.OpenReport "Convenio 1", acViewReport, , "[empresa]=forms![datos generales]![empresa]"
End If
If Me![Opción0].Value = 0 And Me![Opción3].Value = -1 And Me![Opción5].Value = 0 Then
DoCmd.OpenReport "Convenio 2", acViewReport, , "[empresa]=forms![datos generales]![empresa]"
End If
If Me![Opción0].Value = -1 And Me![Opción3].Value = -1 And Me![Opción5].Value = 0 Then
DoCmd.OpenReport "Convenio 3", acViewReport, , "[empresa]=forms![datos generales]![empresa]"
End If
If Me![Opción0].Value = 0 And Me![Opción3].Value = 0 And Me![Opción5].Value = -1 Then
DoCmd.OpenReport "Convenio 4", acViewReport, , "[empresa]=forms![datos generales]![empresa]"
End If
If Me![Opción0].Value = 0 And Me![Opción3].Value = -1 And Me![Opción5].Value = -1 Then
DoCmd.OpenReport "Convenio 5", acViewReport, , "[empresa]=forms![datos generales]![empresa]"
End If
If Me![Opción0].Value = -1 And Me![Opción3].Value = 0 And Me![Opción5].Value = -1 Then
DoCmd.OpenReport "Convenio 6", acViewReport, , "[empresa]=forms![datos generales]![empresa]"
End If
End Sub