Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Unicode Zeichen in Feldern
zurück: Tipp für die Verknüpfung von Formularen gesucht! weiter: #Zahl! bei verknüpfter Textdatei Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Floh927
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Apr 2014, 18:22
Rufname:

Unicode Zeichen in Feldern - Unicode Zeichen in Feldern

Nach oben
       Version: Office 2013

Hallo an Alle,

ich hab eine Frage zu Feldern.
Ich möchte für einen Kontakt eine Bewertung einrichten. Da es keine passende Funktion zu geben scheint, wollte ich eine Hilfstabelle erstellen mit 5 "Reihen". Und als Text wollte ich Unicode-Zeichen einfügen. Z.B.: Sterne (Unicode 2605)

In der Tabelle kann ich die Zeichen auch einfügen, allerdings im Formular sagt er, dass ich "ungültige Zeichen" verwende. Hatte sowohl Text, als auch Zahlen...

Hab ich was falsch gemacht oder funktioniert es einfach nicht mit Unicode? (Was gäbe es dann für Alternativen.

gruß Floh927
kyron9000
Practitioner :)


Verfasst am:
29. Apr 2014, 07:56
Rufname:
Wohnort: Wien

AW: Unicode Zeichen in Feldern - AW: Unicode Zeichen in Feldern

Nach oben
       Version: Office 2013

Hallo Floh972,

wollte dir schon gestern eine BeispielDB (Rating) einstellen aber, anscheinend gibt es im Moment Probleme beim Upload.
Ich teste es noch mal in der Firma, wenn es da auch nicht funktioniert, muss ich es wohl oder übel erklären.

Ja, leider funktioniert der Upload immer noch nicht, also dann Erklärung:

Du benötigst nur 1 Feld Typ Zahl (Integer) für ein Rating in deiner Tabelle Kontakte.
Alles weitere kannst in einer Abfrage und weiter in einem Formular darstellen.
In die Tabelle Kontakte ein Feld dazu Namen Rating Typ Zahl Integer

In das Endlosformular:

1 Feld Kontakt
2 Felder mit: Hintergrund und Rahmen Transparent
sowie zusammenschieben, dass ein Strich daraus wird.
Sichtbar Ja
In Reihenfolge nein
1 Feld Rating
1 Feld IDKontakt

Ratingfelder:
Ratingvorschau (hellgrau)
5 Felder, Aktiv nein, In Reihenfolge nein
Name Select1, Seuerelementinhalt =getColor1()
…usw. bis
Name Select5, Seuerelementinhalt =getColor5()
Textfarbe: #ECECEC
Schriftart: Webdings

Ratinganzeige (Farbe ändert sich je nach Sterneanzahl)
1 Feld, Aktiv ja, In Reihenfolge nein
Seuerelementinhalt = R0
Schriftart: Wingdings

Die Felder R1 - R5 werden über die Felder
Select… gelegt also in den Vordergrund
5 Felder, Aktiv nein, In Reihenfolge nein
Name Select1, Seuerelementinhalt =R1
…usw. bis
Name Select5, Seuerelementinhalt =R5
Schriftart: Webdings

Falls die Klickereignisse nicht automatisch, beim speichern, gesetzt werden, eintragen.

