UC's Corner » msaccess

comment block in vba msaccess

yussi ariefiyono — Mon, 08 Feb 2010 13:35:06 +0000

Enable the edit toolbar, hignlight lines to comment, and click the “comment block” icon on the edit toolbar (middle of toolbar). This will add the ‘ to whatever you highlight.

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)