afkrydsningsfelt

hej Andreas,

Hvis du har et felt i tabellen, som brugeren skal afkrydse (f.eks. med navnet [Udskriv]) så kan du lave en rapport, baseret på tabellen.

På knappen, som starter udskrivningen, lægger du følgende kode:

Docmd.Openreport \"Rapportnavn\", acviewpreview,, \"[Udskriv] = True\"

Derved vises rapporten med kun de poster, som er afkrydset.

NB: Husk at nulstil felterne, når rapporten er udskrevet

/Thomas

<%
if request.form(afkrydsningsfelt) = yes
then
window.print()
end if
%>

EN SIMPEL LØSNING:

Først markeres de poster du vil udskrive, hvorefter der under filer->Udskriv vælges \"markerede poster\" og udskriv.

Er det noget du vil bruge tit, er det måske noget usmart, og Thomas\'s svar er mere rigtig.

Niels

Hej thomasjepsen 

Kan du ikke uddybe svaret lidt mere jeg er ikke så meget inde i det med Access

Hilsen Andreas

Hej thomasjepsen

Jeg har forstået der med knappen, men det med rapporten kan jeg ikke få til at virke!!

Hilsen Andreas

Har du fået lavet en rapport?

Ellers stil dig under Rapporter (i databasevinduet) og klik Ny -> Vælg tabel/forespørgsel i komboboksen og klik derefter på \"Autorapport: tabelformat\" på listen, og tilsidst klikker du OK.

Derefter lukker du rapporten og gemmer den under det navn, som du ønsker. Derefter burde fungere...

/Thomas

Hej thomasjepsen

Jeg har fået det til at virke, men kan man ikke lave en knap der nulstiller afkrydsningsfeltet?

Hilsen Andreas

Jo, hvis du efter Docmd.Openreport....skriver:

CurrentProject.Connection.Execute \"Update [Tabelnavn] Set [Udskriv] = False\"

/Thomas

Hej Thomas

Når jeg prøver at skrive CurrentProject.Connection.Execute \"Update [Tabelnavn] Set [Udskriv] = False\" efter det andet og trykker på knappen opstår der en ulovlig handlig i Access!!!

Hilsen Andreas

Hvilken version af Access benytter du? 97?

Hvis du benytter Access 97, skal du i stedet skrive:

Currentdb.Execute \"Update [Tabelnavn] Set [Udskriv] = False\"

/Thomas

Jeg bruger Access 2000

Ahh! Du skal jo udskift [Tabelnavn] med navnet på din tabel og [Udskriv] skal erstattes med navnet på afkrydsnings-kolonnen i tabellen!!!

Jeg har skrevet:

Private Sub Kommandoknap76_Click()
On Error GoTo Err_Kommandoknap76_Click


    DoCmd.GoToRecord , , acPrevious

Exit_Kommandoknap76_Click:
    Exit Sub

Err_Kommandoknap76_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap76_Click
   
End Sub
Private Sub Kommandoknap77_Click()
On Error GoTo Err_Kommandoknap77_Click


    DoCmd.OpenReport 1, acViewPreview, , \"[Udskriv] = True\"
    CurrentProject.Connection.Execute \"Update [Musikkartotek Elm lyd] Set [Udskriv] = False\"
Exit_Kommandoknap77_Click:
    Exit Sub

Err_Kommandoknap77_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap77_Click

Du kan heller ikke skrive:
DoCmd.OpenReport 1, acViewPreview, , \"[Udskriv] = True\"

I stedet for 1-tallet skal du skrive navnet på rapporten i gåseøjne. F.eks. sådan:
DoCmd.OpenReport \"Rapport over Musikkartotek\", acViewPreview, , \"[Udskriv] = True\"

Mange tak for hjælpen Thomas her har du pointene!!

Hilsen Andreas

Gracias :-)