Line-No. / Ref. | Code Line |
0001 | Public Function Core_URL_Gen(In_URL) |
0002 | Dim In_URL_Local As String |
0003 | Dim URL_Segment As String |
0004 | Dim srtReturned As String |
0005 | Dim i As Integer |
0006 | Dim j As Integer |
0007 | Dim k As Integer |
0008 | Dim Numeric_Segment As Boolean |
0009 | In_URL_Local = In_URL |
0010 | i = 1 |
0011 | srtReturned = "" |
0012 | j = InStr(i, In_URL_Local, ".") |
0013 | URL_Segment = "" |
0014 | Do While j > 0 Or URL_Segment <> "" |
0015 | If j > 0 Then |
0016 | URL_Segment = Mid(In_URL_Local, i, j - i) |
0017 | End If |
0018 | Numeric_Segment = False |
0019 | For k = 1 To Len(URL_Segment) |
0020 | If Mid(URL_Segment, k, 1) >= 0 And Mid(URL_Segment, k, 1) <= 9 Then |
0021 | Numeric_Segment = True |
0022 | k = Len(URL_Segment) + 1 |
0023 | End If |
0024 | Next k |
0025 | If Numeric_Segment = False Then |
0026 | If srtReturned <> "" Then |
0027 | srtReturned = srtReturned & "." |
0028 | End If |
0029 | srtReturned = srtReturned & URL_Segment |
0030 | End If |
0031 | If j > 0 Then |
0032 | i = j + 1 |
0033 | j = InStr(i, In_URL_Local, ".") |
0034 | If j = 0 Then |
0035 | URL_Segment = Mid(In_URL_Local, i, Len(In_URL_Local)) |
0036 | End If |
0037 | Else |
0038 | URL_Segment = "" |
0039 | End If |
0040 | Loop |
0041 | 'Debug.Print Now(); "- URL: " & In_URL_Local; " Returned: " & srtReturned |
0042 | Core_URL_Gen = srtReturned |
0043 | End Function |
Line-No. / Ref. | Code Line |
0001 | Public Function Functor_05(strQuery, strNote_Text) |
0002 | 'Development Log report - Completed Items - Category Sequence |
0003 | Dim rs As Recordset |
0004 | Dim strNote_Text_Local |
0005 | Dim Implementation_Period As String |
0006 | Dim Category As String |
0007 | Dim Development As String |
0008 | Dim Category_Saved As String |
0009 | Dim strCategory_Text As String |
0010 | Dim Implementation_Period_Saved As String |
0011 | Dim strImplementation_Period_Text As String |
0012 | strNote_Text_Local = "" |
0013 | Category_Saved = "ZZZZZ" |
0014 | strCategory_Text = "" |
0015 | Implementation_Period_Saved = "ZZZZ" |
0016 | strImplementation_Period_Text = "" |
0017 | Set rs = CurrentDb.OpenRecordset(strQuery) |
0018 | If Not rs.EOF Then |
0019 | rs.MoveFirst |
0020 | Functor_05 = "Yes" |
0021 | Else |
0022 | Functor_05 = "No" |
0023 | Exit Function |
0024 | End If |
0025 | Do Until rs.EOF |
0026 | Category = rs.Fields(0) & "" |
0027 | Implementation_Period = rs.Fields(1) |
0028 | Development = rs.Fields(2) & "" |
0029 | If (Implementation_Period <> Implementation_Period_Saved) Or (Category <> Category_Saved) Then |
0030 | If Implementation_Period_Saved <> "ZZZZ" Then |
0031 | 'Finalise Previous Implementation Period |
0032 | strImplementation_Period_Text = "|##|" & strImplementation_Period_Text & "|##|" |
0033 | strImplementation_Period_Text = "|1|" & Implementation_Period_Saved & "" & strImplementation_Period_Text |
0034 | End If |
0035 | 'Ready for next Period |
0036 | If Category = Category_Saved Then |
0037 | strCategory_Text = strCategory_Text & strImplementation_Period_Text |
0038 | strImplementation_Period_Text = "" |
0039 | End If |
0040 | End If |
0041 | If Category <> Category_Saved Then |
0042 | If Category_Saved <> "ZZZZZ" Then |
0043 | 'Finalise Previous Priority |
0044 | strCategory_Text = "|ii|" & strCategory_Text & strImplementation_Period_Text & "|ii|" |
0045 | strCategory_Text = "|.|" & Category_Saved & "" & strCategory_Text |
0046 | End If |
0047 | 'Ready for next Period |
0048 | strNote_Text_Local = strNote_Text_Local & strCategory_Text |
0049 | strCategory_Text = "" |
0050 | Implementation_Period_Saved = "ZZZZ" |
0051 | strImplementation_Period_Text = "" |
0052 | End If |
0053 | strImplementation_Period_Text = strImplementation_Period_Text & "|.|" & Development |
0054 | 'Move on ... |
0055 | Category_Saved = Category |
0056 | Implementation_Period_Saved = Implementation_Period |
0057 | rs.MoveNext |
0058 | Loop |
0059 | 'Finish the list ... |
0060 | strImplementation_Period_Text = "|##|" & strImplementation_Period_Text & "|##|" |
0061 | strImplementation_Period_Text = "|1|" & Implementation_Period_Saved & "" & strImplementation_Period_Text |
0062 | strCategory_Text = "|ii|" & strCategory_Text & strImplementation_Period_Text & "|ii|" |
0063 | strCategory_Text = "|.|" & Category_Saved & "" & strCategory_Text |
0064 | strNote_Text_Local = strNote_Text_Local & strCategory_Text |
0065 | 'Top and Tail |
0066 | strNote_Text_Local = "Completed Items By Category:- |..|" & strNote_Text_Local & "|..|" |
0067 | 'Tidy up |
0068 | Set rs = Nothing |
0069 | strNote_Text = strNote_Text_Local |
0070 | End Function |
Line-No. / Ref. | Code Line |
0001 | Public Sub Monthly_Report_Note1024_Update() |
0002 | Dim strLine As String |
0003 | Dim rsTableControl As Recordset |
0004 | Dim rsTableControl2 As Recordset |
0005 | Dim strQuery As String |
0006 | Dim i As Long |
0007 | Dim j As Integer |
0008 | Dim iTaskCount As Integer |
0009 | Dim iFirstTaskCol As Integer |
0010 | Dim ifields As Integer |
0011 | Dim Field_Width As Single |
0012 | Dim Field_Width_Temp As Single |
0013 | Dim iTableWidth As Single |
0014 | Dim Alignment As String |
0015 | Dim Field_Temp As String |
0016 | Dim strTaskFN As String |
0017 | Dim iNoteID As Integer |
0018 | Set rsTableControl2 = CurrentDb.OpenRecordset("Thesis_Progress_Dashboard_List") |
0019 | rsTableControl2.MoveFirst |
0020 | ifields = rsTableControl2.Fields.Count |
0021 | iTaskCount = 0 |
0022 | For i = 0 To ifields - 1 |
0023 | If InStr(rsTableControl2.Fields(i).Name, "Progress") > 0 Then |
0024 | If iTaskCount = 0 Then |
0025 | iFirstTaskCol = i |
0026 | End If |
0027 | iTaskCount = iTaskCount + 1 |
0028 | End If |
0029 | Next i |
0030 | strTaskFN = "The definitions of the " & iTaskCount & " tasks are a follows:-" |
0031 | strTaskFN = strTaskFN & "|99||1|Determine which Notes that I have written are relevant to this Chapter." |
0032 | strTaskFN = strTaskFN & "|1|Fill out any Note-place-holders with whatever's in my head!" |
0033 | strTaskFN = strTaskFN & "|1|Use the reading lists associated with these Notes to establish a limited reading list for the Chapter." |
0034 | strTaskFN = strTaskFN & "|1|Review whatever I've written, in whatever format, on the items in the derived reading lists, and make necessary cosmetic changes in the process of evaluating the items." |
0035 | strTaskFN = strTaskFN & "|1|Segregate this reading list into:- |..|" |
0036 | strTaskFN = strTaskFN & "|.|Higher versus lower priority," |
0037 | strTaskFN = strTaskFN & "|.|Read versus unread," |
0038 | strTaskFN = strTaskFN & "|.|Annotated (by hand) versus unannotated" |
0039 | strTaskFN = strTaskFN & "|.|Those with an Abstract or Note Write-up versus those without|..|" |
0040 | strTaskFN = strTaskFN & "|1|Cull items that are unlikely to be addressed in the next two years and list them as specifically excluded. I may pick up on these at a later stage of the project, but in the short term the culling process will be essential for making across-the-board progress." |
0041 | strTaskFN = strTaskFN & "|1|Determine why the residue are important and relevant - if they are - and briefly document the reasons." |
0042 | strTaskFN = strTaskFN & "|1|Migrate any Book or Paper Abstracts that I have written (as distinct from copied from elsewhere) to Write-Up Notes." |
0043 | strTaskFN = strTaskFN & "|1|If the Book or Paper is important enough, migrate any hand-written annotations to a Write-Up Note, and complete any important incomplete Write-Up Notes." |
0044 | strTaskFN = strTaskFN & "|1|Write and maintain a Chapter Summary, motivating and summarising the Chapter. Use this to ensure I don't get side-tracked." |
0045 | strTaskFN = strTaskFN & "|1|Incorporate the key points of Write-Up Notes into the Topic Notes." |
0046 | strTaskFN = strTaskFN & "|1|Incorporate the highest level thoughts from the Topic Notes into the Main Text of the Chapter. |99|" |
0047 | strLine = " Below is a table++FN|..||.|Note to myself: this table is +TThesis_Progress_DashboardT+, maintainable via +QThesis_Progress_Dashboard_ListQ+ |.|Don't try to update Note 1024 directly as it'll get overwritten. |.|Other narrative is in the code +CMonthly_Report_Note1024_UpdateC+. |..| ++ showing the indicative progress on my Thesis++733++, broken down by Chapter. More detail is given in footnotes. For a definition of the Tasks, follow this Link++FN" & strTaskFN & "++. " |
0048 | Field_Width = 100 / (iTaskCount + 4.5) |
0049 | iTableWidth = (iTaskCount + 4.5) * 85 |
0050 | If Not rsTableControl2.EOF Then |
0051 | rsTableControl2.MoveFirst |
0052 | strLine = strLine & ""
0053 | End If |
0054 | 'Header Row |
0055 | strLine = strLine & ""
0056 | j = 1 |
0057 | Do While j < iFirstTaskCol + iTaskCount |
0058 | Field_Width_Temp = Field_Width |
0059 | Alignment = "BridgeCenter" |
0060 | Select Case j |
0061 | Case 1 |
0062 | Field_Width_Temp = Field_Width * 4.5 |
0063 | Alignment = "BridgeLeft" |
0064 | Field_Temp = "Chapter" |
0065 | Case Is > 1 |
0066 | Field_Temp = "Task " & Right(rsTableControl2.Fields(j).Name, 2) |
0067 | End Select |
0068 | strLine = strLine & "" & Field_Temp & " | " |
0069 | j = j + 1 |
0070 | Loop |
0071 | strLine = strLine & " | " |
0072 | 'Output the rows |
0073 | rsTableControl2.MoveFirst |
0074 | Do While Not rsTableControl2.EOF |
0075 | i = i + 1 |
0076 | strLine = strLine & ""
0077 | j = 0 |
0078 | Do While j < iFirstTaskCol + iTaskCount |
0079 | Field_Width_Temp = Field_Width |
0080 | Alignment = "BridgeCenter" |
0081 | Select Case j |
0082 | Case 0 |
0083 | iNoteID = rsTableControl2.Fields(j) |
0084 | Case 1 |
0085 | Field_Width_Temp = Field_Width * 4.5 |
0086 | Alignment = "BridgeLeft" |
0087 | Field_Temp = Left(rsTableControl2.Fields(j), Len("Chapter 10")) & "++" & iNoteID & "++" & Mid(rsTableControl2.Fields(j), Len("Chapter 10") + 1, Len(rsTableControl2.Fields(j))) |
0088 | Case Is > 1 |
0089 | If rsTableControl2.Fields(j) & "" = "" Then |
0090 | Field_Temp = " " |
0091 | Else |
0092 | Field_Temp = rsTableControl2.Fields(j) |
0093 | If rsTableControl2.Fields(j + iTaskCount) & "" = "" Then |
0094 | Else |
0095 | Field_Temp = Field_Temp & "++FN" & rsTableControl2.Fields(j + iTaskCount) & "++" |
0096 | End If |
0097 | End If |
0098 | End Select |
0099 | If j > 0 Then |
0100 | strLine = strLine & "" & Field_Temp & " | " |
0101 | End If |
0102 | j = j + 1 |
0103 | Loop |
0104 | strLine = strLine & " | " |
0105 | rsTableControl2.MoveNext |
0106 | Loop |
0107 | 'Footer |
0108 | strLine = strLine & " | " |
0109 | 'Read Note 1024 for update |
0110 | strQuery = "SELECT Notes.* FROM Notes WHERE Notes.ID = 1024;" |
0111 | Set rsTableControl = CurrentDb.OpenRecordset(strQuery) |
0112 | rsTableControl.MoveFirst |
0113 | rsTableControl.Edit |
0114 | 'Update Note 1024 |
0115 | 'Note Text |
0116 | rsTableControl.Fields(3) = strLine |
0117 | 'Note Title |
0118 | strLine = "Status: Thesis Dashboard (" & StrTitle_Year & ": " & StrTitle_Month & ")" |
0119 | rsTableControl.Fields(1) = strLine |
0120 | 'Set Note Status |
0121 | rsTableControl.Fields(10) = "Temp" |
0122 | rsTableControl.Update |
0123 | 'Output the Note regeneration request |
0124 | DoCmd.RunSQL ("DELETE Notes_To_Regen.* FROM Notes_To_Regen;") |
0125 | Set rsTableControl = CurrentDb.OpenRecordset("SELECT Notes_To_Regen.* FROM Notes_To_Regen;") |
0126 | rsTableControl.AddNew |
0127 | rsTableControl.Fields(0) = 1024 |
0128 | rsTableControl.Update |
0129 | Archive_Notes_Now = "No" |
0130 | Regenerate_the_Links = "No" |
0131 | Regen_Notes_Only = "Yes" |
0132 | CreateNotesWebPages |
0133 | End Sub |
Line-No. / Ref. | Code Line |
0001 | Public Sub Pianola_Check() |
0002 | Dim ie As InternetExplorer |
0003 | Dim html |
0004 | Dim i As Long |
0005 | Dim j As Long |
0006 | Dim k As Long |
0007 | Dim Requested_URL |
0008 | Dim Returned_URL |
0009 | Dim start As Date |
0010 | Dim RunTime As Single |
0011 | Dim Running_Hours As Single |
0012 | Dim Issue As String |
0013 | Dim Defunct As Boolean |
0014 | Dim Update_Time As Double |
0015 | Dim Recent_Check As Date |
0016 | Dim Recent_Check_OK As Boolean |
0017 | Dim Last_Bounce As Date |
0018 | Dim Given_Up As Boolean |
0019 | Dim Uncheckable As Boolean |
0020 | Dim strDocument As String |
0021 | Dim Pianola_ID As Long |
0022 | Dim Max_Pianola As Long |
0023 | Dim Pianola_Root As String |
0024 | Dim strDate As String |
0025 | Max_Pianola = 100 |
0026 | Pianola_ID = 2 |
0027 | Pianola_Root = "https://app.pianola.net/Results/Session" |
0028 | 'Fix the parameters below ... |
0029 | Stop |
0030 | Recent_Check = Now() - 10 'Parameter - Check gap in days |
0031 | RunTime = 5 'Parameter - run time in hours |
0032 | 'Open Internet Explorer in memory, and go to website |
0033 | Set ie = New InternetExplorer |
0034 | ie.Visible = False |
0035 | start = Now() |
0036 | Last_Bounce = start |
0037 | Do While Pianola_ID < Max_Pianola |
0038 | 'Bounce IE every 5 minutes |
0039 | If (Now() - Last_Bounce) * 24 * 60 > 5 Then |
0040 | ie.Quit |
0041 | Set ie = Nothing |
0042 | Set ie = New InternetExplorer |
0043 | ie.Visible = False |
0044 | Last_Bounce = Now() |
0045 | Debug.Print Now() & " - "; "IE Bounced at " & Last_Bounce |
0046 | End If |
0047 | Uncheckable = False |
0048 | Update_Time = Now() |
0049 | Given_Up = False |
0050 | Recent_Check_OK = True |
0051 | If Recent_Check_OK = True Then |
0052 | Requested_URL = Pianola_Root & Pianola_ID |
0053 | Defunct = False |
0054 | Issue = "" |
0055 | On Error GoTo Err_Fix |
0056 | Resume_Here: |
0057 | ie.Navigate Requested_URL |
0058 | Update_Time = Now() |
0059 | 'Wait until IE is done loading page |
0060 | i = 1 |
0061 | Do While ie.ReadyState <> READYSTATE_COMPLETE |
0062 | DoEvents |
0063 | i = i + 1 |
0064 | If i > 3000 Then |
0065 | Given_Up = True |
0066 | GoTo Give_Up |
0067 | End If |
0068 | Loop |
0069 | Give_Up: |
0070 | If Given_Up = False Then |
0071 | Returned_URL = ie.LocationURL |
0072 | strDocument = ie.Document |
0073 | If strDocument = "[object HTMLDocument]" Then |
0074 | strDocument = ie.Document.DocumentElement.innerHtml |
0075 | Else |
0076 | strDocument = ie.Document.DocumentElement.innerHtml |
0077 | End If |
0078 | If Requested_URL <> Returned_URL Then |
0079 | If Replace(Returned_URL, "https", "http") = Requested_URL Then |
0080 | Debug.Print Now() & " - "; "URL Secured: "; Returned_URL |
0081 | Issue = "URL Secured" |
0082 | Else |
0083 | If (Requested_URL & "/" = Returned_URL) Or (Requested_URL = Returned_URL & "/") Then |
0084 | Debug.Print Now() & " - "; "URL with trailing slash: "; Returned_URL |
0085 | Issue = "URL with trailing slash" |
0086 | Else |
0087 | If Left(Returned_URL, Len("http://www.webaddresshelp.bt.com")) = "http://www.webaddresshelp.bt.com" Then |
0088 | Debug.Print Now() & " - "; "URL Not found" |
0089 | Issue = "URL Not found" |
0090 | Defunct = True |
0091 | Else |
0092 | If Left(Returned_URL, Len("http://web.demo.barefruit.co.uk/")) = "http://web.demo.barefruit.co.uk/" Then |
0093 | Debug.Print Now() & " - "; "Website reports Document Not Found" |
0094 | Issue = "Document Not Found" |
0095 | Else |
0096 | Debug.Print Now() & " - "; "URL Differs: "; Returned_URL |
0097 | Issue = "URL Differs" |
0098 | End If |
0099 | End If |
0100 | End If |
0101 | End If |
0102 | End If |
0103 | i = InStr(strDocument, "") |
0104 | If i > 0 Then |
0105 | j = InStr(i, strDocument, "") |
0106 | If j > 0 Then |
0107 | k = InStr(i, strDocument, ",") |
0108 | End If |
0109 | If k > 0 And k < j Then |
0110 | strDate = Trim(Mid(strDocument, k + 1, j - k - 1)) |
0111 | Debug.Print Now() & " - "; Pianola_ID, strDate |
0112 | End If |
0113 | End If |
0114 | i = InStr(strDocument, " |
0115 | k = Len(" |
0116 | If i > 0 Then |
0117 | j = InStr(i + k, strDocument, """>") |
0118 | If j > 0 Then |
0119 | strDate = Trim(Mid(strDocument, i + k, j - i - k)) |
0120 | Debug.Print Now() & " - "; Pianola_ID, strDate |
0121 | End If |
0122 | End If |
0123 | End If |
0124 | End If |
0125 | If Given_Up = True Then |
0126 | 'Flag those with file-types that can't be checked |
0127 | End If |
0128 | Running_Hours = (Now() - start) * 24 |
0129 | If Running_Hours > RunTime Then |
0130 | Stop |
0131 | start = Now() |
0132 | End If |
0133 | Pianola_ID = Pianola_ID + 1 |
0134 | Loop |
0135 | ie.Quit |
0136 | Set ie = Nothing |
0137 | Debug.Print Now() & " - "; "Job complete at " & Now() |
0138 | MsgBox "Webrefs Checker Completed at " & Now() |
0139 | Exit Sub |
0140 | Err_Fix: |
0141 | Debug.Print Now() & " - "; Err.Description |
0142 | DoEvents |
0143 | Err.Clear |
0144 | ie.Quit |
0145 | Set ie = Nothing |
0146 | Set ie = New InternetExplorer |
0147 | ie.Visible = False |
0148 | Last_Bounce = Now() |
0149 | Debug.Print Now() & " - "; "IE Bounced at " & Last_Bounce |
0150 | GoTo Resume_Here |
0151 | End Sub |
Line-No. / Ref. | Code Line |
0001 | Public Function Remove_Hyperlinks(Photo_Title) |
0002 | Dim Hyperlink_Start As Integer |
0003 | Dim Hyperlink_End As Integer |
0004 | Dim Photo_Title_Local |
0005 | Dim Hyperlink As String |
0006 | Photo_Title_Local = Photo_Title |
0007 | 'Remove hard-codings ... |
0008 | Hyperlink_Start = 1 |
0009 | Do While Hyperlink_Start > 0 |
0010 | Hyperlink_Start = InStr(Hyperlink_Start, Photo_Title_Local, " |
0011 | If Hyperlink_Start > 0 Then |
0012 | Hyperlink_End = InStr(Hyperlink_Start, Photo_Title_Local, ">") |
0013 | Photo_Title_Local = Left(Photo_Title_Local, Hyperlink_Start - 1) & Mid(Photo_Title_Local, Hyperlink_End + 1) |
0014 | End If |
0015 | Loop |
0016 | Photo_Title_Local = Replace(Photo_Title_Local, "", "") |
0017 | 'Remove Note-links |
0018 | Hyperlink_Start = 1 |
0019 | Do While Hyperlink_Start > 0 |
0020 | Hyperlink_Start = InStr(Hyperlink_Start, Photo_Title_Local, "++") |
0021 | If Hyperlink_Start > 0 Then |
0022 | Hyperlink_End = InStr(Hyperlink_Start + 1, Photo_Title_Local, "++") |
0023 | If Hyperlink_End > 0 Then |
0024 | Hyperlink = Mid(Photo_Title_Local, Hyperlink_Start, Hyperlink_End - Hyperlink_Start + 2) |
0025 | If Len(Hyperlink) < 20 Then |
0026 | Photo_Title_Local = Left(Photo_Title_Local, Hyperlink_Start - 1) & Mid(Photo_Title_Local, Hyperlink_Start + Len(Hyperlink)) |
0027 | Else |
0028 | Hyperlink_Start = Hyperlink_Start + 20 |
0029 | End If |
0030 | Else |
0031 | Hyperlink_Start = 0 |
0032 | End If |
0033 | End If |
0034 | Loop |
0035 | 'Return |
0036 | Remove_Hyperlinks = Photo_Title_Local |
0037 | End Function |
Line-No. / Ref. | Code Line |
0001 | Public Function Zap_Cross_References(Calling_Type, Calling_ID, Calling_Timestamp) |
0002 | 'This function does two things: (a) deletes the references associated with a calling object (b) saves these references in the zapper table so they can be compared with the replacement rows and appropriate action taken |
0003 | Dim strQuery As String |
0004 | Dim Calling_ID_Local As Integer |
0005 | Dim rsAuthors As Recordset |
0006 | 'Zap the Zapper |
0007 | strQuery = "DELETE * FROM Cross_Reference_Zapper;" |
0008 | DoCmd.RunSQL (strQuery) |
0009 | 'Find the Calling_ID for Authors |
0010 | If Calling_Type = "A" Then |
0011 | strQuery = "SELECT Authors.Author_ID FROM Authors WHERE Authors.Author_Name=""" & Calling_ID & """;" |
0012 | Set rsAuthors = CurrentDb.OpenRecordset(strQuery) |
0013 | If Not rsAuthors.EOF Then |
0014 | Calling_ID_Local = rsAuthors.Fields(0) |
0015 | Else |
0016 | Calling_ID_Local = 0 |
0017 | End If |
0018 | Set rsAuthors = Nothing |
0019 | Else |
0020 | Calling_ID_Local = Calling_ID |
0021 | End If |
0022 | If Calling_ID_Local <> 0 Then |
0023 | 'Populate the Zapper |
0024 | strQuery = "INSERT INTO Cross_Reference_Zapper SELECT Cross_Reference.* FROM Cross_Reference WHERE (((Cross_Reference.Calling_Type)=""" & Calling_Type & """) AND ((Cross_Reference.Calling_ID)=" & Calling_ID_Local & ") AND ((Cross_Reference.Calling_Timestamp)=" & Calling_Timestamp & "));" |
0025 | DoCmd.RunSQL (strQuery) |
0026 | 'Do the Zapping |
0027 | strQuery = "DELETE Cross_Reference.* FROM Cross_Reference INNER JOIN [Cross_Reference_Zapper] ON Cross_Reference.ID = [Cross_Reference_Zapper].ID;" |
0028 | DoCmd.RunSQL (strQuery) |
0029 | End If |
0030 | End Function |