Add items to list object in Dex using VBA

Let's say you have a drop down list box on your Dynamics GP window and you want to add an item to it.  Unfortunately, the list items are being set by dexterity code when the window opens, so this seems impossible.

However, using a little VBA, we can add our own items to the list.

We do this using SanScript!

Here is an example of how to accomplish this:

Private Sub Window_BeforeOpen(OpenVisible As Boolean)

 Dim CompilerApp As Object

    Dim CompilerMessage As String

    Dim CompilerError As Integer

    Dim CompilerCommand As String

    ' Create link without having reference marked

    Set CompilerApp = CreateObject("Dynamics.Application")

    CompilerCommand = ""

    CompilerCommand = CompilerCommand & "add item str(2099) to 'Year' of window MyWindow of form MyForm;"

    ' Execute SanScript

    CompilerApp.CurrentProductID = 131

    CompilerApp.CurrentProduct = CompilerApp.CurrentProduct & "!Modified"

    CompilerError = CompilerApp.ExecuteSanscript(CompilerCommand, CompilerMessage)

    If CompilerError <> 0 Then

        MsgBox CompilerMessage

    End If

End Sub