iif sats

Du kan ikke anvende Iif i en Function. Prøv:

Function CheckIt(KrediteringDebitering As Integer) As String
  If BKComment = Kreditering then
    CheckIt = "-"
  Else
    CheckIt=""
  End If
End Function

(Hvis CheckIt er et felt på en form bør du skrive Me.CheckIt)

Hvad hvis det er i en report jeg vil have det - glemte lige det :-)

...og hvor sätter jeg koden in hvis det er en form (onload etc.)?
Har en masse felter i "Detail" billedet. I "Form header" har jeg felterne hvor jeg taster data ind.

Form eller Report - det er samme fremgangsmåde.

I din form opretter du et felt, f.eks. Fortegn, og i formens OnCurrent event kan du så skrive:
  Me.Fortegn=CheckIt(<EtEllerAndetFeltsVærdi>)

NB: Jeg er ikke helt med på din struktur. Din Parameter i funktionen hedder KrediteringDebitering; men den anvender du slet ikke. Til gengæld tjekker du værdien af BKComment.

Hej,

Det vil stadig ikke virke. Jeg har slet ikke noget der heder OnCurrent men alle mulige andre som feks. OnDirty, OnUndo, OnChange, OnGotFocus osv.

Det er en form (Continuous Forms). I header kan man indtaste nye data, i detail vises alle der er indtastet. Det er her jeg vil at det skal vises men jeg kan bare ikke få det til at virke. Må jeg sende det til dig per mail?

Jeg har fundet OnCurrent i formen som du skrev men kan du ikke lige lave hele koden, hvor jeg skal sätte den ind osv. Ked ad det men jeg er ingen haj til dette! :-)

Det er helt enkelt:

Private Sub Form_Current()
  Me.Fortegn=CheckIt(<EtEllerAndetFeltsVærdi>)
End Sub

Din funktion lægger du i et eller andet modul - eller sammen med den øvrige kode i formen.

Hvis det stadig er uklart, må du lige give mig alle oplysninger. Se min forrige kommentar.

Det vil stadig ikke.

FORM: frmBokföring
ON CURRENT: [Event procedure]. Har også prövet med Me.Fortegn=CheckIt(BKComment1)

Kode:
Private Sub Form_Current()
  Me.Fortegn = CheckIt(Comment1)
Function CheckIt() As String
  If BKComment = Kreditering Then
    CheckIt = "-"
  Else
    CheckIt = ""
  End If
End Function
End Sub

TEKSTBOKS i formular frmBrevbokning i detaljebilledet: Me.Fortegn

Hvad gör jeg forkert?

Syntaksen er:

Private Sub Form_Current()
  Me.Fortegn = CheckIt(Comment1)
End Sub

Function CheckIt() As String
  If BKComment = Kreditering Then
    CheckIt = "-"
  Else
    CheckIt = ""
  End If
End Function

... men der er stadig ikke sammenhæng!
Hvad er Comment1?
Hvad er BKComment?

Forslag uden funktionen:

Private Sub Form_Current()
  If Me.BKComment1 = "Kreditering" Then
    Me.Fortegn = "-"
  Else
    Me.Fortegn = ""
  End If
End Sub

jeg kan sgu bare ikke få det at virke. Er det ikke nemmere at jeg sender det til dig så kan du se på det, for jeg får det aldrig rigtigt. Det kan også väre at jeg ikke forklarer det godt nok og så er det måske nemmere hvis du kigger på det.
Jeg giver gerne 100 points for jeg er ved at väre godt trät :-) af "skidtet" :-)

Rolig nu. Send basen til f-data<snabela>jubii.dk, så ser jeg på den.

Jeg har set på basen, og jeg tror at jeg forstår problemet.
Du forsøger at markere hver linie med et fortegn; men fortegnsfeltet er ubundet. Derfor kan du ikke "fastholde" fortegnet. Det skifter, når du flytter markøren. Løsningen er at oprette et nyt felt i dine detail-data, så du gemmer fortegnet for hver linie. Du kan beregne det lige inden "INSERT INTO" sætningen:
  If Me.TxtComment1 = "Kreditering" Then
    Fortegn = "-"
  Else
    Fortegn = ""
  End If
.. og så tilføje det til din feltliste i "INSERT INTO". OK?

Perfekt tak :-)