Hoe decimaal te tonen in ms access form

Status
Niet open voor verdere reacties.
K

Kirana2014

Gebruiker
Lid geworden
21 okt 2020
Berichten
55
Beste allemaal,

Help alstublieft om dit probleem op te lossen

Als het Aantal(QTY) = 1 ik zou willen zien op formulier = 1 in plaats van 1,000
Als het Aantal(QTY) = 2 ik zou willen zien op formulier = 2 in plaats van 2,000

Als het Aantal (QTY) = 2,250 op het formulier = 2,250 (dit is OK)

Alvast bedankt
 

Bijlagen

  • decimal.jpg
    decimal.jpg
    78,6 KB · Weergaven: 28
  • Database.zip
    31,6 KB · Weergaven: 12
Open het formulier in design view, open het eigenschappenvenster en klik op de text box zodat je de eigenschappen van de eigenschappen van het tekstveld op het scherm ziet, en in de tab format heb je bovenaan de eigenschap format en daaronder decimal places. Beiden kan je gebruiken om het aantal decimalen in te stellen. Let wel op, in je afbeelding heb je de eigenschappen van een tabel, niet van het formulier. Voor een tabel maakt de lay-out niets uit, want je kijkt niet naar de data in de tabel, maar via het formulier.
 
Beste NoellaG,

Ik heb gedaan zoals jij hebt beschreven, de decimaal heb ik op 0 gezet maar dan krijg ik onderstaand resultaat.

QTY 2 ik zie in hetformulier 2
QTY 2,250 ik zie in hetformulier 2
QTY 2,555 ik zie in hetformulier 3

Ik wil graag zoals onderstaand voorbeeld

QTY 2 ik zie in hetformulier 2
QTY 2,250 ik zie in hetformulier 2,250
QTY 2,555 ik zie in hetformulier 2,555

Alvast bedankt
 
als je het formaat wil aanpassen afhankelijk van de inhoud, dan kan dat via VBA. Je kan bv in de after update event code zetten bijvoorbeeld:
Code: 
Private Sub txtMyTextBox_AfterUpdate()
    If Me.MyTextBox = Int(Me.MyTextBox) Then
        Me.txtMyTextBox.DecimalPlaces = 0
    Else
        Me.txtMyTextBox.DecimalPlaces = 3
    End If
End Sub
 
Beste NoellaG,

Ik heb gedaan zoals jij hebt beschreven in de BVA krijg ik niet voorelkaar
Wil je aub mijn bestaand even controleren.
Alvast bedankt
 
Een andere optie: je kan misschien de voorwaardelijke opmaak uitproberen. Die vind je in de Format tab van het lint als je een formulier opent in de gewone form view.
Ik vrees dat ik niet veel tijd zal hebben deze week om bestanden na te kijken, maar misschien kan iemand anders dat weL;
 
Ik heb de code van NoellaG eventjes aangepast naar jou voorbeeld. en het verwerkt in je voorbeeldbestand.
Vul de QYT in en ga naar het volgende veld (prijs)
Dan zou je de juiste opmaak moeten krijgen.
Code: 
Private Sub QTY_AfterUpdate()
If Me.QTY = Int(Me.QTY) Then
        Me.QTY.DecimalPlaces = 0
    Else
        Me.QTY.DecimalPlaces = 3
    End If
End Sub
 

Bijlagen

  • Database.zip
    42,9 KB · Weergaven: 14
Nog even bijvoegen:

Code: 
Private Sub Form_Current()
Call QTY_AfterUpdate
End Sub


Gr.Cor
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan