Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

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

Status
Not open for further replies.

efalk

IS-IT--Management
Mar 31, 2009
6
0
0
US
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!
 
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.
 
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:
 
Dgilz is correct, I used the item master screen.
Corrected code would be like:

Dim RS1 As New ADODB.Recordset
Set RS1.ActiveConnection = macForm.ConnInfo_OpenADOConn
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

 
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.
 
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.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top