Buen día.
Tengo este código de Visual Basic en Access, lo que hace es que si se elige el mismo valor de los combos 1 y 2, da el mensaje de que no se pueden repetir los valores, lo que quiero hacer es que se pueda elegir el "No aplica" en ambos, no los tome como repetidos y luego dar foco al combo 3.
Private Sub cmb2_AfterUpdate()
If (cmb1.Value = cmb2.Value) And (Me.cmb1.Value = "No aplica") Then
cmb3.SetFocus
ElseIf (cmb1.Value = cmb2.Value) And (Me.cmb1.Value <> "No aplica") Then
MsgBox "Los motivos no deben repetirse", vbInformation, "Datos repetidos"
cmb2 = ""
cmb1 = ""
Me.cmb1.SetFocus
ElseIf (cmb1.Value <> cmb2.Value) Then
DoCmd.CancelEvent
End If
End Sub
Tengo este código de Visual Basic en Access, lo que hace es que si se elige el mismo valor de los combos 1 y 2, da el mensaje de que no se pueden repetir los valores, lo que quiero hacer es que se pueda elegir el "No aplica" en ambos, no los tome como repetidos y luego dar foco al combo 3.
Private Sub cmb2_AfterUpdate()
If (cmb1.Value = cmb2.Value) And (Me.cmb1.Value = "No aplica") Then
cmb3.SetFocus
ElseIf (cmb1.Value = cmb2.Value) And (Me.cmb1.Value <> "No aplica") Then
MsgBox "Los motivos no deben repetirse", vbInformation, "Datos repetidos"
cmb2 = ""
cmb1 = ""
Me.cmb1.SetFocus
ElseIf (cmb1.Value <> cmb2.Value) Then
DoCmd.CancelEvent
End If
End Sub