AccessBlog.net

Windows 11 taskbar on right side

2024-11-20T11:18:00.004+03:00

Since Windows 11 there is no way to set Taskbar on the right edge of desktop, what is very useful, especially on laptop screen. Fortunately ExplorerPatcher brings back this option, really a screen space saver. Enjoy!

TeamViewer session is active - another method

2023-09-12T09:41:00.001+03:00

When TeamViewer running as service - connections established by System account, so we can't detect which user has TeamViewer session active. In that case we can use a following function, which looks through TeamViewer log file (logging must be enabled in TeamViewer options). Idea is based on that KB article Log file reading - Incoming connection

Public Function TeamViewerActive() As Boolean

Dim tvLog As String

tvLog = "C:\Program Files (x86)\TeamViewer\TeamViewer15_Logfile.log"

If Len(Dir(tvLog)) = 0 Then Exit Function

'Get user's process TeamViewer PID

Dim objServices As Object, objProcessSet As Object, Process As Object

Set objServices = GetObject("winmgmts:\\.\root\CIMV2")

Set objProcessSet = objServices.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'TeamViewer.exe'", , 48) '

Dim tvPID As Long

For Each Process In objProcessSet

Dim ProcessUserName As Variant

Call Process.GetOwner(ProcessUserName)

If ProcessUserName = GetWindowsUserName Then

tvPID = Process.ProcessID

Exit For

End If

Set objProcessSet = Nothing

'no PID - no TeamViewer running

If tvPID = 0 Then Exit Function

Dim FSO As Object

Dim strLog As String, a, i As Long

Set FSO = CreateObject("scripting.FileSystemObject")

Dim TS As Object 'TextStream

Set TS = FSO.OpenTextFile(tvLog, 1) 'ForReading

strLog = TS.ReadAll

a = Split(strLog, vbNewLine)

TS.Close

'Get the lastest session

Dim lngLastStart As Long, strSessionID As String

For i = 0 To UBound(a)

If a(i) Like "* " & tvPID & " *" Then

If a(i) Like "* CParticipantManagerBase participant *" Then

lngLastStart = i

End If

Next i

If lngLastStart > 0 Then

'Session was started

TeamViewerActive = True

'Get session ID

strSessionID = Mid(a(lngLastStart), InStr(1, a(lngLastStart), " (ID [") + 5)

strSessionID = Left(strSessionID, InStr(1, strSessionID, "]"))

'Check if that session already ended, if no - then user in TeamViewer session

For i = lngLastStart To UBound(a)

If a(i) Like "* CPersistentParticipantManager::RemoveParticipant:*" & Replace(strSessionID, "[", "[[]") & "*" Then

TeamViewerActive = False

End If

Next i

End If

End Function

How to check if TeamViewer session is active

2023-09-02T11:56:00.003+03:00

This function can be used to determine if current user session has active TeamViewer connection. The only way I found so far is to check specific port for established connection using netstat

netstat -nb | find ":5938" | find "ESTABLISHED"

If anything found - Teamviewer is running on PC

netstat -nb | find ":6039" | find "ESTABLISHED"

If anything found - Teamviewer session is active

Using this code GetTcpTable: Local Machine TCP Connection Table you can make TeamviewerSessionIsActive() function, just replace With TcpRow block with following:

Public Function TeamviewerSessionIsActive() As Boolean

…

With TcpRow

If ntohs(.dwRemotePort) = 6039 And & _

.dwState = MIB_TCP_STATE_ESTAB Then

TeamviewerSessionIsActive = True

Exit Function

End If

End With

…

End Function

Another service to block VBA

2020-11-19T10:13:00.003+03:00

Got i from friend of mine, be aware of this CylancePROTECT Script Control...

Hi Everyone

I spent a frustrating five hours yesterday tracking down a problem on some (but not all) of one of my clients’ workstations, and I hope I might save some of you from a similar waste of time.

