Lave linie under top 4 i rapport

Som i dit tidligere spørgsmål:

http://www.eksperten.dk/spm/583816. Men blot med en Mod4 = 0

Det er utrolig så meget vrøvl, man kan få fyret af uden at have tænkt sig om. Det vil naturligvis give en streg hver mod = 0. Så der kommer jo streger ved post 4, post 8 o.s.v.

Giv mig 5 min til at gøre det godt igen ;o)i

Denne fungerer:

Private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
If Me.Tekst3 / 4 = 1 Then
Me.Streg2.Visible = True
Else:
Me!Streg2.Visible = False
End If
End Sub

Iøvrigt samme fremgangsmåde som i dit tidligere spørgsmål

Den ser ikke ud til at virke

Den fungerer her. Er afprøvet i en testdb, læg din e-mail så sender jeg den.

lars_hoeberg@stofanet.dk

Sendt.

Okay, der var jo forskel i tekst-feltet, hvor den før var =-1, skulle den nu være =1. Tak for hjælpen. Du får point med det samme

Prøv at ændre koden til denne:

If Me.Tekst3 / 4 = 1 Then
Me.Streg2.Visible = True
Else:
Me!Streg2.Visible = False
End If
Debug.Print Me.Tekst3 Mod 4

Derefter går du i View og trykker på immediate, luk VBA-editoren og åbn rapporten. Vis rapporten i Designvisning og du vil se, at Me.Tekst3 / 4 = 1 aldrig bliver = 1.

Du skal jo finde dig frem til en beregning der er unik og hvor resultatet aldrig kan gentages, og regnestykket Me.Tekst3 / 4 = 1 bliver kun 1, såfremt Tekst3 indeholder værdien 4