Abfrage für das Formular (Namen "Kontakt" und "tblKontakte" anpassen:
Code:
SELECT Kontakt, IDKontakt, Rating,
             IIf([Rating]=0,"L",IIf([Rating]>=0
             And [Rating]<=2,"K",
             IIf([Rating]>=3,"J"))) AS R0,
             IIf([Rating]>=1,"l","") AS R1,
             IIf([Rating]>=2,"l","") AS R2,
             IIf([Rating]>=3,"l","") AS R3,
             IIf([Rating]>=4,"l","") AS R4,
             IIf([Rating]>=5,"l","") AS R5
FROM tblKontakte;

Ereignisprozeduren für das Formular:
Code:
Option Compare Database
Option Explicit

Private Sub R0_Click()
    subRating 0
End Sub

Private Sub R1_Click()
    subRating 1
End Sub

Private Sub R2_Click()
    subRating 2
End Sub

Private Sub R3_Click()
    subRating 3
End Sub

Private Sub R4_Click()
    subRating 4
End Sub

Private Sub R5_Click()
    subRating 5
End Sub

Private Sub subRating(i As Integer)
    Me.Rating = i
    Me("R" & i).Requery
    Me.Rating.SetFocus
End Sub

Function getColor1() As String
   If Me.R1 = "" Then getColor1 = "l"
End Function

Function getColor2() As String
   If Me.R2 = "" Then getColor2 = "l"
End Function

Function getColor3() As String
   If Me.R3 = "" Then getColor3 = "l"
End Function

Function getColor4() As String
   If Me.R4 = "" Then getColor4 = "l"
End Function

Function getColor5() As String
   If Me.R5 = "" Then getColor5 = "l"
End Function


So, wenn ich jetzt nichts vergessen habe, sollte es funktionieren.

_________________
Gruß Alfred...

Es ist nicht immer alles so einfach wie es sich im Moment darstellt...
Floh927
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2014, 18:14
Rufname:

AW: Unicode Zeichen in Feldern - AW: Unicode Zeichen in Feldern

Nach oben
       Version: Office 2013

Vielen lieben Dank, für die tolle Anleitung. Leider komme ich erst am Wochenende dazu, das Beschriebene auszuprobieren.

Ich geb aber auf jeden Fall eine Rückmeldung, ob es funktioniert hat.

MfG Floh927
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Mit Abfrage letztes Zeichen löschen wenn das ein Punkt ist 2 PeterD 3332 24. Aug 2007, 12:29
PeterD Mit Abfrage letztes Zeichen löschen wenn das ein Punkt ist
Keine neuen Beiträge Access Tabellen & Abfragen: Erste Zeichen einer Zeichenkette auslesen 1 HSB 988 16. Aug 2007, 10:33
blicki Erste Zeichen einer Zeichenkette auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Löschen von Infos in best. Feldern von gewissen Records 4 janbroennimann 390 05. Jun 2007, 11:29
janbroennimann Löschen von Infos in best. Feldern von gewissen Records
Keine neuen Beiträge Access Tabellen & Abfragen: Wie kriege ich mehr als 255 Zeichen in ein Textfeld? 1 peter/marburg 3101 20. März 2007, 17:40
Thomas2007 Wie kriege ich mehr als 255 Zeichen in ein Textfeld?
Keine neuen Beiträge Access Tabellen & Abfragen: sql Update auch bei leeren feldern 2 Gootmon1 779 13. Jul 2006, 16:18
Gootmon1 sql Update auch bei leeren feldern
Keine neuen Beiträge Access Tabellen & Abfragen: Nur alphabetische Zeichen in einer Abfrage zulassen 1 Toni83 1395 22. Jun 2006, 15:43
SGast Nur alphabetische Zeichen in einer Abfrage zulassen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeichen und Buchstaben in Abfrage zählen 0 Transputor 1107 24. Mai 2006, 17:40
Transputor Zeichen und Buchstaben in Abfrage zählen
Keine neuen Beiträge Access Tabellen & Abfragen: Umbenennung von Feldern bei Konvertierung (ZString) 2 Bert_02 3312 07. Apr 2006, 10:22
Nouba Umbenennung von Feldern bei Konvertierung (ZString)
Keine neuen Beiträge Access Tabellen & Abfragen: Nummernfeld das Zeichen erlaubt? 1 kugelschreiber 1182 04. Apr 2006, 21:12
stpimi Nummernfeld das Zeichen erlaubt?
Keine neuen Beiträge Access Tabellen & Abfragen: Summe aus zwei Feldern in einer Tabelle 3 Gaudí83 3422 14. März 2006, 22:24
Nouba Summe aus zwei Feldern in einer Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Text-Formatierungen innerhalb von Feldern 1 Muschimaus 580 23. Sep 2005, 11:22
Matthias123 Text-Formatierungen innerhalb von Feldern
Keine neuen Beiträge Access Tabellen & Abfragen: Zeichen und Sonderzeichen eingeben in Tabellen! 7 Muschimaus 9991 15. Sep 2005, 16:09
Ritterwirtkeller Zeichen und Sonderzeichen eingeben in Tabellen!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme