Discussion :

[chetflo]

Bonjour,

J'aimerais savoir comment faire pour recupérer une valeur d'un champs du formulaire est la stocké dans une variable.

La valeur est une date.

Merci de m'aider.

[cari]

si la valeur est dans champ, on fait nomduchamp.text
si la valeur se trouve dans un dtpicker (par exemple) , on fait le nomducomposant.value.
la valeur doit être prise où exactement (dans quelle composant)?

[chetflo]

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim frm As Form
Dim tmp As Date
Set frm = Forms![frm_factures]![tb_lignes sous-formulaire]![Date]
tmp = frm!Date
MsgBox (tmp)
Set frm = Nothing
End Sub

C'est la valeur du champ "Date" que j'aimerais?
Cela ne fonctionne pas

[ouskel'n'or]

Set frm = Forms![frm_factures]![tb_lignes sous-formulaire]![Date]
tmp = frm!Date

Je travaille sur VBA 97 et je ne connais pas cette syntaxe. Tu devrais préciser VB / VBA

Cependant, j'essaierais d'adapter :

Code :

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

1
2
3
4
5
6
Set frm = Forms("frm_factures").tb_lignes sous-formulaire
With frm
    tmp = .Date
end with
Set frm = Nothing
MsgBox (tmp)

Sous toute réserve (tu n'as pas répondu à la question de Cari)

Tu dis

[chetflo]

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim monSF As Form
Set monSF = Forms![frm_factures]![sf_lignes].Form!
MsgBox (Forms![frm_factures]![sf_lignes].Form![Date])
 
End Sub

Le code si dessus me renvoie bien la date en message box mais moi j'aimerais bien pouvoir la stocké dans une variable mais je n'arrive pas.
J'ai déclarer une variable de type date,de type string... mais ca ne marche pas.

[ouskel'n'or]

Set monSF = Forms![frm_factures]![sf_lignes].Form!
MsgBox (Forms![frm_factures]![sf_lignes].Form![Date])

Tu veux dire que tu ne peux pas remplacer msgbox par une variable, c'est bien ça ?

A+

[chetflo]

oui c'est ça.

[SfJ5Rpw8]

tu as quoi comme message d'erreur si tu saisi

Code :

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

MaDate = (Forms![frm_factures]![sf_lignes].Form![Date])

[chetflo]

c'est bon j'ai trouvé mon erreur.


Merci pour l'aide.

[SfJ5Rpw8]

bon marque et fais nous un résumé de la correction..

[chetflo]

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
  Dim monSF As Form
  Dim maDate As Date
  Set monSF = Forms![frm_factures]![sf_lignes].Form!
  maDate = (Forms![frm_factures]![sf_lignes].Form![Date])
  MsgBox (maDate)
End Sub

[ouskel'n'or]

Set monSF = Forms![frm_factures]![sf_lignes].Form!

ne sert plus à rien ou je me trompe ?

A+