1 2 3 4 5 6
| Function GetDataFactor(ByVal MyLink As String, ByVal MyDate As Date) As String
GetDataFactor = "INSERT INTO Analysis ( [Book], [Currency], [ExpCurrency], [Product], [Index], [Term], [Sensitivity] )"
GetDataFactor = GetDataFactor & " SELECT Data.[Book], Data.[Currency], Data.[ExpCcy], Data.[Product], Data.[SurIndex], Data.[Bucket], Data.[ValueEUR]"
GetDataFactor = GetDataFactor & " FROM Data IN '" & MyLink & "'"
GetDataFactor = GetDataFactor & " WHERE Data.[ValueDate] =" & dateSQL(MyDate) & ";"
End Function |
Partager