Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 12/02/2011, 15h51   #1
Nouveau Membre du Club
 
stephane laurent
Inscription : janvier 2011
Messages : 81
Détails du profil
Informations personnelles :
Nom : stephane laurent

Informations forums :
Inscription : janvier 2011
Messages : 81
Points : 31
Points : 31
Par défaut Répétition champs

Bonjour,

A chaque nouvel enregistrement, je voudrais que la date figurant sur le champs précédent soit reportée dans le nouvel enregistrement. je n'arrive pas à trouver le code pour le faire.

Quelqu'un pourrait il m'aider ? svp

Cordialement
ronin.01
ronin.01 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/02/2011, 16h59   #2
Expert Confirmé
 
Avatar de FreeAccess
 
Homme
Inscription : mars 2006
Messages : 2 309
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : mars 2006
Messages : 2 309
Points : 2 847
Points : 2 847
Bonjour,

Merci de rester sur ton post d'origine....
Répition d'un champs, nouvel enregistrement

Citation:
...la date du 10/02/11, puis qu elle se repète sur les enregistrements suivant jusqu'à ce qu'il change la date pour le 11/02/11et ainsi de suite.
Sur la propriété "Sur activation" du formulaire.:
- tu vérifie que tu es sur un nouvel enregistrement....et si OUI, alors tu récupère la date la plus récente à l'aide d'un DMax....(c'est une possibilité.....)
Code :
1
2
3
If Me.NewRecord = True Then
    Me.Date_Enreg.Value = DMax("[Date_Enreg]", "Clients")
End If
....tu adapte à ton application...
__________________
FreeAccess
"Petit à petit l'araignée tisse sa toile"
FreeAccess est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 13/02/2011, 13h00   #3
Nouveau Membre du Club
 
stephane laurent
Inscription : janvier 2011
Messages : 81
Détails du profil
Informations personnelles :
Nom : stephane laurent

Informations forums :
Inscription : janvier 2011
Messages : 81
Points : 31
Points : 31
Par défaut [AC-2007] Répétition champs

bonjour,

Oui désolé j'aurais du resté dans mon premier post. merci pour votre réponse,
ca marche !!!!!

Code :
1
2
3
4
5
6
Private Sub DATE_GotFocus()
If Not IsNull("[date]") And Me.NewRecord = True Then
    Me.DATE.Value = DMax("[date]", "suivicorps")
End If
 
End Sub
j ai inséré le code sur la recetpion focus de mon champs date.

Merci bonne journee
ronin.01
ronin.01 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 10h02.


 
 
 
 
Partenaires

Hébergement Web