Discussion :

[comme de bien entendu]

Bonjour,
Je voudrais dans la mise à jour d'un champs, permettre d'extraire une date d'un champs pour venir le concatener à d'autres données dans un autre champs.
Voilà ce que j'ai écris après plusieurs tentatives infructueuses.

Code :

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

1
2
 
Call MAJ_QUARTER("DataBase")

Code :

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

1
2
3
4
Sub MAJ_QUARTER(table As String)
requeteQ1_A_N = "UPDATE " & table & " set quarter = '" & "FY" & Donne_Annee(table) & "Q1';"
DoCmd.RunSQL requeteQ1_A_N
end sub

Code :

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

1
2
3
4
5
Function Donne_Annee(BDD As String) As String
Dim lannee As Integer
lannee = Year(BDD.[Coverage End Date])
Donne_Annee = lannee
End Function

Merci d'avance de vos idées.

[marot_r]

Bonjour.

Pour récupérer l'année

Code :

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

1
2
3
4
5
Function Donne_Annee(BDD As String) As String
   Dim lannee As Integer
   lannee = Year(DFirst("[Coverage End Date]", bdd)
   Donne_Annee = lannee
End Function

mais comme tu passes un nom de table je te suggère

Code :

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

1
2
3
4
5
Function Donne_Annee(nomtable As String) As long
   Dim lannee As Integer
   lannee = Year(DFirst("[Coverage End Date]", nomTable)
   Donne_Annee = lannee
End Function

et

Code :

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

sub MAJ_QUARTER(nomTable As String)

Le reste devrait fonctionné.

A+

[comme de bien entendu]

Merci, je test cela Lundi. Bon week-end.

[comme de bien entendu]

Merci, je test cela Lundi. Bon week-end.

Non finalement cela ne marche pas, il faut tenir compte du fais que je cherche à récupérer l'année du champs [Coverage End date] sur le upplet selectionné pour faire le update du champs [QUARTER];

voici une autre de mes tentatives :

Code :

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

requeteQ1_A_N = "UPDATE " & table & " SET QUARTER = '" & "FY" & Right(Chr(34) & table & Chr(34) & .[Coverage End Date], 4) & Chr(34) & "Q1'"

Merci d'avance de vos idées.

[marot_r]

Bonjour.

Peux-tu poster la structure de la table "table" ? Ça aiderai à trouver la bonne syntaxe.

Sinon, tu peux aussi faire la requête avec l'éditeur de requête de Access puis changer l'affichage pour SQL.
Généralement il est ensuite assez facile de transformer le SQL généré par Access pour l'utiliser dans VBA.

A+

[comme de bien entendu]

Bonsoir,
Finalement j'ai testé en utilisant le mode requête Sql d'Access. C'est beaucoup plus simple pour comprendre les bugs de positionnement des simple et double guillemets. Je fais un debug.print que je recopie plus facilement dans Access. J'essayerai de copier la version qui marche cela requête demain pour clore le sujet.