Modification valeur par défaut d'un champ
Résolu/Fermé
Iruka72
Messages postés
255
Date d'inscription
mardi 16 février 2010
Statut
Membre
Dernière intervention
5 juin 2014
-
Modifié par Iruka72 le 23/03/2010 à 12:21
Iruka72 Messages postés 255 Date d'inscription mardi 16 février 2010 Statut Membre Dernière intervention 5 juin 2014 - 26 mars 2010 à 13:10
Iruka72 Messages postés 255 Date d'inscription mardi 16 février 2010 Statut Membre Dernière intervention 5 juin 2014 - 26 mars 2010 à 13:10
A voir également:
- Modification valeur par défaut d'un champ
- Logiciel modification pdf - Guide
- Suivi de modification word - Guide
- Windows 11 afficher plus d'options par défaut - Guide
- Fichier excel verrouillé pour modification par moi meme - Forum Excel
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
2 réponses
Iruka72
Messages postés
255
Date d'inscription
mardi 16 février 2010
Statut
Membre
Dernière intervention
5 juin 2014
22
Modifié par Iruka72 le 23/03/2010 à 16:28
Modifié par Iruka72 le 23/03/2010 à 16:28
Désolé pour le double post mais ca commence a faire pas mal de mise à jour du premier post.
J'ai bien avancé, j'ai trouvé le moyen de lui dire quel sera la valeur par défaut tant que ce champ est pas modifié, voici le code :
Après mise à jour du champ, la valeur par défaut est chargée dans les propriété du champ où je vois s'afficher la valeur mais si j'ouvre un nouvel enregistrement j'ai un nombre du style à 1524865242586E-6 qui apparait, je ne comprend pas pourquoi, l'erreur doit provenir de Me.Révision.value, la valeur value ne doit pas gèrer les dates, mais dans ce cas qu'est ce que je peux mettre à la place?
J'ai essayé de mettre Me.Révision.DefaultValue = [Révision], j'ai le même soucis.
Et après transformation du champ en date (j'avais oublié et laisser en texte avec masque de saisie au démarrage), il me met encore la valeur dans les propriété mais cette fois je n'ai plus rien dans le champ lors d'un nouvel enregistrement.
Et si j'essaye de mettre directement une date sans passer par la msgbox et mettre la date obligatoirement d'aujourd'hui ca me met bien une date le 30/12/1899 invariablement et si je clique sur le champ j'ai ceci 00:05:28 , et si j'oublie le masque de saisie, c'est 00:05:28.
J'espère que vous saurez m'aider, je continue à chercher mais tout coups de mais est bienvenue
J'ai bien avancé, j'ai trouvé le moyen de lui dire quel sera la valeur par défaut tant que ce champ est pas modifié, voici le code :
'modifie avec la date du jour quand on clique et qu'on choisi oui Private Sub Révision_Click() Dim a As Long a = MsgBox("Avez vous vraiment modifier la structure du formulaire?", vbYesNo) If (a = 6) Then [Révision] = Date End If End Sub 'après mise à jour, la valeur mise devient la valeur par défaut Private Sub Révision_Dirty(Cancel As Integer) Me.Révision.DefaultValue = Me.Révision.Value End Sub
Après mise à jour du champ, la valeur par défaut est chargée dans les propriété du champ où je vois s'afficher la valeur mais si j'ouvre un nouvel enregistrement j'ai un nombre du style à 1524865242586E-6 qui apparait, je ne comprend pas pourquoi, l'erreur doit provenir de Me.Révision.value, la valeur value ne doit pas gèrer les dates, mais dans ce cas qu'est ce que je peux mettre à la place?
J'ai essayé de mettre Me.Révision.DefaultValue = [Révision], j'ai le même soucis.
Et après transformation du champ en date (j'avais oublié et laisser en texte avec masque de saisie au démarrage), il me met encore la valeur dans les propriété mais cette fois je n'ai plus rien dans le champ lors d'un nouvel enregistrement.
Et si j'essaye de mettre directement une date sans passer par la msgbox et mettre la date obligatoirement d'aujourd'hui ca me met bien une date le 30/12/1899 invariablement et si je clique sur le champ j'ai ceci 00:05:28 , et si j'oublie le masque de saisie, c'est 00:05:28.
J'espère que vous saurez m'aider, je continue à chercher mais tout coups de mais est bienvenue
Iruka72
Messages postés
255
Date d'inscription
mardi 16 février 2010
Statut
Membre
Dernière intervention
5 juin 2014
22
Modifié par Iruka72 le 26/03/2010 à 14:39
Modifié par Iruka72 le 26/03/2010 à 14:39
j'ai trouvé une solution qui fonctionne, même si c'est pas exactement ce que je voulais:
Voici le code sur le champ lui même :
et sur l'activation du formualire:
Ca me fait bien passer d'un formulaire à l'autre la valeur du champ révision et change bien si je modifie la valeur manuellement.
J'aurais préféré pouvoir modifier uniquement cette date sans avoir à le faire avec un enregistrement complet mais je ne vois vraiment pas comment faire^^".
Voici le code sur le champ lui même :
Private Sub Révision_Click() Dim a As Long a = MsgBox("Avez vous vraiment modifier la structure du formulaire?", vbYesNo) If (a = 6) Then b = MsgBox("Voulez vous mettre la date d'aujourd'hui?", vbYesNo) If (b = 6) Then Me.Révision.Value = Date End If End If End Sub
et sur l'activation du formualire:
If Me.NewRecord Then If DCount("*", "Stagiaire") > 0 Then Me.Révision = Nz(DLookup("Révision", "Stagiaire", "N°infoStagiaire=" _ & DMax("N°infoStagiaire", "Stagiaire")), 0) End If End If
Ca me fait bien passer d'un formulaire à l'autre la valeur du champ révision et change bien si je modifie la valeur manuellement.
J'aurais préféré pouvoir modifier uniquement cette date sans avoir à le faire avec un enregistrement complet mais je ne vois vraiment pas comment faire^^".