Datenbanken

Ø-Zeichen per Button

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo Habe mal wieder ein Problem. Und zwar möchte ich mit Hilfe eine Buttons, auf den ich klicke, daß mir dann das Durchmesserzeichen (Alt216)in dem betr. Feld erscheint in welchem sich der Cursor gerade befindet. Ganz schön knifflig oder ? Gruß Mister

Antwort 1 von El Bobbele

Hi Mister!

Ist zwar knifflig, aber auch lösbar. ;-)

Private Sub cmdButton_Click()
    With Screen.PreviousControl
        If .ControlType = acTextBox Then
            .Value = Chr(216)
        End If
    End With
End Sub

Gruss
El Bobbele

Antwort 2 von Mister

Hallo El Bobbele

Echt gut wirklich !!!

Nur wenn ich an späterer Stelle in dem selben Feld noch mal ein Ø-Zeichen eingeben will, löscht er mir meine voherigen Zeichen, bis auf das erste Ø-Zeichen. Bzw. ein zweites Ø-Zeichen läßt er gar nicht zu.

Kannst Du dieses Problem auch noch lösen ?

Gruß Mister

Antwort 3 von El Bobbele

Hi Mister!

Das ist eine simple Zeichenfolgenverkettung. Ersetze die innerste Zeile des obigen Codes durch

.Value = .Value & Chr(216)

Gruss
El Bobbele

Antwort 4 von Mister

Hallo El Bobbele

Danke für die schnelle Antwort.
Klappt hervorragend.
Somit ist mein Problem gelöst.

Gruß Mister