El ejemplo de Access2base -> TT NortWind.odb no funciona bién The example of Access2base -> TT NorthWind.obd does not work well

[josefito]

He observado que el modelo que tiene la página web access2Base que es ( TT NortWind.odb ) no funciona en el Libreoffice 5.3.1, igual me pasaba a mi con mi programa.
Esto me hace pensar que existe un problema de entenimiento en Libreoffice 5.3.1 que no permite llamar normalmente a una librería como la de access2base como venía haciéndolo hasta ahora.

Un saludo

TRANSLATED @peterwt

I have noticed that the model that has the web page access2Base that is (TT NortWind.odb) does not work in Libreoffice 5.3.1, just like me was happening to me with my program. This makes me think that there is a problem of understanding in Libreoffice 5.3.1 that does not allow calling normally to a library like access2base as it had been doing so far.

a greeting

[mikekaganski]

Use English please. There’s also https://ask.libreoffice.org/c/spanish/10 that may be suitable and more convenient for you.

[Ratslinger]

LO v5.3.0.3 is the latest general release beside daily versions. What version are you talking about? I have little problem with this .odb in v5.3.0.3 and earlier versions. What specific problem are you talking about? What OS do you have?

[josefito]

WINDOWS 7 and WINDOWS XP

Libreoffice 5.3.1 and Libreoffice 5.2.6

calling library access2base

thank you

call_access2base error.odt

[Ratslinger]

Still not sure exactly what your problem is. For a working sample .odb see my answer in this post - click here. This should give you a working sample to start with including loading the library.

Edit: Sorry, didn’t see the attached sample.

Your problem is not with the library. It seems to be from the MAXIMIZE statement. The syntax on the Access2Base site is :

Dim ofForm As Object
Set ofForm = Forms("myForm")
ofForm.SetFocus
Maximize()			'	... or Minimize() ...

Of course you have to open the form first. This routine works for me (just tested):

Sub MyOpenForm
    Const acFormReadOnly = 2
	OpenForm "Form2", , , , acFormReadOnly
	Dim ofForm As Object
	Set ofForm = Forms("Form2")
	ofForm.SetFocus
	Maximize()			'	... or Minimize() ...
End Sub