Witam,

Czy mógł by mi ktoś podpowiedzieć jak wyłączyć HMF 2014a z posiomu VBA ? oraz w jaki sposób z poziomu VBA zakończyć pracę z firmą. To drugie rozwiązanie było by nawet lepsze.

Jakaś metoda , funkcja ?

Dzięki z góry i pozdrawiam
Łukasz.

Opisz do czego Ci jest potrzebna taka funkcjonalność.
W, którym momencie chcesz wywołać kod zamykający?

Zamykając program możesz mieć w edycji dokumenty.
Operator musi zdecydować co z nimi zrobić (zapisać, Anulować zmiany).

Możesz wysłać do procesu aplikacji HMF komunikat WM_CLOSE


W ostateczności możesz zabić proces aplikacji. Ale to nie jest chyba dobry pomysł.

Zaraz po otwarciu firmy sprawdzam kilka danych w bazie i na ich podstawie decyduję o zamknięciu programu lub nie. Uzytkownik nie zdąży nic zrobić, więc nie ma problemu z otwartymi dokumentami.
Najlepiej było by zalogowanego już użytkownika , po prostu wylogować (zakończyć prace z firmą).

Starałem się użyć obiektu "application" i metody "quit" ,ale nie działa.

A dlaczego nie użyjesz OnOpen w procedurach AmBasic?

Ponieważ cała procedura za wzgledu na jej specyfike ,musi być napisana w VBA. Chyba ,że można wywołać jakąś procedurę AmBasica zamykająca firmę z poziomu VBA ? .

To może inaczej, jak z poziomu AmBasic'a wykonać funkcję napisaną w VBA i otrzymać od niej z powrotem wynik do AmBasic'a ?

W AmBasic Obiektem aplikacji



Potem obiekt dokumentu sbc



potem obiekt MxInter



potem uruchomienie aplikacji VBA



exec zwróci retVal z procedury sub _EvExecuteApp() po stronie VBA

W którym miejscu w raportach wstawić tą procedurę, lub gdzie jest ta procedura ?

OK już znalazłem :)

1. Ok ogarnąłem wszystko poza mxInter.ExecuteApp(....). Co mam wpisać zamiast kropeczek w nawiasie ? nazwę mojej procedury w VBA?

2. retVal zwróci mi w wartość wygenerowaną w mojej funkcji w VBA ?

Pierwszy parametr to zawsze "0" jeżeli uruchamiasz z AmBasica.
Pozostałe to parametry typu Variant przekazywane do VBA.

Wywołanie ExecuteApp odpala zdarzenie EvExecuteApp() VBA z tymi samymi parametrami.
Co zwróci to zdarzenie za pomocą retVal to znajdzie się w zmiennej exec AmBasica.

Czy mógł bym prosić o jakiś przykład w VBA jak obsłużyć to zdarzenie ?. Nigdzie nie mogę znaleźć EvExecuteApp()

Nie mam gotowego przykładu. Ale może zostać dla Ciebie przygotowany.

Skontaktuj się z Ekspertem.

To napisz mi proszę tylko jak mogę obsłużyć w VBA zdarzenie EvExecuteApp. Coś mam załadować do VBA, jakąś bibliotekę?.