Article View: pl.comp.bazy-danych.msaccess
Article #137690Re: access nie wykonuje kodu VBA
From: Józef J
Date: Thu, 03 Sep 2020 20:24
Date: Thu, 03 Sep 2020 20:24
22 lines
3052 bytes
3052 bytes
czwartek, 3 września 2020 o 00:14:11 UTC+2 rade...@gmail.com napisał(a):
> wtorek, 1 września 2020 o 15:34:54 UTC+2 Józef J napisał(a):
> > Formularz we właściwościach pól „AfterUpdate()” wykonuje kod VBA. Baza jest udostępniona w środowisku sieciowym . Po uruchomieniu bazy danych przez innych użytkowników, kod VBA nie wykonuje się (dla accdb i accde po kompilacji). Czy czegoś brakuje.
> Trochę mało danych :( Co to za kod? Kod VBA nigdy nie wykonuje się automatycznie w nowych lokalizacjach. Musi być zaufana:
> [HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\aplikacja]
> "Description"="Plik aplikacji"
> "Path"="c:\\aplikacja\\"
> To oczywiście tylko przykład. Zależy od wersji Office.
Wersja: access 2010
Kod VBA wpisuje identyfikator użytkownika, datę i czas logowania, (formularz LOG jest uruchamiany przy AUTOSTART).
Private Sub Form_Load()
[Forms]![LOG]![Login] = UserNameWindows() & " " & Now()
End Sub
Następnie kod VBA jest użyty w innym formularzu do wprowadzania danych (po aktualizacji pola1, dodatkowo w polu 2 jest wpis identyfikatora użytkownika (informacja kto wprowadził dane)
Private Sub Pole1_AfterUpdate()
[Forms]![DANE_WE]![Pole2] = UserNameWindows() & " " & Now()
End Sub
Dodatkowo jest funkcja:
Function UserNameWindows() As String
UserNameWindows = VBA.Environ("USERNAME")
End Function
Podejrzewam, że użytkownicy nie wskazali zaufanej lokalizacji (nie mam w tej chwili od nich zwrotnej informacji) . Czy może być jakaś inna przyczyna.
Technical Details
Message-ID:
<0540eeae-69c4-4a74-b36b-733623634c2fn@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news-1.dfn.de!news.dfn.de!2.eu.feeder.erje.net!feeder.erje.net!newsreader4.netcologne.de!news.netcologne.de!news.uzoreto.com!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:
<71432bf0-6c1d-4584-a692-a66527a4c920n@googlegroups.com> <d94933b0-f68e-42e3-b3da-9045a58732ecn@googlegroups.com>Show Full Headers
Complete Article Headers
X-Received: by 2002:ac8:3ac4:: with SMTP id x62mr5372190qte.279.1599164686845; Thu, 03 Sep 2020 13:24:46 -0700 (PDT) X-Received: by 2002:a25:ced2:: with SMTP id x201mr5576113ybe.137.1599164686594; Thu, 03 Sep 2020 13:24:46 -0700 (PDT) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news-1.dfn.de!news.dfn.de!2.eu.feeder.erje.net!feeder.erje.net!newsreader4.netcologne.de!news.netcologne.de!news.uzoreto.com!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: Thu, 3 Sep 2020 13:24:46 -0700 (PDT) In-Reply-To: <d94933b0-f68e-42e3-b3da-9045a58732ecn@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: google-groups.googlegroups.com; posting-host=37.47.47.192; posting-account=T_DeMwoAAABbgRtAV-ZP5sYQ7BEyYkuo NNTP-Posting-Host: 37.47.47.192 References: <71432bf0-6c1d-4584-a692-a66527a4c920n@googlegroups.com> <d94933b0-f68e-42e3-b3da-9045a58732ecn@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <0540eeae-69c4-4a74-b36b-733623634c2fn@googlegroups.com> Subject: Re: access nie wykonuje kodu VBA From: Józef J <jozef.jurk@gmail.com> Injection-Date: Thu, 03 Sep 2020 20:24:46 +0000 Lines: 34 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit