Manifest constant for SysCmd 603?

P

Phlip

Accessories:

This VB code writes an MDE file if an MDB file passes all tests:

If aTestRunner.FailCount = 0 Then
ax.CloseCurrentDatabase

' TODO constant for 603
ax.SysCmd 603, getDatabaseName(), getMDEName()

ax.OpenCurrentDatabase getDatabaseName()
AssertNotEqual "", Dir(getMDEName()), "see if the MDE file
showed up"
End If

Note the TODO. A magic number like 603 is icky, and declaring a constant for
this number myself is hardly less magic.

Where's a good list of the _real_ constants for Access 2003's SysCmd? Is
there a good web page, or an ActiveX Enumeration?

This page...


http://msdn.microsoft.com/library/en-us/vbaac11/html/acmthSysCmd_HV05186385.asp?frame=true

....only lists the same constants as ActiveX supports in AcSysCmdAction ,
which are all < 20.

This makes me wonder what other useful goodies are hiding inside SysCmd...
 
A

ade diaz

Phlip said:
Accessories:

This VB code writes an MDE file if an MDB file passes all tests:

If aTestRunner.FailCount = 0 Then
ax.CloseCurrentDatabase

' TODO constant for 603
ax.SysCmd 603, getDatabaseName(), getMDEName()

ax.OpenCurrentDatabase getDatabaseName()
AssertNotEqual "", Dir(getMDEName()), "see if the MDE file
showed up"
End If

Note the TODO. A magic number like 603 is icky, and declaring a constant for
this number myself is hardly less magic.

Where's a good list of the _real_ constants for Access 2003's SysCmd? Is
there a good web page, or an ActiveX Enumeration?

This page...


http://msdn.microsoft.com/library/en-us/vbaac11/html/acmthSysCmd_HV05186385.
asp?frame=true

...only lists the same constants as ActiveX supports in AcSysCmdAction ,
which are all < 20.

This makes me wonder what other useful goodies are hiding inside SysCmd...
Click to expand...
 
K

kreuzer armin

Phlip said:
Accessories:

This VB code writes an MDE file if an MDB file passes all tests:

If aTestRunner.FailCount = 0 Then
ax.CloseCurrentDatabase

' TODO constant for 603
ax.SysCmd 603, getDatabaseName(), getMDEName()

ax.OpenCurrentDatabase getDatabaseName()
AssertNotEqual "", Dir(getMDEName()), "see if the MDE file
showed up"
End If

Note the TODO. A magic number like 603 is icky, and declaring a constant for
this number myself is hardly less magic.

Where's a good list of the _real_ constants for Access 2003's SysCmd? Is
there a good web page, or an ActiveX Enumeration?

This page...


http://msdn.microsoft.com/library/en-us/vbaac11/html/acmthSysCmd_HV05186385.
asp?frame=true

...only lists the same constants as ActiveX supports in AcSysCmdAction ,
which are all < 20.

This makes me wonder what other useful goodies are hiding inside SysCmd...
Click to expand...
 
Top