Attempts to open their Access application (an ACCDR) with the /runtime switch gave:

Execution of this application has stopped due to a run-time error.

The application can’t continue and will shut down.

Further investigation, running it as an ACCDB, showed that any attempt to touch the ErrEx class (Wayne Philips’ vbWatchdog) gave:

Run-time error '453':

Can't find DLL entry point VirtualAlloc in kernel32

This was from a call to VirtualAlloc from the Class_Initialize event procedure of ErrEx.

My initial thought was that a Microsoft update over the weekend had installed something that was interfering with vbWatchdog, so I was composing as email to Wayne when I thought to try some other calls to Kernel32 functions. They all failed with Error 453, as did calls to User32 procedures.

I then spent considerable time uninstalling updates and reverting to restore points, without any success. While googling for ideas, I found this:

https://stackoverflow.com/questions/56201309/need-to-fix-this-error-cant-find-dll-entry-point-getsysteminfo-in-kernel32

Note the final comment by the OP.

Sure enough, I checked and there was a service named “CylancePROTECT” running on the workstation I was looking at.

I called their IT “support” company and finally found somebody who knew that they were trialling new “security software” on some of their customers’ workstations. I googled it, and it includes a “script control” feature which blocks certain functions in “scripts”, which apparently include VBA code:

https://www.blackberry.com/content/dam/cylance/documents/pdf/pdf-feature-focus-protect-script-control.pdf

In this document, it recommends “that administrators initially enable CylancePROTECT Script Control in Alert Mode to monitor and observe all scripts running in their environment.” Then later, “Once administrators have a good understanding of all scripts running in their environment, they can change their settings to block mode and only allow scripts to run out of specified folders.” Of course, these idiots had not followed these recommendations.

Anyway, I hope this is useful knowledge to put in the toolbox if ever you are diagnosing Error 453.

Cheers,

Graham

AccessImagine

2019-03-21T15:37:00.001+03:00

AccessImagine is ActiveX control, which helps to insert images into DB – from file, webcam, clipboard or drag-n-drop, crop and display images, store outside database.

Access System Tables

2019-03-04T11:59:00.001+03:00

64 different system tables were documented and summarised the properties

Purpose of System Tables
How Access Stores Queries
Using multivalued fields..and why you really shouldn't
How Access manages Relationships
Using Column History in Memo/Long Text fields
Remove deleted objects from MSysObjects

VBA Code Examples

2019-01-07T09:19:00.001+03:00

Several useful VBA routines, like file/string hashing, file/folder utilities, sorting, etc:

https://en.wikibooks.org/wiki/Wikibooks:Collections/VBA_Code_Examples

Office 2019 is released

2018-09-26T11:34:00.001+03:00

What's New in Office 2019

Happy birthday, Microsoft Access!

2017-11-13T15:01:00.001+03:00

25 years ago, November 13, 1992, Access 1.0 was relased, and almost the same time I started to work with it! Long life, Mr. Access!

Here some introductionary words from its father, Bill Gates:

https://youtu.be/evMilwVBHAQ?t=11m55s

Access Web Apps–the end?

2017-03-28T09:16:00.001+03:00

We no longer recommend Access Services for new apps. This feature will be retired from Office 365. We will stop creation of new Access-based apps in SharePoint Online starting June 2017 and shut down any remaining apps by April 2018.

SSE Setup

2017-01-20T11:22:00.001+03:00

SSE Setup is a freeware Windows installation creator, looks interesting: works on most Windows OS, 32 and 64 bit, non-admin and UAC-friendly installs, etc. And of course - Easy Access database deployment!

MS Access Right-Click Context Menu Creator

2016-11-09T14:58:00.001+03:00

Context Menu Creator - useful tool to create Windows Explorer file context menu like Compact, Decompile, Open Exclusively for desired Access file exnetsions.

Access WizHook library

2016-06-15T13:20:00.001+03:00

As old links to WizHook - more undocumented functions are gone, posting here a new one: WizHook Overview.

