Discussion :

[stéphane_ais2]

Bonjour,

Je souhaite récupérer la valeur d'une zone de texte (qui est dans un état) dont la source contrôle est:

Code :

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

=Format(Date();"Date, complet")

pour l'ajouter comme donnée d'un champ (doss_resco_d) de la tblDossiers.

Pourriez-vous m'orienter vers le bon chemin...? svp...

Merci pour vos réponses

SE

[stéphane_ais2]

J'ai essayé de définir une variable sur l'évenement fermeture de l'état

Code :

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

1
2
3
 
Dim D As String
D = Me.txtDateEdition

puis j'ai mis une msgbox pour contrôler la valeur renvoyée. Et cela fonctionne.

Mais si je fais

Code :

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

1
2
3
 
Dim D as date
D = Me.txtDateEdition

cela me renvoie une erreur d'incompatibilité de type...
Je ne comprends pas pourquoi?

SE

[hocine]

salut,
salut vous n'avez qu'à changer la proriété Format de votre txtDateEdition en la maitant à date.
propriété/format/date.
Bonne chance.
Merci.

[stéphane_ais2]

Merci Hocine pour ta réponse...
Mais le format de cette zone de texte indépendante est déjà précisée...

Code :

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

1
2
 
=Format(Date();"Date, complet")

Non?

SE

[stéphane_ais2]

En fait si j'utilise la fonction Date pour attribuer à la variable la valeur du jour cela fonctionne...

Code :

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

1
2
Dim D As Date
D = Date

...

SE

[stéphane_ais2]

Je reviens sur ma question initiale qui consiste à récupérer ma valeur et à la stocker dans la table pour l'enregistrement qui fait l'objet de l'état.
J'ai écris ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim D As Date
D = Date
Set db = CurrentDb()
Set rst = db.OpenRecordset("tblDossiers")
rst.AddNew
rst!doss_resco_d = D
rst.Update
rst.Close
Set rst = Nothing
Set db = Nothing

Cela ne fonctionne pas car un enregistrement est requis dans une table liée. C'est normal.
Comment faut-il que je fasse pour ajouter la nouvelle valeur uniquement sur l'enregistrement concerné?

Merci pour vos réponses

SE

EDIT : la méthode AddNew n'est pas adéquate. Quelle méthode puis-je utiliser?

[stéphane_ais2]

Bonjour,

Je ne tente pas de faire remonter mon post...

Je ne sais pas quelle méthode utilisée pour répondre à mon problème...
Est-ce que la propriété

Code :

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

Bookmark

peut être utile?

Merci de bien vouloir m'aiguiller...

SE

[Petogaz]

salut,

as-tu essayé avec la fonction Cdate ?

Code :

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

1
2
Dim D as date 
D = CDate(Me.txtDateEdition)

et bien entendu pour stocker la valeur il faut passer par une requête d'ajout.

Cela ne fonctionne pas car un enregistrement est requis dans une table liée. C'est normal.
Comment faut-il que je fasse pour ajouter la nouvelle valeur uniquement sur l'enregistrement concerné?

il me semble que ta table Dossier est liée à une table primaire quelconque et ses tables ont une intégrité référentielle. ce qui veux dire tu ne paux ajouter une donnée dans ta table dossier si cette données n'existe pas pas dans la table primaire.

[stéphane_ais2]

Merci pour ta réponse Petogaz...
La fonction

Code :

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

Date

semble répondre à mon besoin...

Tu dis

Il me semble que ta table Dossier est liée à une table primaire quelconque et ses tables ont une intégrité référentielle. ce qui veux dire tu ne paux ajouter une donnée dans ta table dossier si cette données n'existe pas pas dans la table primaire.

Oui je suis d'accord. C'est ce que je disais aussi

Cela ne fonctionne pas car un enregistrement est requis dans une table liée. C'est normal.

Ma question porte précisement sur le fait d'ajouter une valeur (celle de la variable D) dans un champ d'un enregistrement déjà existant...l'enregistrement qui fait l'objet de l'état sur lequel je récupére la date d'édition sous la forme de la variable D.

SE

[Petogaz]

si je comprend tu veux remplacer la valeur existante du champ doss_resco_d par ta valeur de D ?
si c'est le cas il faut utiliser la méthode

Code :

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

.Edit

à la place de

Code :

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

.Addnew

dans ta procédure. c'est donc une mise à jour que tu veux faire ?
dis moi si j'ai saisi ta question.

[stéphane_ais2]

Oui c'est bien cela sauf que le champ n'a pas encore de valeur avant de lui attribuer celle de la variable D...
J'ai essayé ça :

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
Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim D As Date
    Dim f As Form
    D = Date
    Set db = CurrentDb()
    Set rst = db.OpenRecordset("tblDossiers", dbOpenDynaset)
    Set f = Forms!frmEleves!sfEleves.Form
    rst.Edit
    rst!num_eleve = f!num_eleve
    rst!doss_resco_d = D
    rst.Update
    rst.Close
    Set rst = Nothing
    Set db = Nothing

Cela semble fonctionner mais donne des résultats curieux dans la tbl...
Je vais regarder...

SE

[stéphane_ais2]

C'est résolu.
Merci à Petogaz pour le conseil de la méthode Edit

Pour information je laisse le code qui fonctionne :

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
Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim D As Date
    Dim f As Form
 
    D = Date
    Set db = CurrentDb()
    Set rst = db.OpenRecordset("tblDossiers", dbOpenDynaset)
    Set f = Forms!frmEleves!sfEleves.Form
 
    rst.FindFirst "[num_eleve] = " & f!num_eleve
    If rst.NoMatch = False And IsNull(rst!doss_resco_d) Then
        rst.Edit
        rst!doss_resco_d = D
        rst.Update
    End If
 
    rst.Close
    Set rst = Nothing
    Set db = Nothing

...

SE