Macola-ES Flex - error-adding a display field on a form

[efalk]

Running Macola ES 9.5.100 (we have Flex /VBA)
Trying to add a display field on the Multi-level item inquiry screen form (IMITMINQ). First time using this product. Receiver error 424 - object required

Trying to display item activity_cd field to user using a msgbox (or a new display-only field).
used code as follows:
Private Sub ItemNo_Changed()
MsgBox "Activity-Flag" & imitmidx_sql.activity_cd
End Sub

There are NO examples in Macola's Flex userguide (it's for progression product anyway!) Please Help anyone!

 

[NEmacGuy]

You would want :
Private Sub ItemNo_Changed()
MsgBox "some text" & macForm.ActivityCode.Text
End Sub

Note : The change event will fire many times, and you will likely change what you want. But you have to start somewhere. Welcome to flex.

 

[dgillz]

The activity flag is not part of this screen, so NEMacGuy's code will not work.

You will need to add code to retrieve this field's value from the imitmidx_sql table, then display it. I will post some sample code when I get time.




Software Sales, Training, Implementation and Support for Macola, Synergy, and Crystal Reports. Check out our Macola tools:

http://www.gainfocus.biz/exceladdin.html

 

[NEmacGuy]

Dgilz is correct, I used the item master screen.
Corrected code would be like:

Dim RS1 As New ADODB.Recordset
Set RS1.ActiveConnection = macForm.ConnInfpenADOConn
StrSQL = "select activity_cd from imitmidx_sql where item_no = '" & macForm.ItemNo.Text & "' "
if macForm.ItemNo.Text <>"" then
RS1.Open StrSQL
RS1.MoveFirst
MsgBox "Activity-Flag " & RS1("Activity_Cd")
Set RS1 = Nothing
end if

 

[efalk]

I dropped the code in exactly as listed but receive a compiler error: "User-defined type not defined" on the line: Dim RS1 as New ADOB.Recordset

Thanks for your help guys , but any other suggestion on a way to get around this error message?

I tried using code similar to what was on the forum in the 34th group of postings- with a similar need to pull information from a table and display it, but I got a similar result.

 

[efalk]

I dropped the code in exactly as listed but receive a compiler error: "User-defined type not defined" on the line: Dim RS1 as New ADOB.Recordset

Thanks for your help guys , but any other suggestion on a way to get around this error message?

I tried using code similar to what was on the forum in the 34th group of postings- with a similar need to pull information from a table and display it, but I got a similar result.

 

[stravis]

You need to add a reference to the ActiveX Data Objects (ADO)Library. Just choose the greatest version number available from the list.

Scott Travis

http://www.enterpriseexpressions.com