VBA Access - Recup Valeur Textfield

Résolu/Fermé

Jude - 7 sept. 2010 à 12:14
Jude - 7 sept. 2010 à 15:22

Bonjour à toutes et à tous,

Je suis sous Access 97 et j'aimerai récupérer en VBA la valeur d'un textfield (Formaté en date).
ce textfiel se nomme 'DateDebut' situé dans un formulaire nommé 'Date enregistrement'.

J'ai essayé comme ceci mais ça ne fonctionne pas :

Dim Dat As String

Dat = Forms![Date enregistrement]!DateDebut.Value
//Ou
Dat = Forms.[Date enregistrement].DateDebut.Value

Si quelqu'un peut m'aider.

Merci beaucoup.

A voir également:

VBA Access - Recup Valeur Textfield
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
Access appdata - Guide
Acer quick access - Forum Logiciels
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Acer Quick Access - affichage CapsLock, VerrNum - Forum logiciel systeme

2 réponses

Réponse 1 / 2

Jude
7 sept. 2010 à 15:16

c'est bon j'ai ma réponse pour ceux que ça intéresse:

Dim DatDeb As Date

DatDeb = [Form_Date enregistrement].DateDebut.Value

Mais j'ai un autre souci ! 'DateDeb' est au format Date et je voudrai nommé un fichier avec 'DateDeb'. j'ai donc découpé comme suit ma date :

Dim JourDeb As String, MoisDeb As String, AnneeDeb As String

DatDeb = [Form_Date enregistrement].DateDebut.Value

MoisDeb = Month(DatDeb)
AnneeDeb = Year(DatDeb)

Mais MoiDeb = 'un nombre'

hors je voudrais que le mois s'affiche en 'lettre' par exemple au lieu d'afficher 10 il afficherai Oct ou Octobre

Y aurait il un moyen de convertir sans passer par un case et me taper les 12 mois de l'année??

Sioux plaie

Merci

Réponse 2 / 2

Jude
7 sept. 2010 à 15:22

C'est bon merci :
MoisDeb = Format(DatDeb, "mmmm")

Discussions similaires

Problème de restrictions

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

C'est quoi le runtime Access ?

Acer quick access