Enrico
That seems a bit closer .. but I get an error after the listbox paints ..
Stack Calls
Called from: win32ole.prg => TOLEAUTO:RECORDCOUNT(0)
Called from: access.prg => (b)_LWMFSBROW(60)
Called from: WBROWSE.PRG => TWBROWSE:DISPLAY(0)
Called from: CONTROL.PRG => TWBROWSE:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: MAIN.PRG => MAIN(124)
here is the code ..
//-------------------------------------------
Func Access( oWND )
LOCAL oErr, oRs
oRs := CREATEOBJECT( "ADODB.Recordset" )
TRY
oRS:Open( "SELECT * FROM LWMFS ORDER BY FILE_NUM" , "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LWMFS.mdb", 1, 3 )
CATCH oErr
MsgInfo( "Error in Opening LWMFS table" )
RETURN NIL
END TRY
_LwmfsBrow(oRs ) //, oWND )
oRs:Close()
Return(nil)
//--------------------------------------------------------
STATIC FUNCTION _LwmfsBrow( oRs ) //, oWND )
LOCAL nRec, oDLG, oBTN1, oWND1, oBRW
lOK := .F.
DEFINE WINDOW oWnd1 ;
FROM 3,1 to 30,100 ;
TITLE "Docket System Browse"
@ 0,0 LISTBOX oBrw FIELDS ;
STR( oRs:Fields( "id" ):Value ),;
oRs:Fields( "file_num" ):Value,;
oRs:Fields( "file_name" ):Value,;
oRs:Fields( "address" ):Value;
COLSIZES 80,80,300,300;
HEADERS "Id Numb",;
"File_num" ,;
"File_name",;
"Address";
ON DBLCLICK( _Cercla( oRS:Fields( "file_num" ):value ) ) ;
UPDATE
oBrw:bLogicLen := { || oRs:RecordCount }
oBrw:bGoTop := { || oRs:MoveFirst() }
oBrw:bGoBottom := { || oRs:MoveLast() }
oBrw:bSkip := { | nSkip | Skipper( oRs, nSkip ) }
oBrw:cAlias := "ARRAY"
oWND1:oClient := oBRW
ACTIVATE WINDOW oWND1
RETURN NIL
elCurrent() ??
elCurrent() ??