Export des exemples de script

Utilisez les exemples d'un script VBA pour composer l'exportation des champs.

Export des champs Initiales, Particule et Nom dans un seul champ :

Function Export()

Dim strResult

With ExportFunctions
' Voer hieronder het script in

'Voorletters

if.GetValue("Ctc", "In") <> "" then
strResult = strResult &.GetValue("Ctc", "In")
end if

'Voorvoegsel

if.GetValue("Ctc", "Is") <> "" then
strResult = strResult & " " &.GetValue("Ctc", "Is")
end if

'Naam

if.GetValue("Ctc", "Nm") <> "" then
strResult = strResult & " " &.GetValue("Ctc", "Nm")
end if

' Voer hierboven het script in
End With

Export = strResult

End Function

Export des champs Rue, Numéro et Ajout numéro dans un seul champ :

Function Export()

Dim strResult

With ExportFunctions
' Voer hieronder het script in

'Straat

if.GetValue("Add", "Ad") <> "" then
strResult =.GetValue("Add", "Ad")
end if

if.GetValue("Add", "HmNr")<> "" then
'Huisnummer

strResult = strResult & ", " &.GetValue("Add", "HmNr")
end if

'Huisnummer toevoeging

if.GetValue("Add", "HmAd") <> "" then
strResult = strResult & " " &.GetValue("Add", "HmAd")
end if

' Voer hierboven het script in
End With

Export = strResult

End Function

Export du champ Sexe (0 pour un homme (M dans Profit) et 1 pour une femme (V dans Profit)) :

Function Export()

Dim strResult

With ExportFunctions
' Voer hieronder het script in

'Contact type

if.GetValue("Ctc", "ViCt") = "M" then
strResult = "0"
else
strResult = "1"
end if

' Voer hierboven het script in
End With

Export = strResult

End Function