"Oversættelse" af visual basic sprog

Private Sub cmdPreview_Click()
Opret en procedure ved navn cmdPreview_Click, der ikke tager nogle parametre.

    Dim Itm As Variant
    Dim SQLStr As String
Opret to variable, Itm, der er en variant, og SQLStr, der er en tekststreng

For Each Itm In Me!Listbox.ItemsSelected
For hver valgt linje i Listbox

        SQLStr = SQLStr & Me!Listbox.ItemData(Itm) & ", "
tilføj linjens værdi til SQLStr, efterfulgt af ", "

    Next Itm

If Len(SQLStr) > 0 Then
Hvis SQLStr ikke er tom
        SQLStr = "Medlemsnr in (" & Left(SQLStr, Len(SQLStr) - 2) & ")"
Sæt SQLStr til "Medlemsnr in(", efterfulgt af SQLStr fraregnet de to sidste tegn, efterfulgt af ")"

    End If

DoCmd.OpenReport "MEDLEMMER", acViewPreview, , SQLStr
Åbn rapporten MEDLEMMER i vis udskrift (dvs. det vises på skærmen, i stedet for at blive skrevet ud), med SQLStr som kriterie

Sagt på anden måde, det viser dig rapporten MEDLEMMER med de poster hvor Medlemsnr er blandt de valgte værdier i listboxen (Medlemsnr er i/"in" den kommaseparerede liste der er blevet dannet).

Måske lidt flere oplysninger end du havde behov for, men så mangler der i det mindste ikke noget. *-)

Og dog:

End if Betyder, ar du afslutter If blokken. Når du bruger det reserverede ord If, SKAL du også afslutte med en End If.

Petitesser :o)

Nu sprang jeg End og Next over - mente ikke jeg kunne sige så meget til dem :)

Nej, som jeg skriver er det jo petitesser. Men glemmes de får du en fejl, og en sådan fejl er ofte uforståelig for mange brugere.

Så havde jeg næstern forstået det hele, men jeg mangler stadig lidt forståelse til () i denne oversættelse - hvad skal "fraregnet de to sidste tegn" gøre godt for?

Sæt SQLStr til "Medlemsnr in(", efterfulgt af SQLStr fraregnet de to sidste tegn, efterfulgt af ")"

Det med IF - END IF, og NEXT vidste jeg godt - så det er lige meget med "oversættelse"

Det er svært at sige. Prøv nederst i koden at indsætte:

Debug.print SQLStr

Derefter går du i View og markerer at Immediate vinduet skal vises (show). Kør koden og åbn VBA editoren, så står SQLStr nederst. Ændre deredfter SQLStr til:

SQLStr = "Medlemsnr in (" & Left(SQLStr, Len(SQLStr)) & ")"

KØr koden og se igen SQLStr.

"fraregnet de to sidste tegn" gøre godt for?"

for each selected item in the listbox

Me!Listbox.ItemData(Itm) & ", "

is added to SQLstr

for the last item this isnt necessary, so the code just removes these so that the SQLstr will comtain something like

"Medlemsnr in(1,5,7,9)"
and not
"Medlemsnr in(1,5,7,9, )"

"Medlemsnr in(1,5,7,9, )" would give an error

Jeg har prøvet at sætte mine egne data ind:
cmdPreview = kommandoknap20
Medlemsnr = rekvirent
MEDLEMMER = Alleopgaver_rp

Men der kommer en parameterboks hvor jeg skal skrive et eller andet - det forstår jeg ikke (altså at boksen kommer), jeg har ingen steder [] som skulle antyde at den skulle komme frem.??????

Hvis jeg annullerer boksen, kan jeg vælge "debug", og linien med "DoCmd.OpenReport "MEDLEMMER", acViewPreview, , SQLStr" fremhæves med gult - hvad kan der være galt her ??????

Fejlen ligger i den linie der er markeret med gult!

Sandsynligvis er det eet eller flere objekter der ikke genkender et felt. Kontroller, at du har alle felter i din forespørgsel / rapport samt for stavefejl.

1. Hvad med den parameterboks (se ovenover) som kommer - stammer den også fra en eller anden stavefejl eller manglende objekt???? Betyder det noget mht store/små bogstaver?????

Små / store bogstaver burde ikke betyde noget.

Men en stavefejl eller manglende felt i et objekt kan fremprovokere fejlen.
Du kan evt. sende din db til:

mugs snabelting mail.dk

som en zip fil, så ser jeg på den senere.

Jeg har prøvet at sætte mine egne data ind:
cmdPreview = kommandoknap20
Medlemsnr = rekvirent
MEDLEMMER = Alleopgaver_rp

What value does kommandoknap20 have?
What value does rekvirent have?
What value does Alleopgaver_rp have?

Can we see the code (DoCmd.OpenReport ...)?

TAK for hjælpen - point går til pidgeot fordi han oversatte de fleste kommandoer så jeg kunne forstå dem. Det jeg ikke forstod fatter jeg stadig ikke - men min database er i hus.

(Meget forsinket) svar kommer her :)