Alimenter un formulaire Access avec VBA

Fermé

Butsay - 11 avril 2008 à 15:00
CalicoJack Messages postés 47 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 18 décembre 2008 - 17 déc. 2008 à 05:17

Bonjour,

J'ai créé une zone de texte dans un formulaire que je souhaiterais alimenter avec la date du jour, mais sous une autre forme.
Ex: JJ/MM/AAAA modifié en AAAA/MM/JJ

Dans l'interface VBA d'Access, j'ai créé dans un premier temps une fonction qui convertit la date dans un autre format:
Function Convert_date(dat As Date)

Dim i As Integer
Dim ref As Date

For i = 1 To 10

ref(i) = dat(10 - i)

Next

Convert_date= ref

End Function

Puis le code pour alimenter la zone de texte:

Private Sub num_BeforeUpdate(Cancel As Integer)

Convert_date(num)

End Sub

Même si la fonction n'est pas correcte (je corrigerais), je souhaiterais savoir comment l'utiliser dans le second code pour alimenter la zone de texte.
Merci à tous par avance.

A voir également:

Alimenter un formulaire Access avec VBA
Formulaire de réclamation facebook - Guide
Formulaire de reclamation instagram - Guide
Incompatibilité de type vba ✓ - Forum Programmation
Acer quick access - Forum Logiciels
Confirmer le nouvel envoi du formulaire err_cache_miss - Forum Google Chrome

1 réponse

Réponse 1 / 1

CalicoJack Messages postés 47 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 18 décembre 2008 29
17 déc. 2008 à 05:17

Il y a déjà une fonction pour ceci, inutile de réinventer la roue. C'est la fonction FORMAT(). Par exemple:

dim Exemple as date

exemple = JJ/MM/AAAA

FORMAT(exemple;"yyyy-mm-dd") <----- on peut transformer la date comme on veut ici (juste l'année "yyyy" etc.)

Ensuite pour transférer la date dans une zone de texte, il faut attribué la date comme valeur à la zone de texte.

Me.ZoneDeTexte.value = FORMAT(exemple;"yyyy-mm-dd")

ALORS:

Private Sub num_BeforeUpdate(Cancel As Integer)

Me.ZoneDeTexte.value = FORMAT(num;"yyyy-mm-dd")

End Sub

Discussions similaires

Civilité (Mr,Mme,Melle) n' apparait pas lors de l'exécution du formulaire

Bonjour,

Je vous montre la photo imprimé (fait avec le clavier sur la touche (imprim ecran) que j'ai créé 'formulaire en VBA' avec excel 2019 que j'ai nommé

voici le code :

Private Sub CommandButton_AjoutJoueur_Click()
'**************************************
'***** Enregistrement des donnees *****
'**************************************

'**** Civilité *****
ComboBoxCivilite.ColumnCount = 1
ComboBoxCivilite.List = Array("Mr", "Mme", "Melle")

'Nom du Joueur
Cells(1, 2).Value = TextBox_NomJoueur

'Prenom du joueur
Cells(1, 3).Value = TextBox_PrenomJoueur

'Adresse
Cells(1, 4).Va...

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

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

C'est quoi le runtime Access ?

Bonjour,

il y a des questions que je me pose sur Access : Qu'est ce que le runtime d'Access par rapport à Access en lui-même ? Est ce que ça nécéssite une installation particulière comme Access ? Est ce que ça peut faire tourner des macros ?

Merci de vos réponses !

Configuration: Windows XP / Internet Explorer 7.0

Contact LEBONCOIN

Bonjour à tous.

Je n'arrive plus à finaliser mon annonce déposée sur LEBONCOIN après plusieurs essais et plusieurs jours.

J'aimerais les contacter directement pour qu'ils m'expliquent le problème, alors si quelqu'un a l'habitude d'utiliser ce site et qui pourrait me nommer le contact car il n'y a pas de téléphone, ce serait vraiment très aimable.

J'ai Windows 10 et j'utilise le navigateur fourni avec 'EDGE'.

Merci à vous.