Sorry, Your code works to pop up the dialog on the first time.
However, now I can not get the controls on the dialog (this worked with my code, when the dialog box loaded).
' declare objects to reference our date controls from our dialog box
Dim asOfDateControl as object
Dim oLibContainer As Object
Dim oLib As Object
Dim oInputStreamProvider As Object
Const sLibName = "Standard"
Const sDialogName = "CriteriaDialog"
REM get library and input stream provider
oLibContainer = DialogLibraries oLibContainer.loadLibrary( sLibName )
oLib = oLibContainer.getByName( sLibName ) oInputStreamProvider = oLib.getByName( sDialogName )
REM create dialog control
oDlg = CreateUnoDialog( oInputStreamProvider )
asOfDateControl = oDlg.getControl("asOfDate") ' get dateField controls
asOfDateControl.setDate(lastDayPrevMonth(now()) ' set From Date control to one month ago
REM show the dialog
oDlg.execute()
-- Greg Valcourt 985-9736 Systems Technologist Systems Department Legal Aid Manitoba
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
