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

More Useful Stuff HERE:-

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.