Deklaracja API Office 64 Bit i Win10 64 Bit

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

Article #137596

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

#137596

From: minfo
Date: Thu, 19 Apr 2018 12:01

44 lines
2585 bytes

Dzień dobry,

Czy coś jeszcze trzeba dodać do Deklaracji Api po #Else?
Teraz mój Access 2016 podkreśla te części deklaracji na czerwono.


#If VBA7 Then
    Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
    Public i As Long  ' teraz jako zmienna globalna
    Const interv As Integer = 1000
#Else
    Declare Function GetTickCount Lib "kernel32" () As Long
    Public i As Long  ' teraz jako zmienna globalna
    Const interv As Integer = 1000
#End If

#If VBA7 Then
    Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long
#Else
    Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long
#End If

Public CurrentUserName As String

#If VBA7 Then
    Private Declare PtrSafe Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#Else
    Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If




Po dodaniu 
PtrSafe zaczął rozpoznawać deklarację VBA7


Proszę o sprawdzenie deklaracji.

MF

Technical Details

Message-ID: <d9d86fa0-0df7-461e-9fde-efa0d51cb1e4@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!f34-v6no5155720qtb.0!news-out.google.com!p5-v6ni17197qtp.1!nntp.google.com!f34-v6no5155426qtb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Received: by 10.55.59.135 with SMTP id i129mr4085317qka.61.1524139261304;        Thu, 19 Apr 2018 05:01:01 -0700 (PDT)
X-Received: by 10.31.199.67 with SMTP id x64mr685938vkf.7.1524139260644; Thu, 19 Apr 2018 05:01:00 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!f34-v6no5155720qtb.0!news-out.google.com!p5-v6ni17197qtp.1!nntp.google.com!f34-v6no5155426qtb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Thu, 19 Apr 2018 05:01:00 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=213.241.94.194; posting-account=vYGi6woAAAA6NlWlzOm2dBNZ6sPJDKfx
NNTP-Posting-Host: 213.241.94.194
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <d9d86fa0-0df7-461e-9fde-efa0d51cb1e4@googlegroups.com>
Subject: Deklaracja API Office 64 Bit i Win10 64 Bit
From: minfo@onet.pl
Injection-Date: Thu, 19 Apr 2018 12:01:01 +0000
X-Received-Bytes: 2369
X-Received-Body-CRC: 1369554406
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit