Kempscas: Created page with "This runs any time a tile is clicked. New Code has no line number. Behind Form mnuTouch

 Sub TileAction(MyObject As String) 10        On Error GoTo p_err    ..."

2017-08-24T19:50:29Z

Created page with "This runs any time a tile is clicked. New Code has no line number. Behind Form mnuTouch <pre> Sub TileAction(MyObject As String) 10 On Error GoTo p_err ..."

New page

This runs any time a tile is clicked.
New Code has no line number.

Behind Form mnuTouch
<pre>
Sub TileAction(MyObject As String)
10        On Error GoTo p_err
       If IsBlank(pSnum) Or pSnum = 0 Then
           Call LostDefaults
       End If
20        Select Case MyObject
              Case "TAdd":
30                DoCmd.OpenForm "mnuSubTouch"

And behind the mnusubTouch

Public Function TextClick(TileSent As String)
550       On Error GoTo p_err
          'MsgBox TileSent
       If IsBlank(pSnum) Or pSnum = 0 Then
           Call LostDefaults
       End If
560       Crit = "Select * from subTouch Where ObjectDescription = """ & TileSent & """"
570       Set mydb = DBEngine.Workspaces(0).Databases(0)
580       Set myrs = mydb.OpenRecordset(Crit, dbOpenDynaset, dbSeeChanges) 'New Recordset Closed
</pre>

In the module basRibbonCallbacks, make this change (around line 300):

<pre>
'Runtimetest

          If isLoaded("mnuMainMenu") Then
                If pSnum = Null Or pSnum = 0 Then
                    Call LostDefaults
                End If
          End If
</pre>

The If psnum part was remarked out.
I added the wrapper looking for whether mnuMainMenu is loaded.
It seems to run in RunTime mode.

Lost Staff Number - Revision history

Kempscas: Created page with "This runs any time a tile is clicked. New Code has no line number. Behind Form mnuTouch
Sub TileAction(MyObject As String) 10 On Error GoTo p_err ..."