Access Table to Many Excel Sheets
This handy product from Nifty Access allows you to complete a difficult labour intensive process with ease without using any code! This drop-in component will automatically enhance your MS Access skills, helping you to become the go-to person in your organisation for database development. All the code is available in the sample database, you can explore it, modify it and use it for your own Devices!
Table to Many Excel Sheets - Nifty Access
… …
Private Function fSQL_Data( )
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
'CODE HERE
'CODE HERE
'CODE HERE
Exit_ErrorHandler:
Exit Function
Error_Handler:
Select Case Err.Number
Case 0.123 'When Required, Replace Place Holder (0.123) 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
