Czy wystarczy # VBA7 PtrSafe czy coś jeszcze zmieniać?

Article View: pl.comp.bazy-danych.msaccess

Article #137813

Back to pl.comp.bazy-danych.msaccess Previous Next

#137813

From: Maciej Franciszkowski
Date: Wed, 19 Aug 2020 06:09

30 lines
1940 bytes

Witam,
Czy w poniższej deklaracji jeszcze coś zmieniać?

#If VBA7 Then

Private Const LOCALE_USER_DEFAULT As Long = &H400
Private Const LOCALE_SDECIMAL  As Long = &HE
Private Declare PtrSafe Function GetLocaleInfo Lib "kernel32" _
   Alias "GetLocaleInfoA" _
  (ByVal Locale As Long, _
   ByVal LCType As Long, _
   ByVal lpLCData As String, _
   ByVal cchData As Long) As Long

#Else

Private Const LOCALE_USER_DEFAULT As Long = &H400
Private Const LOCALE_SDECIMAL  As Long = &HE
Private Declare Function GetLocaleInfo Lib "kernel32" _
   Alias "GetLocaleInfoA" _
  (ByVal Locale As Long, _
   ByVal LCType As Long, _
   ByVal lpLCData As String, _
   ByVal cchData As Long) As Long

#End If


Pozdrawiam

Technical Details

Message-ID: <26ffccfe-90ce-4a9c-b83d-9ea65e07f30en@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.samoylyk.net!3.eu.feeder.erje.net!feeder.erje.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Received: by 2002:ac8:1bb7:: with SMTP id z52mr21935115qtj.221.1597817343594;        Tue, 18 Aug 2020 23:09:03 -0700 (PDT)
X-Received: by 2002:a25:23c6:: with SMTP id j189mr31130262ybj.362.1597817343356; Tue, 18 Aug 2020 23:09:03 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.samoylyk.net!3.eu.feeder.erje.net!feeder.erje.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Tue, 18 Aug 2020 23:09:02 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com; posting-host=81.219.77.66; posting-account=MMDGXwoAAADfMWi5ThEatt5B2ixmi_hp
NNTP-Posting-Host: 81.219.77.66
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <26ffccfe-90ce-4a9c-b83d-9ea65e07f30en@googlegroups.com>
Subject: Czy wystarczy # VBA7 PtrSafe czy coś jeszcze
 zmieniać?
From: Maciej Franciszkowski <macfrane@gmail.com>
Injection-Date: Wed, 19 Aug 2020 06:09:03 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit