[AccessD] BEU Enchancement

I've ran across this problem, or one very similar, in the past couple of
weeks.

I won't say this is the prefered fix for it, since this is Reuben's
function, but it's what I did to make it work. Please feel free to pass
this on to the person using it:

In the beuDBAValidateBEPathnction of the basbeuDBAisdbuptodate module:

Maybe 15 lines down, or so, the line that starts, and continues on for
4 lines
strSQL = "SELECT ....

replace it with, and watch fro wrapping:

strSQL = "SELECT tblDBAModifyDatabase.ParameterValue,
tblDBAModifyDatabaseMods.HowCounter" _
    & " FROM tblDBAModifyDatabaseMods INNER JOIN tblDBAModifyDatabase
ON tblDBAModifyDatabaseMods.ModNumber = tblDBAModifyDatabase.ModNumber"
_
    & " WHERE tblDBAModifyDatabaseMods.WhatCounter=2 AND
tblDBAModifyDatabaseMods.HowCounter=2" _
    & " AND tblDBAModifyDatabaseMods.State<>-1;"

What this does is allows the link validation to take place on a table
added by the BEU as long as it's was added correctly and had it's mod
state cahnged to True.

Now, I am using an Alpha of V2, so (s)he *may* need to tweak it a bit
for V 1.58, but I don't think it will be necessary.

Bryan Carbonnell
bryan_carbonnelL at cbc.ca


>>> jimdettman at earthlink.net 08-Apr-04 12:49:34 PM >>>
Reuben, Andy, Lembit, or Bryan

  I recommended the BEU to someone and their using relinking code in
their
app.  The problem is, it quits the app if a relink cannot be performed
on a
table, which is the case when you add a new table via the BEU.  To
help
developers around that problem, I would suggest adding a function call
that
checks the BEU task list and returns True if it finds the table name.
Example:

' In relink code

If Not IsNewBEUTable(strTableName) then
   ' Relink the table
End If


' Function added to BEU.
Public Function IsNewBEUTable(strTableName as string) as integer

  ' Check BEU task table to see if strTableName is added
  ' Pass back True if found or False if not.

End Function

  I'm not sure exactly what needs to be done to actually identifiy the
table
in the task list because I haven't dug deep enough, but I thought I'd
pass
along the suggestion at least.

Jim Dettman
President,
Online Computer Services of WNY, Inc.
(315) 699-3443
jimdettman at earthlink.net