Referencing split form data / filter

[stephenaa5]

Hello, all.


Is it possible to reference the choices made on a split form for use in a query?

Once a user winnows down the data to what they'd like to see, I would like to be able to use that data for other purposes (namely mapping.) The mapping part is worked out, it is just a matter of referencing the data set.

Any ideas? Thank you in advance.

Stephen.

[NTC]

One can reference a unique control. In a continuous form unique controls are in the header/footer of the form - but there isn't a unique control in the detail because the records are multiple. But if the user is in the form and tabbing or entering data inside one record you can use that event to write the value to an unbound unique control up in the header - and then reference that control.

hope that helps.

[stephenaa5]

I've been unable to figure out how to actually use the choices made in parsing the data in a split form. The following code at least kicks it out to an Excel file, which makes it useable. I'm posting it here because, while not a normal application, at least provides some options for folks to think about. The trick is that it has to go through a report that's filtered by the split form, and then the report has to be output before the report closes. There may be other ways to do this, along the same line, but this solved my problem.

The only problem I'm now having is that the lower part of the code (the mapping part) gives a runtime error. Runs fine on full version of access, but runtime causes issues. Any thoughts? I'll repost this as a new question.

------------------------------------------------------
Stephen.

Private Sub Command406_Click()
DoCmd.Openreport "mapreport", acViewPreview, , Me.Filter, acHidden
DoCmd.OutputTo acOutputReport, "mapreport", acFormatXLS, "c:\map\mapfile.xls"
DoCmd.Close acReport, "mapreport"


Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Set objMap = objApp.ActiveMap
objApp.Visible = True
objApp.UserControl = True
Dim oDS As MapPoint.DataSet
With objApp.ActiveMap.DataSets
Set oDS = .ImportData("c:\map\mapfile.xls", , geoCountryUnitedStates, , geoImportExcelSheet)

End With

objMap.DataSets.ZoomTo

End Sub