Avatar billede hlnviv Mester
22. januar 2008 - 14:51 Der er 10 kommentarer og
1 løsning

Skal bilve i den aktuelle post

Hej Eksperter
Jeg bruger en udskrifts kommando til at ud skrive nogle formular. Mit spørgselmål er så hvordan bliver jeg i den samme post som jeg udskriver fra, den hopper frem til første post hver gang man har kørt kode, hvad mangler i min vba kode så den bliver i den sammen post.
Avatar billede terry Ekspert
22. januar 2008 - 14:53 #1
can we see some code?
Avatar billede hlnviv Mester
22. januar 2008 - 15:00 #2
Hej terry det er dig der har hjulpet mig med den ;o)

Private Sub Kommandoknap26_Click()
On Error GoTo Err_Kommandoknap26_Click

Dim stDocName As String

    DoCmd.RunCommand acCmdSaveRecord

    Me.Detaljesektion.BackColor = 16777215
    Me.CalSubForm.Form.Detaljesektion.BackColor = 16777215

    Me.Filter = "[Værktøjs  NR]= '" & Me![Værktøjs  NR] & "'"
    Me.FilterOn = True

    Me.CalSubForm.Form.Detaljesektion.BackColor = 16777215
    Me.CalSubForm.Form.Filter = "[Autoløbe nr] = " & Me.CalSubForm.Form.[Autoløbe nr]
    Me.CalSubForm.Form.FilterOn = True

    DoCmd.PrintOut

    Me.Filter = ""
    Me.FilterOn = False
    Me.CalSubForm.Form.Filter = ""
    Me.CalSubForm.Form.FilterOn = False

    Me.Detaljesektion.BackColor = -2147483633
    Me.CalSubForm.Form.Detaljesektion.BackColor = -2147483633

Exit_Kommandoknap26_Click:
    Exit Sub

Err_Kommandoknap26_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap26_Click
   
End Sub
Avatar billede mugs Novice
22. januar 2008 - 15:01 #3
Normalt bruger jeg denne til et alfanumerisk felt:

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

og til et numerisk felt:

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

Når den går til første post, tyder det på, at du i din kode bruger en requery, som genforespørger den underliggende forespørgsel, og så vil den gå til første post. Men som terry påpeger, vil en kode være passende.
Avatar billede terry Ekspert
22. januar 2008 - 15:05 #4
Well its very likely because of the lines which come after you print

    Me.Filter = ""
    Me.FilterOn = False
    Me.CalSubForm.Form.Filter = ""
    Me.CalSubForm.Form.FilterOn = False

These are removing the filter
Avatar billede terry Ekspert
22. januar 2008 - 16:39 #5
your first setting the filter to a specific record
    Me.Filter = "[Værktøjs  NR]= '" & Me![Værktøjs  NR] & "'"
    Me.FilterOn = True

but after you print you remove the filter, why?
Avatar billede hlnviv Mester
24. januar 2008 - 09:47 #6
Hej igen jeg har været ved at finde ud af hvorfor filter bliver fjernet endten kan jeg ikke husk det ellers så er det en fejl det stå der, men nu et det fjernet tak for hjælpen send Kommentar: terry 22/01-2008 16:39:36
som svar så for du point ;o)
Avatar billede terry Ekspert
25. januar 2008 - 09:51 #7
:o)
Avatar billede terry Ekspert
29. januar 2008 - 15:58 #8
..
Avatar billede terry Ekspert
11. februar 2008 - 16:18 #9
..
Avatar billede hlnviv Mester
12. februar 2008 - 16:53 #10
Undskyld havde glemt det
(trode der var givet men tak)
Avatar billede terry Ekspert
12. februar 2008 - 18:19 #11
No problem :o)

Thanks
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