Astuce pour débutants ? gérer le pluriel dans les messages (eviter « vous allez supprimer 1 message(s) ») :)

Télécharger le projet
Commenter

Description

Tout est dit dans le titre de la source
Je voulais partager avec vous une technique que j'utilise toujours dans ces cas ...

Source / Exemple : 


Option Explicit

Private Sub cmdGénerer_Click()
' Là j'ai pris un exemlpe, qui s'exécute
' avant une procédure de suppression.

' En utilisant la fonction iif, la procédure ajoute
' "message" avec ou sans "s" selon la valeur de la zone
' de texte ..

If Val(txtNbre) > 0 Then
    MsgBox "Vous aller supprimer " & txtNbre & IIf(Val(txtNbre) = 1, " message", " messages") & " !", vbInformation + vbOKCancel
End If
' Pour plus de détailles sur iif, consulter l'aide en ligne.
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub txtNbre_KeyPress(KeyAscii As Integer)
' Limiter les caractères saisies au chiffres seulement
If (KeyAscii < 49 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 13 Then
    KeyAscii = 0
End If
If KeyAscii = 13 Then cmdGénerer_Click
End Sub

' Golden-X

Conclusion :


J'ai bien dit que c'est pour les débutants ;-)

Bonne prog

A+

Golden-X
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Appil)