liste med char >255

I hvilket format ønskes eksporten ?

excel

Dim fReturn As Boolean
    Dim strAction As String
    Dim strObject As String
    Dim intType As Integer
    Dim strMsg As String

On Error GoTo HandleErr
   
    If Me!tabImportExport.Value = 0 Then
        ' Page1 Import/Link chosen
        strAction = Choose(Me!optImport, "Import", "Link")
        If strAction = "Import" Then
            strMsg = "If you are importing data directly into tables, please " _
              & "make sure that the columns in your spreadsheet or the fields " _
              & "in your text file or database match precisely with the fields " _
              & "in the Address book application before importing your data." _
              & vbCrLf & vbCrLf & "If you import data into a new table, you " _
              & "can create an Append query to add the new data to the Address " _
              & "book application's tables after the data has been imported." _
              & vbCrLf & vbCrLf & "See 'Append Queries' in Microsoft Access " _
              & "Online Help for more information."
          ' MsgBox strMsg, , "Import data alert"
        End If
        Else
        fReturn = ImportExportData(strAction)
  If Me!tabImportExport.Value = 2 Then
  strAction = Choose(Me!optExport, "Excel", "RTF", "Text")
        intType = "1"
        strObject = "eksportere_adr_til_katalog"
        fReturn = ImportExportData(strAction, strObject, intType)
 
 
    Else
        ' Page2 Export chosen
        strAction = Choose(Me!optExport, "Excel", "RTF", "Text")
        intType = "1"
        strObject = Me!cboName
        fReturn = ImportExportData(strAction, strObject, intType)
End If
End If
ExitHere:
    Exit Sub

HandleErr:
    Select Case Err
        Case Else
            MsgBox Err & ": " & Err.Description, vbCritical, _
            "Error in Form_ImportExport.cmdGo_Click"
            Resume ExitHere
    End Select
End Sub

men forkortelsen (<255) sker allerede når du laver forspørgelsen

Jeg mener at der er en begrænsning i Excel så du ikke kan have mere end 255 karakterer i en celle - eller er jeg galt på den ?

Jeg ville nok tage et udtræk i nogle variabler og så skrive dem til en kommasepareret fil som du derefter kan åbne i Excel. Så kan du checke i filen om >255 accepteres.

det sker allerede i access det nytter ikke at lave en txt/csv fil derfor vil jeg gerne chekke tabellen også gerne gennerer en list /rapport med de vareid der indeholder en [Beskrivelse] der har flere char end 255...

Har du checket om txt/csv filen indeholder >255 karakterer ? Jeg er ret sikker på at der ikke kan være mere en 255 karakterer i en cell.
Alternativt kan du lave en rapport som du eksporterer til en .rtf eller html fil (kan så ses i Word eller en browser). Det ved jeg fungerer.

ja men der er i Access den cutter af !!!

Jamen hvis den cutter i Access export funktionen så kunne du jo netop selv lave eksporten manuelt. Noget i denne stil:
Dim rst As RecordSet
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT * FROM tabelnavn WHERE bla. bla.")
If rst.RecordCount = 0 Then Exit Sub
Open filnavn For Output As #1   
Do While Not rst.EOF = TRUE
  Write #1, rst!felt1, rst!felt2, rst!felt3, rst!felt4,
  rst.MoveNext
loop
rst.Close
Close 1

jeg gerne chekke en tabel, og gerne gennerer en list /rapport med de vareid der indeholder en [Beskrivelse] der har flere char end 255...

You lost me here.
Jeg tror jeg er helt med på hvad du vil, men forstår ikke din sidste kommentar. Mener du at mit foreslag er helt hen i vejret, eller hvordan skal det forstås ???

nej nej . MEN
jeg gerne chekke  tabellen, og gerne gennerer en list /rapport med de vareid der indeholder en [Beskrivelse] der har flere char end 255...
Det er den løsning kunden skal bruge, fordi det nyttter ikke han skal sidde med en csv/txt-fil etc. Da han er en komputer tosse

Ok - fandt det i Excel (troede du blev sur på mig ;-)
Excel kan IKKE indeholde mere end 255 bogstaver i en celle. Se nederst her.
Du er nødt til at anvende en anden metode. Mit foreslag er:
Lav en RAPPORT baseret på din query som du så gemmer i et .rtf eller .html format (hvis du har problemer med dette så sig til).
Jeg tror du skal bruge noget i retning af:

SELECT * FROM tabelnavn WHERE len([Beskrivelse]) > 255

Excel documentation (søgning på "cell limitation" i answer wizard):
Worksheet and workbook specifications
This topic provides reference information about:
Worksheet and workbook specifications
Calculation specifications
PivotTable report specifications
Worksheet and workbook specifications
Feature Maximum limit
Open workbooks Limited by available memory and system resources
Worksheet size 65,536 rows by 256 columns
Column width 255 characters  <----- HER

Jeg er RIGTIG god til at misforstå. Fandt dette her:
Length of cell contents (text) 32,767 characters. Only 1,024 display in a cell; all 32,767 display in the formula bar.
Så det ER altså muligt, men man kan kun se 1,024 bogstaver i cellen med mindre man selecter den og kigger i formel linien.
Men måske var det sql statementen du var ude efter ?

Hvis du laver en førspørgsel med 2 felter:
1. [Beskrivelse]. Kriterium = Len([Beskrivelse]) > 255 og
2. [VareId]

får du den ønskede liste, som derefter kan gemmes som Excel-fil med:

DoCmd.OutputTo acOutputQuery, "Fnavn", acFormatXLS, "Fil"

hvor "Fnavn" navnet på forespørgslen og "Fil" er destinationsfilen.

jeg tror bjarne har fortjent pointne

Tak. Håber du kunne bruge det selv om det var lidt forvirrende.