I’ve just started trying to include WMs-Layers in my Ms-Access application - and didn’t succeed.
First the URL of the WMS-Server seems to be funny (somethings seems to be missing):
Second the projection is UTM32 but tkTileProjection does not seem to offer this one…
Thirdly I tryed the following code - but nothing seem to happen (I’m quite sure I mixed everything up - maybe someone could help? - Thank you:
Dim objProvider As Object Dim intProviderId As Integer Set objProvider = Me.mapMain.Tiles.Providers intProviderId = CInt(tkTileProvider.ProviderCustom) + 1 objProvider.Add intProviderId, "?berschwemmungsfl?chen", "https://www.lfu.bayern.de/gdi/wms/wasser/ueberschwemmungsgebiete?[hwgf_hqhaeufig] ", tkTileProjection.SphericalMercator, 0, 18 Me.mapMain.Tiles.ProviderId = intProviderId Me.mapMain.Redraw