Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Maximizer OLE

Maximizer OLE

Maximizer OLE

Does anyone out there use OLE to interface with Maximizer?
I have a very simple piece of VB code that hangs off a maximzer toolbar button. It returns me the current company information no problem. I then want to loop through all contacts for that company and I can't find the commands to access them
Any help gratefully appreciated. Skeleton Code follows.
I'm also going to post this in the VB forum on the off chance.......

Private Sub Command2_Click()
Dim objMaxAttach As New MaximizerTLB.AttachToCurrentInstance    ' Define CurrentInstance object of running Maximizer
Dim objMaxCur As MaximizerTLB.CurrentRecord  ' Define Current Record Object variable
Dim objMaxApp As MaximizerTLB.Application
Set objMaxApp = objMaxAttach.GetApplicationObject
Set objMaxCur = objMaxAttach.GetCurrentRecordObject ' client or contact

With objMaxCur

sresult = .GetFieldValue("City")
Text1.Text = sresult
' check fields required

myRecType = .GetFieldValue("rectype")
'1=companmy, 31=contact, 2=indivisual

Select Case myRecType
Case Is = 31
Case Is = 1
    objMaxApp.ActivateWindow ("Contact")

' get contacts here and loop through
  '  Call objMaxCur.ScrollList("top")
   ' Call objMaxCur.ScrollList("linedown")
Case Is = 2
End Select

End With

Set objMaxCur = Nothing ' Release object
Set objMaxAttach = Nothing   ' Release Object
End Sub

RE: Maximizer OLE

Greetings!  Your best to contact Maximizer about purchasing the Toolkit for the software.  It provides documentation pertaining to OLE interfaces.


James Keep, A.C.E.
Crystal Reports(tm) Certified Consultant 8.5 (CRCC)
Crystal Decisions Business Partner
Montreal, Qc, Canada

RE: Maximizer OLE

Thanks - I HAVE the toolkit - problem has now clarified - the thing does work but after exiting the VB it closes the Max address book (leaves a pale blue screen) and then crashes Maximizer. I have a Maximizer agent looking at it for me now ... but if anyone knows of a similar bug or whatever?

RE: Maximizer OLE

Q:  What version of Maximizer Enterprise are you using and which database engine??

James Keep, A.C.E.
Crystal Reports(tm) Certified Consultant 8.5 (CRCC)
Crystal Decisions Business Partner
Montreal, Qc, Canada

RE: Maximizer OLE

Thanks for your continued interest - you're the only person in the whole world who cares!!!!!!
I have now got an upgrade for maximizer and it now doesn't crash (well-not yet anyway) - it still closes the address book window and leaves me with a pale blue screen though -annoying - I'm on 7.5 series 1344 pervasive build 173.
If you don't mind another thing? - I'm trying to do an update to name_and_address and although the GetFieldValue works fine the SetFieldValue doesn't do anything. I can re-work it with individual fields (e.g. address_line_1 etc)but is this a known problem?
Thanks in advance
Judith Pizer

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close