Avatar billede jaze Nybegynder
10. februar 2005 - 14:52 Der er 4 kommentarer og
1 løsning

Vis hver post i recordset i f.eks. navn

Jeg vil gerne have mulighed for at lave et udtræk.

Og herefter vise hver værdi for hvert felt, det må kunne lade sig gøre med en for each men jeg sgudte ik få det til at fun'ge

Her er en lille test af hvad jeg prøver

Private Sub Kommandoknap4_Click()
Dim strSQL As String
Dim rst As New ADODB.recordset
Dim Felt As Field

strSQL = "Select [e-mail] from tblEmail"
   
    rst.Open strSQL, CurrentProject.Connection

For Each Felt In rst.Fields
---handling---
Next
 
Set rst = Nothing

End Sub
10. februar 2005 - 14:56 #1
Hvis For Each ikke virker (syntaksen ser ellers rigtig ud), så prøv denne lidt mere primitive:

Dim n as long
For n = 0 to rst.fields.count - 1
    debug.print rst(n) 'eller hvad ved jeg...
next n
Avatar billede jaze Nybegynder
10. februar 2005 - 15:01 #2
Den kommer da lidt længere, den præsentere sidste mail i recordsettet
10. februar 2005 - 15:05 #3
hmm, så må du have noget kode, som får dit recordset til at hoppe til sidste post.
Hvis du vil cycle gennem alle poster må det være sådan:

Private Sub Kommandoknap4_Click()
Dim strSQL As String
Dim rst As New ADODB.recordset
Dim Felt As Field
Dim n as long
strSQL = "Select [e-mail] from tblEmail Order by [e.mail]"
   
    rst.Open strSQL, CurrentProject.Connection
    rst.movefirst
    do until rst.eof
        For n = 0 to rst.fields.count - 1
            debug.print rst(n) 'eller hvad ved jeg...
        next n 
        rst.movenext
    loop
Set rst = Nothing

End Sub
Avatar billede jaze Nybegynder
10. februar 2005 - 15:16 #4
Ja, selvfølgelig var det det der manglede, Det undrer mig dog stadigvæk at for each ikke virker
10. februar 2005 - 16:28 #5
enig!

Jeg har ikke lige haft mulighed for at afprøve det, men jeg mener at huske, at jeg har haft problemer med det før :o(
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger AI forretningskonsulent i Ballerup

Ringkjøbing Landbobank – Nordjyske Bank

Forretningsudvikler til procesoptimering

Politiets Efterretningstjeneste

IT-frontdesk medarbejder til PET's IT Servicedesk