Access-o-Mania

Access-Forum (Deutsch/German) => Formular => Thema gestartet von: crystal am März 05, 2016, 14:38:24

Titel: Berechnung im Ufo
Beitrag von: crystal am März 05, 2016, 14:38:24
Hallo,
ich bin neu hier und leider habe ich wenig Erfahrund mit Access.
Mein Problem:
Ich habe ein Ufo, in dem ich mit VBA aus zwei Feldern ein drittes berecnen möchte.
Das Ufo ist nur eine Zeile hoch, damit ich möglichst viele Datensätze anzeigen kann.

Problem: wenn ich in der ersten Zeile die Berechnung mache, erscheint das Ergebnis auch in allen anderen Zeilen.
Meine Berechnung mache ich in Form_current. Ich hb auch andere Sacheen probiert (aktuell, load usw.) aber immer das gleiche Ergebnis.
Wie kann ich es schaffen, das meine Berechnung sich nur auf eine Zeile bezieht und die andren in Ruhe läßt?
Titel: Re: Berechnung im Ufo
Beitrag von: DF6GL am März 05, 2016, 15:39:26
Hallo,


ich nehme an, es handelt sich um ein Endlos-Formular...
Schreib die Formel (Berechnung) in die Eigenschaft "Steuerelementinhalt" des 3. Textfeldes:


z. B.:

=Textfeld1 * Textfeld2






Titel: Re: Berechnung im Ufo
Beitrag von: MzKlMu am März 05, 2016, 16:46:45
Hallo,
oder rechne in der Abfrage:
ZitatNeuesFeld: Textfeld1 * Textfeld2
Als Eintrag in der 1.Zeile einer leeren Spalte der Abfrage.
Das Formularfeld bindest Du an das "NeueFeld" aus der Abfrage.

VBA wird in keinem Fall benötigt, bzw. ist auch der falsche Weg.
Titel: Re: Berechnung im Ufo
Beitrag von: crystal am März 05, 2016, 18:47:59
Danke für eure Antworten.
Meine Frage oder das Beispiel war wahrscheinlich zu ungenau.

Genau geht es darum:
Im Ufo hab ich zwei Felder, Startzeit und Endezeit. diese Zeitspanne will ich jetzt als Balken anzeigen. Der Zeitbalken fängt immer bei 7 Uhr an und hört bei 23 Uhr auf. Wie kann ich njetzt zB 9-15Uhr in dem Balken anzeigen. Ich hab den Balken schon in 25-Minuten-Teile aufgeteilt. Aber immerwenn ich ein Feld des Balken verändere , zB die Hintergrundfarbe ändere, werden alle zeilen in meinm Ufo auch geändert.
Titel: Re: Berechnung im Ufo
Beitrag von: MzKlMu am März 05, 2016, 18:51:07
Hallo,
welche Auflösung würde Dir reichen, 15 Minuten ?
Titel: Re: Berechnung im Ufo
Beitrag von: crystal am März 05, 2016, 18:53:22
Ja, 15 Minuten sind voll OK.
Titel: Re: Berechnung im Ufo
Beitrag von: MzKlMu am März 05, 2016, 19:41:14
Hallo,
im Anhang ein ganz einfaches Beispiel für einen Zeitbalken, ohne einen einzigen Buchstaben VBA. In der Abfrage wird der Abstand des Balkens von vorn und die Dauer (=Länge) des Balkens errechnet. Die Auflösung beträgt 10 Minuten.
Titel: Re: Berechnung im Ufo
Beitrag von: crystal am März 05, 2016, 20:13:52
Wow - coole Sache. Vielen Dank.
Kannst du noch erkläre, was da genau passiert?

=String(Nz([Abstand];0);" ") & String(Nz([Dauer];0);ChrW(9608))

Titel: Re: Berechnung im Ufo
Beitrag von: crystal am März 05, 2016, 20:27:29
Könnte man die Farbe des Balkens auch noch für jede Zeile einstellen?
Titel: Re: Berechnung im Ufo
Beitrag von: MzKlMu am März 05, 2016, 20:34:16
Hallo,
das mit der wechselnden Farbe musst Du mal genauer erklären, unter welcher Bedingung soll sich die Farbe ändern ?

Die Funktion String erzeugt eine Folge bestimmter Zeichen. Als Abstand Leerzeichen und als Dauer das Zeichen 9608 (Rechteck, gefüllt)
String kannst Du in der VBA Hilfe nachschlagen.
Titel: Re: Berechnung im Ufo
Beitrag von: crystal am März 05, 2016, 20:55:17
Oh ja, hätte ich auch selbst nachschlagen können. Aber manchmal steht man auf dem Schlauch und braucht nen guten Tip. Danke dafür.
Das mit drn Farben ist so: jede Zeile hat noch ein Feld Mitarbeiter-Farbe, long-integer. Jetzt soll dies Farbe benutzt werden um den Balken entsprechend einzufärben.
Titel: Re: Berechnung im Ufo
Beitrag von: MzKlMu am März 05, 2016, 21:46:41
Hallo,
warum muss man denn immer alles scheibchenweise erfragen ?

Wie viele Mitarbeiter hast Du ?
Du kannst ja nicht beliebig viele Farben vergeben.
Titel: Re: Berechnung im Ufo
Beitrag von: crystal am März 05, 2016, 21:52:05
Tut mir leid, also ich habe höchstens 50 Miarbeiter. Jeder hat seine eigene Farbe.
Titel: Re: Berechnung im Ufo
Beitrag von: MzKlMu am März 05, 2016, 23:41:08
Hallo,
das geht nicht. Das müsste mit der bedingten Formatierung gemacht werden.
Und die kann meines Wissen keine 50. Aber ich weiß es nicht genau, da ich nur Access2003 habe und da gehen nur 4 Farben (3+1).

Abgesehen davon, scheint es mir schwierig 50 unterschiedliche Farben definieren zu können, die das Auge auch erkennt.
Titel: Re: Berechnung im Ufo
Beitrag von: crystal am März 06, 2016, 00:29:56
OK. Danke für deine Antworten. Hat mir sehr geholfen!