Plus I saved copy here

One more link, documented by Thomas Möller, Access MVP

Access SQL Editor

2016-05-11T17:43:00.001+03:00

Access SQL Editor – quite useful add-in for Microsoft Access (where we still have such a basic SQL editor, no changes since version 1,0!), allows you to save formatted SQL queries in a Microsoft Access (Jet/ACE) database, with syntax highlighting and comments.

Meet SQL Server 2016

2016-04-26T12:20:00.001+03:00

SQL Server 2016 Release Candidate 3 was released recently, amoung other new features - temporal tables: a system-versioned table allows you to query updated and deleted data, while a normal table can only return the current data.

These are the most common use cases for temporal tables:

Audit. With temporal tables you can find out what values a specific entity has had over its entire lifetime.
Slowly changing dimensions. A system-versioned table exactly behaves like a dimension with type 2 changing behavior for all of its columns.
Repair record-level corruptions. Think of it as a sort of back-up mechanism on a single table. Accidentally deleted a record? Retrieve it from the history table and insert it back into the main table

See Introduction to SQL Server 2016 Temporal Tables for more info

Add-ins for Access web apps

2016-02-20T10:57:00.001+03:00

A friend of mine has recently tried to create add-in for Access web app (AWA). Here some links and tips, can be useful once you decide to do the same.
Create add-ins for Access web apps – step through the process
Latest Microsoft Office Developer Tools for Visual Studio 2015 - link to the latest Microsoft Office Developer Tools for Visual Studio 2015
JavaScript API for Office
Office UI Fabric
Office 365: Bind and manipulate data in a SharePoint Access app
Create JavaScript web apps using CORS to access Office 365 APIs

Have more links? Write me in comments

How Office 365 users get Office updates

2016-01-11T12:34:00.001+03:00

How and when do you get update to your Click-To-Run subscriptions through Office 365? Following article will explain that "mystery":

How do I get the newest features in Office 2016 for Office 365?

Access 2016 Runtime

2015-12-09T17:26:00.001+03:00

… is out! The Microsoft Access 2016 Runtime enables you to distribute Access 2016 applications to users who do not have the full version of Access 2016 installed on their computers.

How to automate entering VBA password

2015-11-30T14:55:00.001+03:00

VBA project password can't be considered as strong protection, but sometimes you have to use it. Unprotecting VBA Project Password article shows a sample code to unprotect project, if you know the password. Same technique can be useful when you need to interact with other programs, which you can't automate with OLE or any other interface.

Access 2016 VBA CHM file

2015-11-18T13:31:00.001+03:00

Access 2016 VBA CHM file now made available for download (as well as Word, Excel and PowerPoint), if you need it while offline. Don't forget to unblock it (see Troubleshooting)!

ADP+ for Access 2013 with SQL Server

2015-11-12T15:12:00.001+03:00

Another way to connect Access and SQL server - ADP+ library from Joakim Dalby, Denmark. Looks like it is build on ADO, and should work the same way as Access ADP. Would be good to know if anybody tried it?

I personally use linked tables and DAO/pass-through tables, tried to use ADP several times, but every time switched back to mdb.

Access UserVoice

2015-10-13T11:44:00.001+03:00

Access on UserVoice - suggest ideas and vote for others feedback. Access team promised to monitor this site :)

What's new in Access 2016

2015-09-22T16:46:00.001+03:00

Here are some of the top new features you'll find in Access 2016

Access Lunchtime user group

2015-09-17T12:52:00.001+03:00

Access MVPs Juan and Ben staring "Lunchtime" online Access user group at September 29th, mark your calendars and join it last Tuesday of the month at 12 noon CDT!

Details are here Access Lunchtime

Known issues with Office and Windows 10

2015-09-16T12:19:00.001+03:00

Following article is a list of known issues with Office and Windows 10, planned to be kept up-to-date:

Known issues with Office and Windows 10