Afficher dernier enregistrement dans un sous formulaire

**pikayo** · 18/07/2012, 13h16

Bijoul bijoul

,

Je viens une nouvelle fois soliciter votre aide

.

Alors tout d'abord dans ma base access je possède :

- Un formulaire acceuil qui s'ouvre dès l'ouverture de ma base access
- Une table RITUEL avec 3 champs, date() (qui est ma clé primaire), Nom, Prenom
- Un formulaire avec en source contrôle la table RITUEL, dans lequel il y a les 3 champs cités au dessus. Ce formulaire me sert de sous formulaire sur la page d'acceuil.

Je voudrais que lors de l'ouverture de la base, le sous formulaire m'affiche le dernier enregistrement qui a été saisi. J'ai recherché sur le forum et sur le net, plusieurs parlent de prendre le max du numéro auto, mais j'arrive pas à l'appliquer à la situation. Lorsque j'essaye d'afficher l'enregistrement avec la date la plus grande, dans mon sous formulaire s'affiche alors uniquement le dernier enregistrement créé (celui qui se créé automatiquement lors de l'ouverture d'une table). J'ai donc la date qui s'affiche mais les deux autres champs restent vides.

Si quelqu'un a une idée ...

Et par la même occasion, j'aimerai que lorsque j'appuie sur un bouton près du sous formulaire, celui se réouvre avec un nouvel enregistrement (je sais pas si ça sera possible, tout dépend si je met des propriétés à mon sous formulaire je suppose).

Merci par avance !

**brice45** · 18/07/2012, 13h32

Bonjour,

Crée un évènement à l'ouverture de ton sous formulaire avec le VB :

Code :

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

1
2
3
4
Dim frm As Form
 
Set frm = FORMS!frmlistdetails
DoCmd.GoToRecord , , acLast

**pikayo** · 18/07/2012, 13h44

Bonjour,

Tout d'abord merci de ton aide ! Du coup avec l'événement d'ouverture j'obtiens ça :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
Dim frm As Form
 
Set frm = Forms!frmlistdetails
DoCmd.GoToRecord , , acLast
End Sub

Mais je sais pas quoi remplacer par le nom de mon formulaire ? (SF_Rituel)

J'ai essayé en remplaçant le "frm" et le "Form", dans les deux cas sans résultat (bug à l'ouverture).

**Kaptin** · 18/07/2012, 14h01

Bonjour,

Et par la même occasion, j'aimerai que lorsque j'appuie sur un bouton près du sous formulaire, celui se réouvre avec un nouvel enregistrement (je sais pas si ça sera possible, tout dépend si je met des propriétés à mon sous formulaire je suppose).

C'est tout à fait possible, il suffit que sur l'évènement "sur clic" de ton bouton tu ajoute un petit bout de code. Ce bouton sert-il aussi à sauvegarder ton enregistrement en cours, ou est-il simplement là pour aller à l'enregistrement suivant ?

Dans le premier cas, ton code devrait ressembler à ceci:

Code :

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

1
2
3
4
5
Private Sub TONBOUTON_Click()
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RunCommand acCmdRecordsGoToNew
End If
End Sub

Ce code te permettra de sauvegarder l'enregistrement en cours et ensuite d'aller à un nouvel enregistrement.

**Kaptin** · 18/07/2012, 14h03

Envoyé par pikayo

Bonjour,

Tout d'abord merci de ton aide ! Du coup avec l'événement d'ouverture j'obtiens ça :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
Dim frm As Form
 
Set frm = Forms!frmlistdetails
DoCmd.GoToRecord , , acLast
End Sub

Mais je sais pas quoi remplacer par le nom de mon formulaire ? (SF_Rituel)

J'ai essayé en remplaçant le "frm" et le "Form", dans les deux cas sans résultat (bug à l'ouverture).

Je crois que c'est ce bout de code qui demande à être adapté à ta BD :

Code :

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

Set frm = Forms!frmlistdetails

**brice45** · 18/07/2012, 14h05

Je suis d'accord avec Kaptin

**brice45** · 18/07/2012, 14h06

Code :

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

Set frm = Forms!SF_Rituel

**pikayo** · 18/07/2012, 15h04

Bonjour Kaptin

,

Apparement ma base Access est complètement saoul ! J'ai bien remplacé avec mon nom de sous formulaire, et Access me dit qu'il ne le trouve pas

Toujours une erreur à l'ouverture ... Peut être les majuscules ou le tiret ?

Sinon le bouton ça m'a l'air d'être opérationnel

Revoici le code que j'ai inscrit :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
 
Dim frm As Form
Set frm = Forms!SF_Rituel
DoCmd.GoToRecord , , acLast
End Sub

Et le nom du sous formulaire j'ai fait un copier/coller à partir du nom dans la base, il n'y a donc pas de risque d'erreur ...

**Domi2** · 18/07/2012, 15h11

Bonjour,

Envoyé par pikayo

Lorsque j'essaye d'afficher l'enregistrement avec la date la plus grande, dans mon sous formulaire s'affiche alors uniquement le dernier enregistrement créé (celui qui se créé automatiquement lors de l'ouverture d'une table). J'ai donc la date qui s'affiche mais les deux autres champs restent vides.

Ca me semble bien compliqué, tout ça (pas la question, les solutions données précédemment).

Pour éviter d'afficher l'enregistrement vierge, tu mets simplement la propriété Entrée données du formulaire qui te sert de sous-formulaire à Non.

Maintenant, pour le tri. Quelle est la source données de ton son formulaire ?

La table, une requête graphique, une requête SQL ?

As-tu un champ NuméroAuto dans table ? Si oui, comment se nomme-t'il ?

Domi2

**Kaptin** · 18/07/2012, 15h28

Bonjour,

Et le nom du sous formulaire j'ai fait un copier/coller à partir du nom dans la base, il n'y a donc pas de risque d'erreur ...

Attention, as-tu pris le nom du sous-formulaire qui était dans Propriété -> Autres -> Nom ?

Parce que ça ne veux pas dire que ton sous-formulaire porte le même nom dans ton formulaire.

Au plaisir

**pikayo** · 18/07/2012, 15h41

Envoyé par Domi2

Bonjour,

Ca me semble bien compliqué, tout ça (pas la question, les solutions données précédemment).

Pour éviter d'afficher l'enregistrement vierge, tu mets simplement la propriété Entrée données du formulaire qui te sert de sous-formulaire à Non.

Maintenant, pour le tri. Quelle est la source données de ton son formulaire ?

La table, une requête graphique, une requête SQL ?

As-tu un champ NuméroAuto dans table ? Si oui, comment se nomme-t'il ?

Domi2

Hello !

Effectivement, tout simplement. Par contre c'est le premier enregistrement qui s'affiche

La source donnée c'est la table.

Pas de NuméroAuto, uniquement une clé primaire sur la Date. J'aurai en gros une ligne par jour, sauf week end, jours fériés ...

**Domi2** · 18/07/2012, 15h45

C'est normal que ce soit le dernier enregistrement, ce n'est pas trié.

Quels sont les noms de tes champs dans la table ?

Domi2

**pikayo** · 18/07/2012, 15h52

Envoyé par Kaptin

Bonjour,

Attention, as-tu pris le nom du sous-formulaire qui était dans Propriété -> Autres -> Nom ?

Parce que ça ne veux pas dire que ton sous-formulaire porte le même nom dans ton formulaire.

Au plaisir

Bien vu c'était pas le même nom

. Par contre toujours pareil ... même erreur

Nom di diou ! J'ai pourtant fait un copier/coller du nom dans le code VBA, le nom du sous formulaire là où il y a l'ensemble des formulaires ainsi que dans les propriétés du sous formulaire et toujours pareil !

Envoyé par Domi2

C'est normal que ce soit le dernier enregistrement, ce n'est pas trié.

Quels sont les noms de tes champs dans la table ?

Domi2

Mes champs s'appellent respectivement : Date /// Nom /// Prenom

En tous cas merci de votre aide les gens !

**Domi2** · 18/07/2012, 15h58

Ok, j'ai oublié de regarder dans le premier message.

Attention, tu utiles des mots réservés par Access comme nom de champ (Date, Nom). Cela est à éviter à tout prix.

Renomme tes champs de façon explicite (tu pourrais très bien avoir le champ Date dans deux tables).

Date ==> RituelDate
Nom ==> RituelNom
Prénom ==> RituelPrenom

Ensuite, dans la propriété source de ton formulaire, au lieu de la table, tu colles ceci :

Code :

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

SELECT Rituel.RituelDate, Rituel.RituelNom, Rituel.RituelPrenom FROM Rituel ORDER BY Rituel.RituelDate DESC;

Tu peux aussi faire une requête dans le QBE, que tu prends comme source de données.

Domi2

**pikayo** · 18/07/2012, 16h54

Envoyé par Domi2

Ok, j'ai oublié de regarder dans le premier message.

Attention, tu utiles des mots réservés par Access comme nom de champ (Date, Nom). Cela est à éviter à tout prix.

Renomme tes champs de façon explicite (tu pourrais très bien avoir le champ Date dans deux tables).

Date ==> RituelDate
Nom ==> RituelNom
Prénom ==> RituelPrenom

Ensuite, dans la propriété source de ton formulaire, au lieu de la table, tu colles ceci :

Code :

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

SELECT Rituel.RituelDate, Rituel.RituelNom, Rituel.RituelPrenom FROM Rituel ORDER BY Rituel.RituelDate DESC;

