UC's Corner » vba

File in use Vb

yussi ariefiyono — Tue, 20 Apr 2010 07:11:36 +0000

just found nice code in internet, and i use it in one of my project. works great!
it will return the last user that open the file

Function LastUser(strPath As String) As String

‘// Code by Helen from http://www.xtremevbtalk.com/index.php?s=

‘// This routine gets the Username of the File In Use

‘// Credit goes to Helen for code & Mike for the idea

‘// Amendment 25th June 2004

‘// : Name changes will show old setting

‘// : you need to get the Len of the Name store just before

‘// : the double Padded nullstrings

Dim text As String

Dim strFlag1 As String, strflag2 As String

Dim i As Integer, j As Integer

Dim hdlFile As Long

Dim lNameLen As Byte

strFlag1 = Chr(0) & Chr(0)

strflag2 = Chr(32) & Chr(32)

hdlFile = FreeFile

Open strPath For Binary As #hdlFile

text = Space(LOF(hdlFile))

Get 1, , text

Close #hdlFile

j = InStr(1, text, strflag2)

i = InStrRev(text, strFlag1, j) + Len(strFlag1)

lNameLen = Asc(Mid(text, i – 3, 1))

LastUser = Mid(text, i, lNameLen)

End Function

List of SendKeys

yussi ariefiyono — Mon, 08 Feb 2010 09:40:50 +0000

Key	Code
BACKSPACE	{BACKSPACE}, {BS}, or {BKSP}
BREAK	{BREAK}
CAPS LOCK	{CAPSLOCK}
DEL or DELETE	{DELETE} or {DEL}
DOWN ARROW	{DOWN}
END	{END}
ENTER	{ENTER}or ~
ESC	{ESC}
HELP	{HELP}
HOME	{HOME}
INS or INSERT	{INSERT} or {INS}
LEFT ARROW	{LEFT}
NUM LOCK	{NUMLOCK}
PAGE DOWN	{PGDN}
PAGE UP	{PGUP}
PRINT SCREEN	{PRTSC} (reserved for future use)
RIGHT ARROW	{RIGHT}
SCROLL LOCK	{SCROLLLOCK}
TAB	{TAB}
UP ARROW	{UP}
F1	{F1}
F2	{F2}
F3	{F3}
F4	{F4}
F5	{F5}
F6	{F6}
F7	{F7}
F8	{F8}
F9	{F9}
F10	{F10}
F11	{F11}
F12	{F12}
F13	{F13}
F14	{F14}
F15	{F15}
F16	{F16}
Keypad add	{ADD}
Keypad subtract	{SUBTRACT}
Keypad multiply	{MULTIPLY}
Keypad divide	{DIVIDE}

Key	Code
SHIFT	+
CTRL	^
ALT	%

Check if table is exist vba

yussi ariefiyono — Mon, 08 Feb 2010 09:21:13 +0000

Problem:
Check if table is exist

Solution:
Option Compare Database
Public Function TableExists(strTable As String) As Boolean
Dim strName As String

On Error Resume Next
‘If table exists already then strName will be > “”
strName = CurrentDb.TableDefs(strTable).name
TableExists = Not (strName = “”)
End Function

Shell and AppActivate command vba

yussi ariefiyono — Mon, 08 Feb 2010 09:16:37 +0000

Problem:
You want to open the file using send key, and active it as a window

Solution:

‘Define the task ID
Dim dTaskID As Integer
‘Open the file with your application
dTaskID = Shell(“applicationYouWantToOpenWith.EXE path+nameofthefile”)
‘Make it active window
AppActivate (dTaskID)