#7760
sfritz
Participant

    I have tried what you have suggested and get an error stating the following:

    Formativ Applet runtime error
    G:AdvansysFormativAppletsCDIP Monthly Activities.vbf
    Object doesn’t support this property or method: ‘iDlg.ModalResult’ at line 206, column 3

    I have attached the code for you to look at just incase I did not explain myself properly.
    Thanks in advance for your continued support.

    ‘——————————————————————————-
    ‘ Insert your comments here
    ‘——————————————————————————-
    Dim iDlg
    HRT = Chr(13) & Chr(10)
    const CAPTION = “Chronic Disease and Injury Prevention Reporting Solutions”
    logo = Utilities.GetDataDirectory & “logo.gif”

    Sub Main(Client, GWEvent)
    dim I
    dim iGuidelines, iGuideline
    dim oItem
    IntroDlg
    select case iDlg.execute
    case Btn1 AddNewRecord
    case Btn3 DisplayAllRecords(iADOObj)
    case Btn4 FindRecord(iADOObj)
    case Btn5 EditRecord(iADOObj)
    end select
    End Sub

    ‘——————————————————————————-
    Sub AddNewRecord
    CDIP_FRM.showmodal
    end sub

    Function IntroDlg
    set iDlg = Utilities.NewControlBoxDialog
    with iDlg
    .Caption = CAPTION
    .Height = 550
    .ShowWizardImage = False
    .Title = “CDIP Monthly Activities Reporting Management”
    .Button1Caption = “&Add”
    .Button3Visible = True
    .Button3Caption = “&Display All”
    .Button4Visible = True
    .Button4Caption = “&Find Record”
    .Button5Visible = TRUE
    .Button5Caption = “&Update”
    .Description = HRT & “This applet will allow you to add a new record, display ” &_
    “all records or find a record in the database.” & HRT & HRT
    end with
    set ImageCtl = iDlg.AddImageControl
    with ImageCtl
    .ImageFile = ” C:Program FilesAdvansysFormativimageslogo.gif”
    .center = TRUE
    .stretch = true
    end with
    End Function

    Sub setcalendar(Sender)
    CDIP_FRM.MonthEdit.date = now
    End Sub

    Sub Clear_form
    dim a_cnt
    CDIP_FRM.MonthEdit.date = now
    CDIP_FRM.Geographic_Area.ItemIndex = -1
    CDIP_FRM.Topic.ItemIndex = -1
    CDIP_FRM.Channel.itemindex = -1
    CDIP_FRM.Method.itemindex = -1
    CDIP_FRM.Target.itemindex = -1
    CDIP_FRM.keymessage.text = “”
    CDIP_FRM.Number_Reached.text = “”

    with CDIP_FRM.ListView.Items
    for I = 0 to .Count – 1
    if .Item(I).Selected then
    CDIP_FRM.ListView.itemindex = -1
    end if
    next
    end with
    End Sub

    Sub Add_Record
    dim iRST
    dim t_cnt
    dim iUserid
    dim iMonth
    dim iYear
    dim iArea
    dim iTopic
    dim iChannel
    dim iMethod
    dim iTarget
    dim iReached
    dim iKeymsg
    dim i_Guideline_area
    dim i_Guideline_num
    dim i_Guideline
    dim I

    call msgbox(“Adding Record”)

    iUserid = groupwise.EnvUserID
    iKeymsg = CDIP_FRM.keymessage.text
    iYear = Year(CDIP_FRM.MonthEdit.Date)
    iMonth = Month(CDIP_FRM.MonthEdit.Date)
    iChannel = CDIP_FRM.Channel.text
    iMethod = CDIP_FRM.Method.text
    iTarget = CDIP_FRM.Target.text
    iReached = CDIP_FRM.Number_Reached.text

    If CDIP_FRM.Geographic_Area.ItemIndex > -1 Then
    aidx = CDIP_FRM.Geographic_Area.ItemIndex
    iArea = CDIP_FRM.Geographic_Area.items(aidx)
    End if

    If CDIP_FRM.Topic.ItemIndex > -1 Then
    tidx = CDIP_FRM.Topic.ItemIndex
    iTopic = CDIP_FRM.Topic.items(tidx)
    End if

    with CDIP_FRM.ListView.Items
    for I = 0 to .Count – 1
    if .Item(I).Selected then
    iGuideline_area = iGuideline_area & vbnewline & .Item(I).Caption
    iGuideline_num = iGuideline_num & vbnewline &.Item(I).SubItems(0)
    iGuideline = iGuideline & vbnewline &.Item(I).SubItems(1)
    end if
    next
    end with

    Set iADOObj = CreateObject(“ADODB.Connection”)
    if isobject(iADOObj) then

    ‘ open the test data source with the Connection object
    iConnnectString = “Driver={MySQL ODBC 3.51 Driver}; Data Source=CDIP_Connect”
    iADOObj.Open iConnnectString

    ‘ Are we connected?
    if err.number = 0 then
    iSQLString = “Insert into activities_dtl (month, year, area, topic, channel, method, target, num_reached, key_message, guideline_area, guideline_num , guideline, userid) values (‘” & iMonth & “‘,'” & iYear & “‘,'” & iArea & “‘,'” & iTopic & “‘,'” & iChannel & “‘,'” & iMethod & “‘,'” & iTarget & “‘,'” & iReached & “‘,'” & iKeymsg & “‘,'” & iGuideline_area & “‘,'” & iGuideline_num & “‘,'” & iGuideline & “‘,'” & iUserid & “‘” & “)”

    ‘ ISQLString = “INSERT INTO activities_dtl(month, year, area, topic, channel, method, userid values(‘” & iMonth & “‘,'” & iYear & “‘,'” & iArea & “‘,'” & iTopic & “‘,'” & iChannel & “‘,'” & iMethod & “‘,'” & iUserid & “‘” & “)”
    ‘Msgbox iSQLString
    Set iRST = iADOObj.Execute(iSQLString)
    iADOobj.Close
    Set iRST = Nothing
    end if
    else
    call msgbox(“Failed to create ADODB.Connection object.”, vbCritical, CAPTION)
    end if
    Set iADOObj = Nothing
    End Sub

    Sub SubmitBtnClick(Sender)
    dim x, SearchString, SearchChar, MyPos

    if CDIP_FRM.Geographic_Area.ItemIndex = -1 then
    msgbox(“Please select a geographic area from the radio group”)
    CDIP_FRM.SubmitBtn.ModalResult = MRNONE
    exit sub
    end if

    if CDIP_FRM.Topic.ItemIndex = -1 then
    msgbox(“Please select a topic from the radio group”)
    CDIP_FRM.SubmitBtn.ModalResult = MRNONE
    exit sub
    end if

    if CDIP_FRM.Channel.ItemIndex = -1 then
    msgbox(“Please select the channel used, click on the down arrow for valid selections.”)
    CDIP_FRM.SubmitBtn.ModalResult = MRNONE
    exit sub
    end if

    if CDIP_FRM.Method.ItemIndex = -1 then
    msgbox(“Please select the method used, click on the down arrow for valid selections.”)
    CDIP_FRM.SubmitBtn.ModalResult = MRNONE
    exit sub
    end if

    if CDIP_FRM.Target.ItemIndex = -1 then
    msgbox(“Please select the target audience, click on the down arrow for valid selections.”)
    CDIP_FRM.SubmitBtn.ModalResult = MRNONE
    exit sub
    end if

    SearchString = CDIP_FRM.Method.Text ‘ String to search in.
    SearchChar = “Media Campaign” ‘ Search for “P”.
    MyPos = Instr(1, SearchString, SearchChar, 1)

    if (MyPos > 0 and CDIP_FRM.keymessage.Text = “”) then
    msgbox (“You must enter the key message when using a Media Campaign method”)
    CDIP_FRM.SubmitBtn.ModalResult = MRNONE
    end if

    if (CDIP_FRM.ListView.itemindex < 0) then
    msgbox(“Select the applicable guideline from the list to proceed.”)
    CDIP_FRM.ListView.setfocus
    CDIP_FRM.SubmitBtn.ModalResult = MRNONE
    exit sub
    end if

    Add_Record
    myvar = Msgbox (“Do you wish to add another record?”,vbYesNo )
    if myvar = vbYes then
    Clear_form
    end if
    if myvar = vbNo then
    CDIP_FRM.ModalResult = MROK
    end if
    iDlg.ModalResult = MRNONE
    End Sub

    Sub CancelClick(Sender)
    exitvar = Msgbox (“Exit without saving changes?”,vbYesNo )
    if exitvar = vbYes then
    CDIP_FRM.CANCEL.ModalResult = MRCANCEL
    end if

    if exitvar = vbNo then
    CDIP_FRM.ModalResult = MRNONE
    end if
    End Sub