Hvordan kan jeg bruge en IF sætning i Access

If DCount("*", "Forespørgslens navn")= 0 Then
msgbox "Nummeret findes ikke."
exit sub
og her følger din udskriftskommando

Retelse:

If DCount("*", "Forespørgslens navn")= 0 Then
msgbox "Nummeret findes ikke."
exit sub
end if
og her følger din udskriftskommando

Det er ikke nødvendigt med en kode i rapporten hvis nummeret ike findes, idet min kode forlader procedüren hvis der ikke er et nummer der matcher.

For at indtaste et nummer i forespøgslen, kan du indsætte flg som et kriterie under dit nummerfelt:

[Indtast nummer]

Til mugs
Tak for dine svar....
Det vil jeg lige prøve. Jeg ville dog gerne at når nummeret ikke eksistere skal rapporten udskrive en side med eksempelvis "nummeret eksisterer ikke"

OK - Jeg hasr maddag, så der er lige et par ting jeg skal have ordnet. Men vender tilbage senere.

Super.

Udskrivningskommandoen ser således ud:

Private Sub Kommandoknap0_Click()
DoCmd.OpenReport "Rapport1", acViewNormal, "", "", acNormal
End Sub

Åbn rapporten i designvisning. Tag en etiket fra værktøjskassen og sæt den på detaljesektionen, sæt egenskaben Synlig til Nej. Indsæt denne kode i Rapportens VedIngenData:

Me!Etiket2.Visible = True

Husk at ændre rapportnavn og etiketnavn til dine aktuelle navne

Hej iegn MUGS

Jeg er ikke så stiv i Visual basic... min rapport ser således ud nu:

Option Compare Database
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub Label19_Click()
DoCmd.OpenReport "Frm_Query1", acViewNormal, "", "", acNormal
End Sub
Private Sub Report_Open(Cancel As Integer)
End Sub

Hvor taster jeg: Me!Etiket2.Visible = True 
Min access er engelsk så jeg regner med at Label19 er rigtigt.

Slet alt.

Indsæt denne i rapportens detaljesektion i hændelsen NoData



Option Compare Database
Option Explicit

Private Sub Report_NoData(Cancel As Integer)
Me!Label19.Visible = True
End Sub

I den formular hvorfra du åbner rapporten laver du en kommandoknap og indsætter denne i Click:

DoCmd.OpenReport "Frm_Query1", acViewNormal, "", "", acNormal

Hvis du lægger din e-mail, kan jeg sende et eksempel.

teamjepsen@gmail.com men du skal nok pakke den for at jeg kan modtage den. På forhånd tak.

Sendt.

Min hjerne er stået af for idag, men du skal nok høre fra mig imorgen.

OK - Men det er ikke så meget tid jeg har om dagen. Men checker min mail.

You also need to set

Cancel = True in the NoData event, otherwise the report will still get displayed/printed

Hi Terry > Rapporten skal vises selvom der ikke er poster omend jeg ikke forstår hvorfor:

08/11-2006 17:57:43

Hi mugs
and as always the customer gets what they want :o)

hadnt looked at all the komments

Terry > Det er rigtigt, kunden har altid ret.

Men jeg har nu set db, og returneret den med et par kommentarer :o)

Sender du et svar?

Undskyld, det har du gjort

Tak for point :o)

Men det var nu dyrt for den smule hjælp, så du vender bare tilbage. Du har min e-mail.