fSQL_Data – Nifty Access

Note:- To get this nice-looking code below I used this online formater —- http://hilite.me/ —- Set to Language:- VB.Net and Style:- VS…

I also modified the HTML code as follows:-

I replaced “ALL” of the HTML from the start, up to the first text entry, (in this case “Private”) with the following code. It’s basically the same it just sets The Font to a monospaced font and the font size to 14px. I’m not a 100% sure that this HTML code is correct I’m sure someone with knowledge of HTML could suggest improvements!

<!– HTML generated using hilite.me –>
<div style=”background: #ffffff; overflow: auto; width: auto; border: solid gray; border-width: .1em .1em .1em .8em; padding: .2em .6em;”>
<pre style=”font-family: monospace; font-size: 14px; border: 1px dashed;”><span style=”color: #0000ff;”>

Private Function fSQL_Data(lngMasterID As Long) As String
Dim strSubName As String
Dim strModuleName As String

strSubName = "fSQL_Data"
strModuleName = "Form - " & Me.Name

On Error GoTo Error_Handler

Dim strSQL0 As String
Dim strSQL1 As String
Dim strSQL2 As String
Dim strSQL3 As String
Dim strSQL4 As String


strSQL1 = "SELECT dataLinkID, dataSets, dataItems, dataTickedOff "
strSQL2 = "FROM tblData "
strSQL3 = "WHERE (((dataLinkID)="
'1
strSQL4 = "));"

strSQL0 = strSQL1 & strSQL2 & strSQL3 & lngMasterID & strSQL4

fSQL_Data = strSQL0

Exit_ErrorHandler:
    
    Exit Function

Error_Handler:
        Select Case Err.Number
            Case 1 'When Required, Replace Place Holder (1) with an Error Number
                MsgBox "Error produced by Place Holder please check your code !  Error Number >>>  " _
                & Err.Number & "  Error Desc >>  " & Err.Description, , conAppName
            Case Else
                MsgBox "Error From --- " & strModuleName & ", " & strSubName & " --- Error Number >>>  " & Err.Number _
                & "  <<< Error Description >>  " & Err.Description, , conAppName
        End Select
    Resume Exit_ErrorHandler

End Function      'fSQL_Data

Newsletter