[RESOLVED] Passing A Flexgrid To A Function

[rplcmint]

I'm having problems doing this:

I have a MSFlexgrid sitting on a tabbed form named "grdTrans" and a disconnected recordset "rs".

When I pass this grid to a module function "PopulateGrid(ByRef oFlxGrid as MSFlexGrid, ByRef rs as ADODB.Recordset) " it doesn't work.

Seems like the grdTrans object is only viewed as a zero length string or something rather than an object. The recordset seems to be ok.

I tried "Call PopulateGrid (grdTrans, rs)" as well as "Call PopulateGrid(Me.grdTrans, rs) both with no luck.

Can you pass objects to functions in VBA?

[techgnome]

What do you mean by it doesn't work? Do you get an error? Do you not get what you expect? How do yo uknow it's not working?

Also, can you post the code that's "not working?" -- would be a little easier to understand what you are doing.

Tg

[rplcmint]

I know it's not working because:

"Seems like the grdTrans object is only viewed as a zero length string or something rather than an object."

It's not an object, it has no properties to work with, it comes as a string with no length ----"". That's all i see.

And of course it will error out if you set up your code to handle objects rather than strings.



I got the problem down to this: When I try to use VB controls like a combo box or MSFlexgrid , the properties such as addItem and RemoveItem, TextMatrix, Col, Row, etc of the control is not listed and hence it gives a compilation error.

I would like to know what the action to be taken to get the properties identified.

[rplcmint]

I have a clue to the problem - Unbound Apps (.mdb) versus Access Projects (.adp). There is a definite problem with referencing the control within a .adp Access application.

For example:

I'm dropping a MSFlexgrid on a form in Access .mdb ...(Unbounded technique)

I can see the properties such as

Me.MSFlexgrid.Col = 1
Me.MSFlexgrid.Row = 2

Me.MSFlexgrid.TextMatrix(5,2) = "Some string value"

This all works for me.


When I start a ".adp" Access project and drop a grid on a form, I can't see the properties.

Me.MSFlexgrid (Then no recognizable properties for this control)!!!

Does .APD Applications handle controls different than Unbound Access apps?

This is some frustrating stuff!!

[royster]

There should be a simple response to this. I used to have this problem with non-VBA controls in MSAccess and not seeing their properties or passing them to functions, but there is an answer.

Dim g as MSFlexGrid
Set g = g.Object
 
call PopulateGrid(g,rs)

Hope that helps

[royster]

Sorry that should have read

Dim g as MSFlexGrid
Set g = grdTrans.Object
 
call PopulateGrid(g,rs)