Need help to display HP Trim records

[tonez90]

Hi,
We have HP Trim V 7.1.1 installed on our network. I have an access 2010 (32 bit) database which stores document references (in the trim format).
I can get into the database and find the record but it opens TRIM up and waits to be closed down.
What I am trying to do is work with Trim Tree on a form to simply display the top most file and all records under it if they match the input and then use the record number to open the actual record. Has anyone tried to do this?

Cheers
Tonez90

[Dal Jeanis]

Please give further details on this symptom- "it opens TRIM up and waits to be closed down".

1) What does the user do to cause TRIM to open?
2) What specifically causes TRIM to open when they do that?
3) What waits to be closed down?

"work with Trim Tree on a form to simply display the top most file and all records under it if they match the input and then use the record number to open the actual record."
5) When you say "display the topmost file", do you mean display the contents, or the name?
6) When you say "all records under it", do you mean a list of files, or records within the file, or what?

[tonez90]

Hi Dal,
When I select a record number in my access database it opens TRIM and searches for that record and displays it. The user double clicks on a text field to activate the open action. The record causes TRIM to search and display the record. TRIM then is the topmost screen and the access database is locked (i.e. can't move to a screen or field) until TRIM is exited.

With Treeview I mean the Name not the contents and I mean a list of records under the Name (i.e. File -> records)
Do you know of any examples out there that can help with the treeview part?
Cheers
Tony

[tonez90]

Hi,
In addition to the above I have the moddule I use. That may help.
I call the function via this
If Search_Trim_Database(Trim(Me!FileNumber), 2) = False - This is the record name
This is the function I use:
Public Function Search_Trim_Database(search_string As String, trimtype As Integer) As Boolean
Dim objTRIM As TRIMSDK.Database
Dim colDBs As New TRIMSDK.Databases
Dim objRec As Record
Dim objContainer As Record
Dim objLoc As location
Dim objSearch As RecordSearch
Dim colRecords As Records
Dim hWnd As Long
Set objTRIM = New TRIMSDK.Database
Search_Trim_Database = False
objTRIM.ID = Trim_Database_ID ' note DOB dataset is Trim.ID = XXX
' objTRIM.Name = Trim_Database_Name - I could also use this
objTRIM.Connect
Set objSearch = objTRIM.NewRecordSearch
' See http://support.openview.hp.com/selfs...ument/KM509966 for more details - need HP Passport
Select Case (trimtype)
Case 1: Call objSearch.AddTitleWordClause(Trim(search_string)) 'For Words
Case 2: Call objSearch.AddRecordNumberClause(Trim(search_string )) 'For Record Number
Case 3: Call objSearch.AddDateCreatedClause(#1/1/2008#, Date) 'For Date Created between 1/1/2008 and now
Case Else:
Set objSearch = objTRIM.NewRecordSearch
Call objSearch.EditQueryUI(hWnd)
End Select
Set colRecords = objSearch.GetRecords
If IsNull(colRecords) Then
MsgBox "No records found."
Search_Trim_Database = False
objTRIM.Disconnect
Exit Function
End If
' Set objContainer = objSearch.Container
' MsgBox (colRecords.Count)
If colRecords.Count < 1 Then
MsgBox ("No TRIM records have been found using current search parameters..")
Else
' Call colRecords.DesktopDisplayUI(hwnd)
' colRecords.PublishAsHTML (get_tempdir() & "TRIM - " & Format(Now(), "ddd mmm yyyy HH:MM am/pm"))
Call colRecords.DisplayUI(hWnd) 'browse the results
' Debug.Print "Point 1: TRIM Database '" & objTRIM.Name & " - " & objTRIM.ID & "' version: '" & objTRIM.SoftwareVersion & "' is Connected(T/F) - '" & objTRIM.IsConnected & "'"
End If
Search_Trim_Database = True
objTRIM.Disconnect
If objTRIM.IsConnected = True Then objTRIM.Disconnect
End Function