[VB6] Na berekening DataFormat 'Currency' kwijt

[EmilneM]

Heb 3 textvakjes: De waarde van tekstvak 1 (txtTotaalKwitanties) wil ik als ik op een knop druk optellen bij tekstvak 2 (txtRekening). De uitkomst moet in tekstvak 3 (txtTotaal) komen te staan. Ik heb ze alledrie DataFormat 'Currency' meegegeven in de properties. Tekstvak 3 lijkt deze echter kwijt te zijn na de berekening en zet er geen euro-teken voor. Hoe los ik dit op?

Dit is de code die ik de knop heb meegegeven:

Visual Basic:

Dim sTotaalKwitanties As Integer
Dim sKamer As Integer
Dim sTotaal As String
    
sTotaalKwitanties = txtTotaalKwitanties.Text
sKamer = txtRekening.Text
    
sTotaal = sTotaalKwitanties + sKamer
txtTotaal.Text = sTotaal

[OZ-Gump]

Je zet de .text van die edit keihard op een string. Misschien moet je de berekende waarde eens als currency/integer aan de .value van de betreffende textbox toewijzen? Lijkt me in ieder geval een stapje de juiste richting in...

[EmilneM]

OZ-Gump schreef op 11 June 2003 @ 10:15:
Je zet de .text van die edit keihard op een string. Misschien moet je de berekende waarde eens als currency/integer aan de .value van de betreffende textbox toewijzen? Lijkt me in ieder geval een stapje de juiste richting in...

Had ik al geprobeerd, lukte niet.........vandaar dat ik hem eens als string had geprobeerd.

[curry684]

En als je een regel 10 toevoegt met txtTotaal.DataFormat = Currency?

[OZ-Gump]

EmilneM schreef op 11 June 2003 @ 10:18:
[...]

Had ik al geprobeerd, lukte niet.........vandaar dat ik hem eens als string had geprobeerd.

Niet om te zeiken, maar zet dat er de volgende keer even bij, dan weten degenen die je proberen te helpen dat ook. Nu heb ik dus iets gepost waar jij niks aan had, en da's voor geen van beiden leuk..

Wat gebeurt er met Curry684 z'n optie?

[ Voor 5% gewijzigd door OZ-Gump op 11-06-2003 10:25 ]

[EmilneM]

curry684 schreef op 11 June 2003 @ 10:23:
En als je een regel 10 toevoegt met txtTotaal.DataFormat = Currency?

Geeft een compile error: syntax error.

Ook als ik de variabelen declareer als 'Currency'.

[ Voor 12% gewijzigd door EmilneM op 11-06-2003 10:40 ]

[nescafe]

txtTotaal.DataFormat = "Currency"

Of Data weghalen, dat werkt beter.

[ Voor 44% gewijzigd door nescafe op 11-06-2003 10:51 ]

[curry684]

* curry684 kent geen VB maar wel logisch nadenken, geen syntactische garantie dus in VB topics maar wel logica-garantie over het algemeen

[nescafe]

curry684 schreef op 11 June 2003 @ 10:43:
* curry684 kent geen VB maar wel logisch nadenken, geen syntactische garantie dus in VB topics maar wel logica-garantie over het algemeen

Geef niet hoor, wij doen de rest wel

[EmilneM]

nescafe schreef op 11 June 2003 @ 10:41:
txtTotaal.DataFormat = "Currency"

Runtime-error '438':

Object doesn't support this property or method

[whoami]

EmilneM: je mag zelf ook wel een beetje meedenken en actief zoeken in plaats van gewoon maar te wachten op input van anderen en die dan uit te proberen en gewoon de evt. error hier neerzetten.

[EmilneM]

whoami schreef op 11 juni 2003 @ 10:49:
EmilneM: je mag zelf ook wel een beetje meedenken en actief zoeken in plaats van gewoon maar te wachten op input van anderen en die dan uit te proberen en gewoon de evt. error hier neerzetten.

Ik moet je eerlijk zeggen dat ik deze opties zelf ook al geprobeerd heb.......had het wat beter in topicstart moeten zetten.

[nescafe]

_{zie mijn edit?}

[OZ-Gump]

1 regeltje code...

Visual Basic .NET:

  txtTotaal.Text = FormatCurrency(WaardeDieGeformatMoetWorden)

[ Voor 5% gewijzigd door OZ-Gump op 11-06-2003 11:02 ]

[wezzley]

format functie gebruiken, heb je alles zelf in de hand.
Text1 = Format(Text1, "€ #,###.00;€ -#,###.00")

[EmilneM]

wezzley schreef op 11 June 2003 @ 11:04:
format functie gebruiken, heb je alles zelf in de hand.
Text1 = Format(Text1, "€ #,###.00;€ -#,###.00")

Tnx, werkt goed!

Nu heb ik nog een probleempje met een datagrid (gekoppeld met ADO-koppeling).

Hij geeft het veld 'bedrag' niet goed weer. Als ik voor Format 'General' in de properties kies geeft hij geen decimalen. Kies ik echter voor 'Currency' dan geeft hij opeens 5 decimalen weer, terwijl hij toch echt op 2 staat ingesteld. Dit zelfde geldt voor Format 'Number'.

Heb ook al geprobeerd om het format in de database te veranderen, maar dit lijkt geen invloed te hebben.