How do I create an Access query to get multiple row;, one row for each column in a table?

I looked here for a solution, but didn't find anything similar.

Here is my Discounts table:

I need output that looks like this:

Is this possible? How do I go about it?

I tried CrossTab but that doesn't seem to be the solution especially if there are more partner type columns across the Discounts table.

Here is an example VBA code you can adapt:

Public Sub MakeNewQry()
    Const CrossTabQryName As String = "qryCrossTab"
    Dim db As Database, fld As Field, strSQL As String
    
    With CurrentDb
        strSQL = ""
        For Each fld In .TableDefs("Discounts").Fields
           If fld.Name Like "?*VAR" Then
             strSQL = IIf(strSQL = "", "", strSQL & vbCrLf & "UNION ALL ") & _
                    "select ID, '" & fld.Name & "' as PartnerType, " & fld.Name & " as Discount from Discounts "
           End If
        Next fld
        Dim qd As QueryDef
        Set qd = New QueryDef
        qd.Name = CrossTabQryName
        qd.sql = strSQL
        
        '---Delete the old query
        On Error Resume Next
        .QueryDefs().Delete (CrossTabQryName)
        On Error GoTo 0
        .QueryDefs().Append qd
        set qd=nothing
    End With
    
    Set fld = Nothing
    Set db = Nothing
End Sub