Hvorfor virker VB koden ikke

prøv evt at sætte DoEvents mellem de 2 call-linier

Den kalder kun tegnLine en enkelt gang. Se kode:


Private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
Call tegnLine(6753)
DoEvents
Call tegnLine(5910)
DoEvents
Call tegnLine(5432)
DoEvents
Call tegnLine(4964)
DoEvents
Call tegnLine(4491)
DoEvents
Call tegnLine(4013)
DoEvents
Call tegnLine(3545)
DoEvents
Call tegnLine(3073)
DoEvents
Call tegnLine(2598)
DoEvents
Call tegnLine(2128)
DoEvents
Call tegnLine(1658)
DoEvents
Call tegnLine(2)

End Sub

Private Sub tegnLine(xValue As Integer)
Dim lngColor As Long
Dim Hoejde As Single
Dim x As Integer
x = xValue
Me.ScaleMode = 3
Hoejde = Me.Height
lngColor = RGB(0, 0, 0)
Me.Line Step(x, 0)-Step(0, Hoejde), lngColor

End Sub

Skal jeg bruge flere lodrette streger i en rapport, plejerjeg at gøre det på denne måde. Måsdke ikke så elegant, men til gengæld virker det:

Dim lngColor As Long
Dim Hoejde As Single
Me.ScaleMode = 3
Hoejde = Me.Height
lngColor = RGB(0, 0, 180)

Me.Line (50, 0)-Step(0, Hoejde), lngColor
Me.ScaleMode = 3
Hoejde = Me.Height
lngColor = RGB(255, 0, 0)
Me.Line (1200, 0)-Step(0, Hoejde), lngColor

den tegner også mange linjer men de er Laaaaangt væk.
Jeg går ud fra at du vil starte i 0,0 hver gang, så du skal sætte 0-punktet for hver gang, ellers fortsætter den mod højre. ( Me.CurrentX = 0 og  Me.CurrentY = 0)

Private Sub tegnLine(xValue As Single)
  Dim lngColor As Long
  Dim Hoejde As Single
  Dim x As Single
  Me.CurrentX = 0
  Me.CurrentY = 0
  x = xValue
  Me.ScaleMode = 3
  Hoejde = Me.Height
  lngColor = RGB(0, 0, 0)
  Me.Line Step(x, 0)-Step(0, Hoejde), lngColor
End Sub

Niels

Det er desuden en god ide at holde sig til de datatyper de indbyggede funktioner bruger: Line bruger 'single'

du kan desuden regne i milimeter vha. scalemode:

Private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
  ' scalemode 6 = milimeter
  Me.ScaleMode = 6
  tegnLine 2
  tegnLine 10
  tegnLine 60

Ok nih - det virker nu med linjerne anyway. Jeg laver linjerne på den pågældende måde for at kunne få elementerne skubbet sammen på en måde så jeg undgår

Navn
Adresse
Adresse2
postnr by

Test
Testvej1

9999 testby


Jeg har sat kanSkubbes sammen til ja på elementerne og på detaljesektionen. Har du nogle ideer til hvorfor jeg har problemet??

kan du ikke pladsere elementerne lige under hinanden 2 mm højde og 2 mm i afstand, så flytter de sig automatisk, hvis der kommer data i dem.

Niels

Mere præcist så har jeg
Navn
Advokat
Adresse 1
Adresse 2
postnr by

Hvis advokatfeltet er tom, så bliver resultatet:
Navn
Adresse 1

Adresse 2
Postnr By

i stedet for det ønskede

Navn
Adresse 1
Adresse 2
Postnr By

du kan prøve at kode dig ud af det:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
  Me.txtAdresse = ""
  If Not IsNull(Me!navn) Then Me.txtAdresse = Me!navn
  If Not IsNull(Me!advokat) Then Me.txtAdresse = Me.txtAdresse & vbCrLf & Me!advokat
  If Not IsNull(Me!adr1) Then Me.txtAdresse = Me.txtAdresse & vbCrLf & Me!adr1
  If Not IsNull(Me!adr2) Then Me.txtAdresse = Me.txtAdresse & vbCrLf & Me!adr2
  osv..................
End Sub

txtAdresse er en ubunden textbox på din rapport - kanstrækkes = ja

Dine felter skal være på rapporten, ellers kan VBA ikke få værdierne, så de skal bare være usynlige (navn, advokat osv)

Der SKAL være et navn i alle poster, ellers starter den med en tom linje

OK. Det spiller maksimum.

Efter jeg har slettet mine data og lavet en tom db bliver den ved med at sige:

Den indtastede værdi passer ikke til dette felt.

Det virkede inden jeg kopierede den underliggende tabel, slettede originalen og omdøbte kopien til oprindeligt navn. (for at nulstille autogeneret nr).

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
  Me.txtAdresse = ""
  If Not IsNull(Me![Kreditor navn]) Then Me.txtAdresse = Me![Kreditor navn]
  If Not IsNull(Me![Advokat]) Then Me.txtAdresse = Me.txtAdresse & vbCrLf & Me![Advokat]
  If Not IsNull(Me![Adresse 1]) Then Me.txtAdresse = Me.txtAdresse & vbCrLf & Me![Adresse 1]
  If Not IsNull(Me![Adresse 2]) Then Me.txtAdresse = Me.txtAdresse & vbCrLf & Me![Adresse 2]
  If Not IsNull(Me![Postnr]) Then Me.txtAdresse = Me.txtAdresse & vbCrLf & Me![Postnr]
  If Not IsNull(Me![By]) Then Me.txtAdresse = Me.txtAdresse & " " & Me![By]
End Sub

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
  If Not Me.HasData Then Exit Sub
  Me.txtAdresse = ""
  osv .............

Det er fordi der ingen data er i rapporten, når du har slettet data i tabellen.

Ok. Jeg tror det er ved at være tid til lidt frisk luft!