Trying to get the "Name of Panel" User puts in sheet "TOC" cell A:27, and gets only the 'SQL Query to import Analog Input Tags the user is filtering.

[LZ_Code]

Here is the code im working with. Need to figure out how to add code that will look for the "Name of Panel" and filter out the Analog inputs.

Option Explicit

Sub AnalogInput_DB()

    'Path
    Dim strPath As String
    
    'Provider
    Dim strProv As String
    
    'Connection String
    Dim strCn As String
    
    'Connection
    Dim Cn As New Connection
                  
    'RecordSet for AI
    Dim rsQry_AI As New Recordset
    
    'SQL Query for AI
    Dim strQry_AI As String
    
    
    'Establish connection to Project DB. Looks at the filepath specified in cell B1 of Project_DB Sheet
    strPath = ActiveWorkbook.Sheets("PAGE").Range("B1").Text
    strProv = "Microsoft.ACE.OLEDB.12.0;"
    strCn = "Provider=" & strProv & "Data Source=" & _
    strPath

    'Connection Open
    Cn.Open strCn
   
    intID = TOC.[A27]
               
    'SQL Query to import Digital Input Tags
    strQry_AI = "SELECT Instruments.PLCPanel, Instruments.Address FROM Instruments WHERE (((Instruments.AnalogInput)=True)) ORDER BY Instruments.PLCPanel;"
    rsQry_AI.Open strQry_AI, Cn
    
    'Puts Data into the Device Column of the Digital Device Sheet
    ActiveWorkbook.Sheets("AnalogInput").Range("A17").CopyFromRecordset rsQry_AI
    
    Cn.Close
    

End Sub

 

[LZ_Code]

Option Explicit

Sub AnalogInput()

'Get filter name from PAGE
Dim rawFile As String

'Path
Dim strPath As String

'Provider
Dim strProv As String

'Connection String
Dim strCn As String

'Connection
Dim Cn As New Connection

'RecordSet for AI
Dim rsQry_AI As New Recordset

'SQL Query for AI
Dim strQry_AI As String

Dim id As String
id = Worksheets("PAGE").Cells(2, 5).Value = ""

'if a value was entered, open and filter report
If Len(Trim(id)) > 0 Then
' DoCmd.OpenReport "ReportName", acViewPreview, , "[IDENT NO] = " & id, acWindowNormal
End If


'Worksheets("PAGE").Cells(2, 5).Value = ""

'-----If the user entered a panel number then proceed
If Worksheets("PAGE").Cells(2, 5).Value <> "" Then

'Establish connection to Project DB. Looks at the filepath specified in cell B1 of Project_DB Sheet
strPath = ActiveWorkbook.Sheets("PAGE").Range("B1").Text
strProv = "Microsoft.ACE.OLEDB.12.0;"
strCn = "Provider=" & strProv & "Data Source=" & _
strPath

'Connection Open
Cn.Open strCn

'SQL Query to import Digital Input Tags
strQry_AI = "SELECT Instruments.PLCPanel, Instruments.Address FROM Instruments WHERE (((Instruments.PLCPanel) = [value needed]) And ((Instruments.AnalogInput) = True))ORDER BY Instruments.PLCPanel;"
rsQry_AI.Open strQry_AI, Cn

'Puts Data into the Device Column of the Digital Device Sheet
ActiveWorkbook.Sheets("AnalogInput").Range("A17").CopyFromRecordset rsQry_AI

Cn.Close
End If

End Sub

 

[Peter_SSs]

Appears to be duplicate to: Calling Data from access based on a specific name in TOC cell A:27

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.