Article View: pl.comp.bazy-danych.msaccess
Article #137783Re: Hyperlink do poszczególnych formularzy w VBA
From: Kali
Date: Mon, 22 Mar 2021 20:14
Date: Mon, 22 Mar 2021 20:14
32 lines
3179 bytes
3179 bytes
Witam No i udało się działa, choć dochodzę do wniosku, że inaczej chyba powinienem to robić. Zrobiłem: Mam w bazie jakiś formularz startowy i stworzyłem (Przycisk136) zamieniłem nazwę na btnOpenForm . Wszedłem w kod Przycisku, wybrałem: Na górze tam gdzie mam (GENERAL) (Declarations) wkleiłem kod. Fragment mam następujący na czerwono, czyli z błędem: Private Declare Function apiSetForegroundWindow Lib "user32" _ Alias "SetForegroundWindow" _ (ByVal hwnd As Long) _ As Long Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" _ (ByVal hwnd As Long, _ ByVal nCmdShow As Long) _ As Long Inerpretuje to tak, że chyba mam VB z nr 7 a inny wywala. Pytanie nr1 Tak z ciekawości co oznacza # np. przy if??? Zmieniłem kod Private Sub btnOpenForm_Click() fOpenRemoteForm "C:\Users\User\Documents\2021.mdb", "firmy", SW_NORMAL End Sub Na fOpenRemoteForm "C:\Users\User\Documents\2021.mdb", "firmy" bo otwierał mi w widoku Projekt. W planach mam przyciski który przeniesie do formularza (w którym jestem My.name) do wskazanej bazy przez InputBox. Po przemyśleniu dochodzę do innych wniosków, że kod powinienem chyba wkleić w nowy moduł nazwać go jakoś; OtwForm i zmienić przycisk136 na btnOpenForm. Dochodzę do wniosku, że powinno to działać we wszystkich formularzach i powielenie przycisku btnOpenForm. Pytanie2 To chyba bardziej lepsze rozwiązanie??? Z ostatniej chwili - przeczytałem post Zbyszka - Bardzo dużo mi pomogłeś i bardzo dziękuję . SK
Technical Details
Message-ID:
<e8fb09f3-ccde-4300-a831-30654ba429a4n@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!2.eu.feeder.erje.net!3.eu.feeder.erje.net!feeder.erje.net!weretis.net!feeder8.news.weretis.net!feeder5.feed.usenet.farm!feeder1.feed.usenet.farm!feed.usenet.farm!tr2.eu1.usenetexpress.com!feeder.usenetexpress.com!tr1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mailReferences:
<8727ce48-0764-4881-a622-ba0a95d67569n@googlegroups.com> <605613a2$0$536$65785112@news.neostrada.pl> <6f15dee5-28d9-4b9c-b53a-ef87db7e4536n@googlegroups.com> <6057624c$0$537$65785112@news.neostrada.pl>Show Full Headers
Complete Article Headers
X-Received: by 2002:a37:a404:: with SMTP id n4mr1819225qke.439.1616444065525; Mon, 22 Mar 2021 13:14:25 -0700 (PDT) X-Received: by 2002:a25:ba92:: with SMTP id s18mr483846ybg.438.1616444065266; Mon, 22 Mar 2021 13:14:25 -0700 (PDT) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!2.eu.feeder.erje.net!3.eu.feeder.erje.net!feeder.erje.net!weretis.net!feeder8.news.weretis.net!feeder5.feed.usenet.farm!feeder1.feed.usenet.farm!feed.usenet.farm!tr2.eu1.usenetexpress.com!feeder.usenetexpress.com!tr1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail Newsgroups: pl.comp.bazy-danych.msaccess Date: Mon, 22 Mar 2021 13:14:25 -0700 (PDT) In-Reply-To: <6057624c$0$537$65785112@news.neostrada.pl> Injection-Info: google-groups.googlegroups.com; posting-host=2a01:118f:426:b400:755c:2372:d1b4:84ad; posting-account=74n4zQoAAAAdK4x7iDI7PRkofVlezcZ_ NNTP-Posting-Host: 2a01:118f:426:b400:755c:2372:d1b4:84ad References: <8727ce48-0764-4881-a622-ba0a95d67569n@googlegroups.com> <605613a2$0$536$65785112@news.neostrada.pl> <6f15dee5-28d9-4b9c-b53a-ef87db7e4536n@googlegroups.com> <6057624c$0$537$65785112@news.neostrada.pl> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <e8fb09f3-ccde-4300-a831-30654ba429a4n@googlegroups.com> Subject: Re: Hyperlink do poszczególnych formularzy w VBA From: Kali <slakal1965@gmail.com> Injection-Date: Mon, 22 Mar 2021 20:14:25 +0000 Lines: 44 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit