Discussion :

[Dixies]

Bonjour à tous et toutes.

J'ai créé une application Access et c'est d'ailleurs un miracle pour moi qui suis autodidacte.
Je souhaite interdire l'utilisateur de saisir une date > à Date().
Ca je sais faire mais je voudrais compliquer un peu.
Voici un bout de code qui j'ai trouvé sur internet (un exemple sera plus simple que longues explications)

Au début Textbox est = 0
On clique sur cmdIncrease 14 fois et on obtient 14 dans Textbox : normal mais... comment faire pour désactiver le bouton dés le quinzième clique (puisque Textbox=15) ?
Dans l'exemple suivant il est désactivé au 16ème clique.

Je cherche la solution depuis un bon moment, en vain.
Merci de votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Compare Database
Option Explicit
 
Private m_intActualValue As Integer
 
Private Sub cmdIncrease_Click()
  If IsNull(Me!txtValeur) Then Me!txtValeur = 0
  m_intActualValue = Me!txtValeur
  If m_intActualValue >= 15 Then
    m_intActualValue = 15
    cmdDecrease.SetFocus
    cmdIncrease.Enabled = False
    Exit Sub
  End If
  cmdDecrease.Enabled = True
  m_intActualValue = m_intActualValue + 1
  Me!txtValeur = m_intActualValue
End Sub

[keita]

bonjour
Et ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNull(Me!txtValeur) Then Me!txtValeur = 1

@+

[Dixies]

Bonjour Keita

Merci pour ta réponse mais ça ne fonctionne pas.
D'ailleurs je ne vois pas non plus le raisonnement.
Ce que je souhaite en reprenant le code exemple c'est que puisque le maximun autorisé est 15, dés que le Txtbox affiche 15, mon bouton se séactive.
Si sur ouverture du form Texbox=0 , je voudrais que 15 clicks plustard mon bouton cmdIncrease se désactive et non pas 16 clicks.

Merci encore.

[FreeAccess]

Bonjour,

Vite fait, sans utilisation de variable...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub cmdIncrease_Click()
If IsNull(Me!txtValeur) Then Me!txtValeur = 0
 
Me.txtValeur.Value = Me.txtValeur.Value + 1
If Me.txtValeur.Value = 15 Then
    cmdDecrease.SetFocus
    cmdIncrease.Enabled = False
    Exit Sub
End If
End Sub

....dès que la valeur est égale à 15, le bouton est désactivé...

..à adapter (en particulier, par la récupération du jour de la date en cours...)
Ce qui te permettra de répondre à ce critère...

...interdire l'utilisateur de saisir une date > à Date().

Comment obtenir le mois, le jour ou l'année d'une date

[Dixies]

Bonjour FreeAccess

Ca marche super.
C'est exactement ce qu je cherchais et d'ailleurs mon projet de base est précisément d'interdire la saisie d'une date > Date().
Je n'ai plus qu'à l'adapter à mon applic.

Merci encore.

Cordialement.