1 2 3 4 5 6 7 8
| Sub TOD()
Select Case acFieldName = "Asset group"
Case "Bonds"
DoCmd.RunSQL "UPDATE [All asset step 1] SET [All asset step 1].[Type of deal] = 'Bonds', [All asset step 1].[Type of Exposure SA] = 'Credit Institutions', [All asset step 1].[Type of Exposure G1] = 'Banks'"
Case Else
DoCmd.RunSQL "UPDATE [All asset step 1] SET [All asset step 1].[Type of deal] = 'BBB', [All asset step 1].[Type of Exposure SA] = 'Credit Institutions', [All asset step 1].[Type of Exposure G1] = 'Banks'"
End Select
End Sub |
Partager