Discussion :

[sunalia]

Bonjour,

Pour commencer, j'ai vu de nombreux posts mais aucun ne semble répondre à ma demande. Il faut savoir que je suis novice en vba. Ainsi, voila mon problème:

J'ai une table relance qui a les critères suivants: date de relance, effectuée (champs oui/non) et sans suite. je voudrai que lorsque je coche sur effectuée, on m'oblige à rentrer une nouvelle date de relance (jusque là j'y suis arrivé). le problème vient ensuite. Je ne sais pas quel code utilisé pour récupérer la date rentrée dans l'inputbox afin de la mettre dans date de relance. Auriez vous des idées?

Je m'excuse par avance s'il y a un autre post sur le même sujet mais après quelques heures de recherches je n'ai toujours pas trouvé.

cordialement

[madefemere]

Bonjour,

En utilisant F1 sur InputBox, tu as

Affiche une invite dans une boîte de dialogue, attend que l'utilisateur tape du texte ou clique sur un bouton, puis renvoie le contenu de la zone de texte sous la forme d'une valeur de type String.

Il te faut :
1 - Déclarer un variable pour récupérer la valeur de ton InputBox.
2 - Après tu assignes cette valeur à ta date de relance :

Pseudo-code à insérer :

Code :

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

1
2
3
4
5
Dim DateSaisie as String
....
DateSaisie = InputBox(.......)
me.DateRelance = DateSaisie
.....

Bonne continuation

[sunalia]

Merci beaucoup de cette réponse mais comme je l'ai dit je suis novice et je viens de le tester et ma fonction se met en jaune signe d'une erreur mais je ne vois pas où. Voici mon code:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Function TestInputBox()
 
  Dim DateSaisie As String
  Dim y As Date
 
  ' Demander une date
  DateSaisie = InputBox("Entrer obligatoirement une date", "Important", "00/00/0000")
 
  ' Vérifier que la saisie est bien transformable en date
  If IsDate(DateSaisie) Then
    ' Si la saisie est bien une date...
    y = CDate(DateSaisie)
   Me.Date_Relance = DateSaisie
 
  Else
    ' Si la saisie est incorrecte...
    MsgBox "Vous n'avez pas tapé de date !", vbExclamation
     DateSaisie = InputBox("Entrer obligatoirement une date", "Important", "00/00/0000")
     End If
 
     If IsDate(DateSaisie) Then
    ' Si la saisie est bien une date...
    y = CDate(DateSaisie)
 
  Else
    ' Si la saisie est incorrecte...
    MsgBox "Vous n'avez pas tapé de date !", vbExclamation
    DateSaisie = InputBox("Entrer obligatoirement une date", "Important", "00/00/0000")
  End If
 
 If IsDate(DateSaisie) Then
    ' Si la saisie est bien une date...
    y = CDate(DateSaisie)
 
  Else
    ' Si la saisie est incorrecte...
    MsgBox "Vous n'avez pas tapé de date !", vbExclamation
    End If
 
 
End Function

Ai-je fait une erreur quelque part?

[Jeannot45]

Je pense que le problème vient du fait que tu as fait une Function et non une Sub

Une Sub est une suite d'instructions placées sur un évènement, qui agissent sur un controle et dans lesquelles peut se trouver une fonction.

Une Function est une suite d'instructions qui retourne une valeur

[sunalia]

bonjour,

merci de la réponse bien que je suis toujours dans le brouillard. je ne vois pas où je dois mettre le me.Date_Relance.enable = DateSaisie d'autant plus que je ne sais pas si Date_Relance va suffir car ce champs est dans un sous formulaire du formulaire client. La question que je me pose c'est dois-je mettre tous les paramètres pour qu'il me trouve le champs?

cordialement

[Jeannot45]

Re,

Je t'avoue avoir du mal à comprendre et de ce fait à t'apporter une aide efficace.

Pourrais-tu joindre ta base de données afin de voir concrètement le problème.