Form Data Source Macro

[Bootkie2]

Hi,
Im a newbie to Base. I have a Database.odb on a shared network. I'm using a writer.ODT as front end on two different machines. Everytime, before I close writer I have to go into form design view (then form properties), and change the data source to the "Bibliography.odb" that comes pre loaded with open office, just so that when I use the .odt file on my other machine it wont cause an error. Is there a quick macro that can change the data source, save and then shut down Writer?? I tried recording one and it didnt seem to work, Any advice would be greatly appreciated. I just want to be able to input data from either machine. Thanks.

[Villeroy]

Binding the form should simply work. Do not try repair macros. FInd the cause of the problem. Rotten operating system with obscure system of file permissions?
_________________
Rest in peace, oooforum.org
Get help on http://forum.openoffice.org

[Bootkie2]

So I need to use some type of Binding Data Control....What exactly would I have to switch in this code?? Is it the "com.sun.star.beans.PropertyValue"?? Do I need something like com::sun::star::form::DataAwareControlModel"Bibliography.odb".

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SwitchControlDesignMode"
args1(0).Value = true

dispatcher.executeDispatch(document, ".uno:SwitchControlDesignMode", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "FormProperties"
args2(0).Value = true

dispatcher.executeDispatch(document, ".uno:FormProperties", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ShowProperties"
args3(0).Value = false

dispatcher.executeDispatch(document, ".uno:ShowProperties", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ShowProperties"
args4(0).Value = false

dispatcher.executeDispatch(document, ".uno:ShowProperties", "", 0, args4())