How can I change Overridden Qualified Table Name with a programm

Question

Hallo have the the Problem
to change more then 500 Reports more than one time
I want to change to change qualified Tabelname with a programm ( I wan't del the qualifier )
manuel with the report designer I set the replace qualified Tablename and then verifiy Database is ok
I want to do this with a program but the Qualifiers is write protected
How can I change the Qualifier by programm.
thanks for help

Answer 1

Hello, Jörg;
As I mentioned, you can remove the Qualifier in the report designer but we do not recommend it. It is not supported at runtime in an application. We expect a table location to be fully qualified or you may get incorrect data.
There is a way to change the fully qualified location at runtime and get and set the qualifier. The following code gets what is saved in the report.
'Definitions in Module.bas
Public crxApplication As New CRAXDRT.Application
Public External_Report As CRAXDRT.Report
Public ReportFileName As String
Public crxTable As CRAXDRT.DatabaseTable
Private Sub Get_Qualifiers()
'Get the fully qualified table location
'Change it if necessary and set the new location "owner.dbo.tablename"
'Verify the Database
' Assemble the qualified table name for each table.
For Each crTable In External_Report.Database.Tables
    Dim strQualTableNamePart As Variant
    Dim strQualTableName As String
    strQualTableName = ""
    ' Obtain the table's qualifiers.
    Dim i As Integer
    For i = 1 To crTable.Qualifiers.Count
        If i > 1 Then
        strQualTableName = strQualTableName + "."
    End If
    strQualTableNamePart = crTable.Qualifiers.Item(i)
    strQualTableName = strQualTableName + strQualTableNamePart
    Next
    ' Obtain the table's name.
    If (strQualTableName <> "") Then
        strQualTableName = strQualTableName + "."
    End If
    strQualTableName = strQualTableName + crTable.Location
    ' Display the fully qualified table name.
    MsgBox "Fully qualified location " + strQualTableName
    crTable.Location = strQualTableName
Next
'Should be the equivalent of:
'External_Report.Database.Tables(1).Location = "Xtreme1.dbo.Customer"
'If the structure of the database has changed, verify the database
'External_Report.Database.Verify
End Sub
Elaine