Re: Feldinhalt nach Aktualiserung formatieren
From: Henry Habermacher [MVP Access] (DontSpamHenry_at_psp-online.com)
Date: 05/04/04
- Next message: Patrick Silberbergre: "Passwort auf einer Schaltfläche"
- Previous message: Henry Habermacher [MVP Access]: "Re: Formular öffnen ohne VB bringt DB-Fehler"
- In reply to: Zoran Timotic: "Feldinhalt nach Aktualiserung formatieren"
- Messages sorted by: [ date ] [ thread ]
Date: Tue, 4 May 2004 19:02:28 +0700
Hallo Zoran
Zoran Timotic wrote in news:7fd401c431b9$16c73000$a101280a@phx.gbl:
> Ich suche eine Funktion.
> Nämlich habe ich meine Access Daten auf einem SQL-Server.
> Nun habe ich ein Feld in dem Preise eingetragen werden,
> ich möchte das diese in einem Textfeld eintragen.
>
> Nach der Eingabe des Preises soll geprüft werden ob dieser
> korrekt eingegeben wurde.
>
> z.B. soll aus 5,5 = 5,50 werden.
> wenn der Preis 5,55 eingegeben wurde soll sich nichts
> ändern.
> Auf dem SQL Server habe ich noch das Problem das er mir
> anstatt eines Kommas einen Punkt macht wenn ich es als
> (decimal)speichere.
Nein, das stimmt nicht. Der SQL Server speichert nicht anstelle eines
Kommas einen Punkt, er zeigt das Dir nur so an, vermutlich weil beim SQL
Server die Ländereinstellung nicht auf Deutschland, sondern auf Englisch
United States oder Schweiz (die machen das nämlich auch mit einem .)
gestellt ist.
Eigentlich solltest Du Dich überhaupt nicht darum kümmern, was der SQL
Server anzeigt. Wichtig ist lediglich, dass Du das Feld im Richtigen
Format übergibst, am besten wandelst Du das einfach in eine Zahl um,
auch auf dem Formular. Dann gibst Du dort als Format Standard Zahl mit
zwei Nachkomma Stellen an und der Benutzer sieht es dann in diesem
Format, sobald er das Feld verlässt.
Wenn Du auf einem Text-Feld bestehen musst, dann kannst Du das mittels
einer Code-Zeile wie:
Me!DeinTextFeld = format(CDbl(Nz(Me!DeinTextFeld)), "Standard")
beim Control AfterUpdate Ereignis umwandeln.
Der Code würde dann so aussehen:
Private Sub DeinTextFeld_AfterUpdate()
If isnumeric(Nz(Me!DeinTextFeld)) Then
Me!DeinTextFeld = Format(CDbl(Nz(Me!DeinTextFeld)), "Standard")
Else
MsgBox "Keine Zahl eingegeben"
End If
End Function
-- Keine E-Mails auf Postings in NGs senden! Don't send e-mails to postings in newsgroups! KB: http://support.microsoft.com/default.aspx FAQ: http://www.donkarl.com/FAQ/FAQStart.htm OH: Online Hilfe von Microsoft Access (Taste F1) Downloads: http://www.dbdev.org
- Next message: Patrick Silberbergre: "Passwort auf einer Schaltfläche"
- Previous message: Henry Habermacher [MVP Access]: "Re: Formular öffnen ohne VB bringt DB-Fehler"
- In reply to: Zoran Timotic: "Feldinhalt nach Aktualiserung formatieren"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