Tu peux aussi faire une requête dans le QBE, que tu prends comme source de données.

Domi2

Yeaah, ça m'a l'air de fonctionner cette affaire ! Par contre j'ai galéré car mon nom de table dans ma base est en réalité : 0160_T_Rituel, et apparement il aime pas trop le "0160_T_", j'ai donc du le supprimer

. Si jamais quelqu'un sait comment je pourrais conserver cette "entête"

Maintenant je vais créer un autre formulaire pour créer un nouvel enregistrement (le premier sur la page d'acceuil je met aucune modif possible). Merci à vous

**Domi2** · 18/07/2012, 17h14

Pour conserver ton nom de table original, tout simplement :

Code :

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

SELECT 0160_T_Rituel.RituelDate, 0160_T_Rituel.RituelNom, 0160_T_Rituel.RituelPrenom FROM 0160_T_Rituel ORDER BY 0160_T_Rituel.RituelDate DESC;

Envoyé par pikayo

Maintenant je vais créer un autre formulaire pour créer un nouvel enregistrement (le premier sur la page d'acceuil je met aucune modif possible). Merci à vous

Pourquoi ? Tu peux très bien le faire depuis ta page d'accueil !

Mais c'est un autre sujet. Tu passes donc cette discussion en "Résolu" et tu en ouvres une autre, avec un titre explicite.

**pikayo** · 18/07/2012, 17h40

Bah non justement, c'est bien ce que j'avais fait, mais il me met à l'ouverture le message d'erreur suivant : "erreur de syntaxe dans l'expression '0160_T_Rituel.RituelDate'"

Je remplace le nom de la table par 0160_T_Rituel, le nom de la tabledans le code SELECT... ça fonctionne pas. J'enlève le 0160_T_ dans le nom de la table et dans le code SELECT... et ça refonctionne

**Domi2** · 19/07/2012, 08h07

Arf,

A force d'utiliser des mots réservés, des caractères accentués ou spéciaux, ou encore donner des noms à coucher dehors à vos objets, voilà ce qui arrive.

Code :

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

1
2
3
SELECT [0160_T_Rituel].RituelDate, [0160_T_Rituel].RituelNom, [0160_T_Rituel].RituelPrenom
FROM 0160_T_Rituel
ORDER BY [0160_T_Rituel].RituelDate DESC;

Un tuto à lire d'urgence : Descriptif des conventions typographiques du code Visual Basic

Bon je crois qu'on y parle pas des tables, mais le principe reste valable.

0160_T_Rituel ou tblRituel, tu me dis honnêtement lequel des deux objets est probablement une table.

Domi2

**pikayo** · 19/07/2012, 08h58

Envoyé par Domi2

Arf,

A force d'utiliser des mots réservés, des caractères accentués ou spéciaux, ou encore donner des noms à coucher dehors à vos objets, voilà ce qui arrive.

Code :

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

1
2
3
SELECT [0160_T_Rituel].RituelDate, [0160_T_Rituel].RituelNom, [0160_T_Rituel].RituelPrenom
FROM 0160_T_Rituel
ORDER BY [0160_T_Rituel].RituelDate DESC;

Un tuto à lire d'urgence : Descriptif des conventions typographiques du code Visual Basic

Bon je crois qu'on y parle pas des tables, mais le principe reste valable.

0160_T_Rituel ou tblRituel, tu me dis honnêtement lequel des deux objets est probablement une table.

Domi2

Aïe, merci de ton aide

C'est sur que visuelement on voit directement que tblRituel est une table. Mais lorsqu'il existe 15-20 tables dans un fichier access, qu'on manipule tous les jours, on se rapelle plus facilement d'un numéro. Au moins la table est toujours à la même place. Alors que si on utilise le préfixe tbl+nom, dès qu'on va rajouter une table, la position de celle-ci dans la liste est suceptible de changer. Enfin c'est vrai qu'on est de sacré feignants !

En tous cas merci à toi, j'ai mis en résolu !

**Pierre Fauconnier** · 01/08/2012, 13h14

Salut.

Hors sujet, mais je ne peux m'empêcher de réagir sur ceci.

Envoyé par pikayo

[...]
Pas de NuméroAuto, uniquement une clé primaire sur la Date. J'aurai en gros une ligne par jour, sauf week end, jours fériés ...

Choix catastrophique. Il est de loin préférable de laisser Access gérer la clé primaire, quitte à passer le champ RituelDate en indexé sans doublon si on ne veut vraiment pas de doublons.

Choisir une clé primaire sous format date/heure va imposer de choisir les clés externes liées sur le même format, ce qui va alourdir ta base et la faire ramer.

Une lecture et une appropriation des bases d'Access est une nécessité...

Afficher dernier enregistrement dans un sous formulaire [AC-2003]

IHM

Discussions similaires

Partager

Partager