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