Enable = False sur un record et pas toute une table
Bonjour,
Dans un formulaire, je voudrais qu' un champ (nom=unresolved) de type "yes/no" se désactive automatiquement si un autre champ (nom=closed) aussi de type "yes/no" est rempli (mis sur "yes" par un click). Dans le code ci-dessous, cela fonctionne très bien si ce n'est que tous les champs "unresolved de tous les records du formulaire sont désactivés à partir du moment où je click sur un champ "closed". Serait-il possible de ne désactiver que le champ "unresolved" du record qui a été mis à jour et laisser les autres actifs?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| Private Sub Closed_AfterUpdate()
If Me.Assignedto.Value = "" Or IsNull(Me.Assignedto.Value) Or IsNull(Me.Group.Value) Then
MsgBox "You can't close an issue if the fields Assigned to and/or Group are empty!", vbCritical + vbOKOnly, "Invalid Choice!"
Me.Closed.Value = False
Else
If Me.Closed.Value = True Then
If MsgBox("Do you want to continue?", vbQuestion + vbYesNo) = vbNo Then
Me.Closed.Value = False
Exit Sub
End If
Me.Status.Value = "Closed"
Me.Closed_date.Value = Now
Me.Unresolved.Enabled = False
Else
If Me.Assignedto.Value = "" Or IsNull(Me.Assignedto.Value) Then
Me.Status.Value = "Open"
Me.Closed_date.Value = ""
Else
Me.Status.Value = "Pending"
Me.Closed_date.Value = ""
End If
End If
End If
End Sub |