Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access UTILISATION DE Select case à la place de If Then

UTILISATION DE Select case à la place de If Then

2 réponses
Avatar
FEUZ TOFF
Bonjour,
Pouvez vous m'aider à utiliser "Select ... case" à la place du 2e " if "
parce qu'à chaque année il ya 1 N° à ne pas dépassé:

Befort Update
If(IsNull(Me.N°ACTE)=False) and (IsNull(Me.ANNEE)=False) then
If Me.N°ACTE >2620 and Me.ANNEE = 2003 then
MsgBox "Les N° d'acte pour l'année 2003 sont limités à 2620"
end if
cancel = True
end if

Merçi de votre aide
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrick Fredin
Bonjour,

If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then
Select Case Me.ANNEE
Case 2003
If Me.N°ACTE >2620 then
MsgBox "Les N° d'acte pour l'année 2003 sont limités à
2620"
Cancel = True
End if
Case 2004
If Me.N°ACTE >... then
MsgBox "Les N° d'acte pour l'année 2004 sont limités à
..."
Cancel = True
End if
End Select
End if

--
Patrick

"FEUZ TOFF" wrote in message
news:
Bonjour,
Pouvez vous m'aider à utiliser "Select ... case" à la place du 2e " if "
parce qu'à chaque année il ya 1 N° à ne pas dépassé:

Befort Update
If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then
If Me.N°ACTE >2620 and Me.ANNEE = 2003 then
MsgBox "Les N° d'acte pour l'année 2003 sont limités à 2620"
end if
cancel = True
end if

Merçi de votre aide



Avatar
Raymond [mvp]
Bonsoir.

il n'est pas besoin d'utiliser un select dans ton cas. Le test "
If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then " est inutile
et on peut le supprimer.
If Nz(Me.N°ACTE, 0) > 2620 And Nz(Me.ANNEE, 1899) = 2003 Then
MsgBox "Les N° d'acte pour l'année 2003 sont limités à 2620"
Cancel = True
ElseIf Nz(Me.N°ACTE, 0) > 2720 And Nz(Me.ANNEE, 1899) = 2004 Then
MsgBox "Les N° d'acte pour l'année 2004 sont limités à 2720"
Cancel = True
End If

si tu veux passer passer par un select, tu peux faire
Select Case Nz(Me.ANNEE, 1899)
Case 2003
If Nz(Me.N°ACTE, 0) > 2620 Then
MsgBox "Les N° d'acte pour l'année 2003 sont limités à 2620"
Cancel = True
End If
Case 2004
If Nz(Me.N°ACTE, 0) > 2720 Then
MsgBox "Les N° d'acte pour l'année 2004 sont limités à 2720"
Cancel = True
End If
End Select

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"FEUZ TOFF" a écrit dans le message de
news:
Bonjour,
Pouvez vous m'aider à utiliser "Select ... case" à la place du 2e " if "
parce qu'à chaque année il ya 1 N° à ne pas dépassé:

Befort Update
If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then
If Me.N°ACTE >2620 and Me.ANNEE = 2003 then
MsgBox "Les N° d'acte pour l'année 2003 sont limités à 2620"
end if
cancel = True
end if

Merçi de votre aide