Kun vise decimalerne i en rapport

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
Dim SearchChar As String
Dim SearchString As String
Dim Streng As String
SearchChar = ","
SearchString = valuta
Streng = valuta
Tekst6 = Right(String:=Streng, length:=(InStr(1, SearchString, SearchChar, 1) - 1))
End Sub

Det vi søger efter er kommaet der jo separerer Kr fra ørerne. Feltet valuta inderholder hele beløbet. Tekst6 er et ubundet felt på rapporten.

Byg rapporten på en query og lav 2 felter

fldHel: Fix([fldTal])
fldDecimal: Format(([fldTal]-Int([fldTal]))*100;"00")

Den giver heltallet og decimaldelen med 2 cifre - skal du bruge flere skal du gange med 1000 for 3 o.s.v. og ændre i format "00" til "000"

Hov fldDecimal: Format(([fldTal]-Int([fldTal]))*100;"00") skal selvfølgelig være fldDecimal: Format(([fldTal]-Fix([fldTal]))*100;"00")

Ellers kan der blive nogle issues med negative tal

Jeg har ikke tistrækkeligt forstand til at gå ind og redigere i den bagvedliggende kodning, som foreslået - kan lige nu ikke engang finde ud af, hvor jeg finder den... - men med inspiration fra hugopedersens koder fandt jeg ud af, hvordan jeg kunne benytte den alm. brugerflade i rapportdesign til at opsætte rapportens to felter, så de viser henholdsvis krone-beløbet og øre-beløbet fra det felt, der hedder [til betaling]. Derfor får han mine points. Til hjælp for andre dummies som jeg, kan jeg fortælle at løsningen blev, at jeg i egenskaberne for kronefeltet satte Kontrolelementkilden til: =Fix([til betaling]) og i egenskaberne for ørefeltet satte jeg Kontrolelementkilden til: =([til betaling]-Fix([til betaling]))*100 samtidig med at jeg satte Format til 00.

Takker