1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| strCommand = "/DATASOURCE=" & strDS & ",TABLE=" & strTable & ",DBQUALIFIER= " & strFile _
& " /NAME-FIELD=" & strID _
& " /UNIQUEID-FIELD=" & strID _
& " /MANAGER-FIELD=" & strMG _
& " /FIRSTNAME-FIELD=" & strFID _
& " /DISPLAY-FIELDS=" & strDisplayFields _
& " /CUSTOM-PROPERTY-FIELDS=" & strPropertyFields _
& " /SYNC-ACROSS-PAGES " _
& " /HYPERLINK-ACROSS-PAGES " _
& " /SHAPE-FIELD=" & strSFD _
& " /LINK-TO-DB"
objAddOn.Run ("/S-INIT")
Dim cmdArray, i
cmdArray = Split(strCommand, "/")
For i = LBound(cmdArray) To UBound(cmdArray)
'MsgBox ("champ n°" & i & " : " & cmdArray(i))
objAddOn.Run ("/S-ARGSTR /" + cmdArray(i))
Next
objAddOn.Run ("/S-RUN ") |
Partager