Loop i VBA

Hvis du looper gennem tabellen skriver den jo alle poster ud. Hvad er formålet med dette?

Hvis du vil udskrive formularens aktuelle post kan du bruge denne ved et alfanumerisk felt:

DoCmd.OpenReport "rapport1", acViewPreview, , "[Tabel1]![tekst] = '" & Me!tekst & "'"

Ved et numerisk felt:

DoCmd.OpenReport "rapport1", acViewPreview, , "[Tabel1]![tal] = '" & Me!tal & ""

Fejl - Ved et numerisk felt:

DoCmd.OpenReport "rapport1", acViewPreview, , "[Tabel1]![tal] = " & Me!tal & ""

Hej!

Jeg har et et SQL kald som tager fra mange tabeller!

Hver enkelt post i den ene tabel, kædes så sammen med resten af de forskellige tabel udtræk!

Herefter udskrives de som en rapport!
Jeg gør det med den enkelte, men man skal vælge dem manuelt og det vil jeg gerne undgå

Hvis du laver en forespørgsel med alle relevante tabeller / felter, kan du i din formular vælge at udskrive den aktuele post, uanset fra hvilke tabller data kommer fra.

Det er jeg godt klar over, men hvordan får jeg den til at fortage et gennemløb af mine poster, det resultere jo i at mit SQL ændres for hver position tælleren kommer forbi

Har dit spørgsmål noget med internetet at gøre?
Hvad er formålet med at gennemløbe tabellerne og udskrive hver enkelt post?

Kunne dette være løsningen (dit spørgsmål er stadig ikke helt klart):
  Dim Rst as Recordset
  Set Rst = CurrentDb.OpenRecordset("DinTabel")
  With Rst
    Do
      ' Opstil et SQL udtryk
      ' Kald en eller anden rutine
      .MoveNext
    Loop Until .EOF
    .Close
  End With
  Set Rst = Nothing

Hov!

Jeg mangler jo lige at fortælle, at den skal foretage nogle forskellige rutiner ved hver enkel post!

Hvordan kan jeg få den til det ?

Det har ikke noget med Internettet at gører, den skal skriev nogle forskellige oversigter ud, nogle gange kun få en post, andre for samtlige poster

fdata -> Sådan noget i den retning havde jeg også tænkt man kunne gøre!

Her et eksempel på en løkke:

Dim VARa As Integer
Dim VARb As Integer
VARa = InputBox(Prompt:="Antal", Title:="ny værdi", Default:="")
VARb = 0
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
Do Until VARb = VARa
DoCmd.GoToRecord acForm, "FORMULARNAVN", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
VARb = VARb + 1
Loop
MsgBox "slut"

Løkken kopierer den aktuelle post og indsætter den som en ny post er valgt antal gange.

Du skal jo have "målt" hvad løkken skal gøre ved den enkelte post. Det kan du gøre med en If .. Then eller en Select Case:

Dim Rst as Recordset
Set Rst = CurrentDb.OpenRecordset("DinTabel")
With Rst
Do
If en betingelse Then
Udfør en kommando hvis bertingelsen er opfyldt
Else:
Gør noget andet
end if
.MoveNext
Loop Until .EOF
.Close
End With
Set Rst = Nothing

Mugs, fungerer dette også når jeg lave en forespørgsel i Access ??

Alle koder du ser her i spørgsmålet er lavet i VBA som kodes i en formular. Hvor kommer forespørgslen ind i billedet.

Undskyld det er mig som vrøvler, selvfølgelig er det i en formular. :)