Lave visse rækker i tabel til en samlet tekststreng

Du kan lave en opdateringsforespørgsel, hvos du i feltet markering sætter den markering du ønsker i kriteriefeltet.

I feltet med din nye tekststregn kan du evt. bruge udtrykegeneratoren eller indtaste udtrykket manuelt:

= [email]&";"&[adresse]

Se lidt på denne...

http://www.eksperten.dk/spm/243772

Sub bygAdresse()
  Dim strAdr As String
  Dim con As ADODB.Connection
  Dim rst As New ADODB.Recordset
 
  Set con = CurrentProject.Connection
 
  rst.Open "SELECT adresse FROM tblAdr WHERE markering=True;", _
        con, adOpenDynamic, adLockOptimistic
  With rst
    Do While Not .EOF
      strAdr = strAdr & .Fields("adresse") & ";"
      .MoveNext
    Loop
  End With
 
  Debug.Print strAdr
 
End Sub

Jeg får fejl ved:
Dim con As ADODB.Connection
  Dim rst As New ADODB.Recordset
not user defined, ellers så ser det fint ud, og er nok det jeg leder efter

Din fejl skyldes sikkert at nih's løsning bygger på Access 2000...

Prøv at tjekke mit link, der er BÅDE en '97 og '2000-løsning!

Jamen, det er acces 200, godt nok konverteret, men alligevel

Så prøv med:

Dim con As ENW ADODB.Connection

EWN => NEW

Dim con As NEW ADODB.Connection

Stadig det samme, desværre

Er der ingen der har en ide til hvorfor de fejl opstår i access 2000, hvor det burde virke.
Og hvad betyder det, kan det ikke ordnes på anden måde.

Udskift db og con objekterne med disse linjer:

dim db as database
dim rst as recordset
set db = currentdb
set rst = db.OpenRecordset( "SELECT adresse FROM tblAdr WHERE markering=True;")

Sorry Proaccess, så ikke dit link - Vores kode ligner lidt hinanden :)

Niels

hej nih, det virker perfekt, hvad var der var galt med den anden kode !!
send et svar og du får point

>nih: min er nok lidt mere gennerel...

>rasmusd: Hvis du havde fulgt mit link, havde du også set ..as database-metoden...  det er et levn fra din database's 97'er-tid!

Jeg prøvede at følge dit link og din kode, men det var ikke lige noget jeg kunne gennemskue.

Men vil det sige at min database ikke helt er en access 2000, men en konverteret 2000 fra 97, for det er da irriterende

svar :o)

den første bygger på ADO object libory - den sidste på DAO.
Du vælge hvilket libory du vil anvende i VBA editoren under tools - referencer.

Niels
PS gi' lidt pts til proaccess

;o)

>nih: behøves ikke... jeg kom jo bare med et gammelt uforståeligt link...  ;0)

Ja - du har ret. Prøvede bare at være høflig.......

>nih: JEG HÅBER AT DER VAR EN SMILEY BAG DIN SIDSTE KOMMENTAR !!!

SELVFØLGELIG :o)
 
fik du kaffen galt i halsen ??? :o)

Niels

Ja, og spildte ned ad skjorten...  ha' en fortsat go' da'...

i lige måde :o)