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)="
strSQL4 = "));"

strSQL0 = strSQL1 & strSQL2 & strSQL3 & lngMasterID & strSQL4

fSQL_Data = strSQL0

    Exit Function

        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

This website uses third-party software - WordPress Add-Ins to be exact. I don't know what any individual add-in does, but I'm sure that many of them collect information about you. So be aware, if you continue using this site, then you are likely to be sharing your information. I don't know how to disable this sharing for any, or all of the plugins for individual users. So I can't stop the sharing of information. If this worries you then please do not use this site... If you continue to use this site I will assume that you are happy with it.

Do you need a hand in the right direction?

You are in the right place.