Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Listenelement automatisch markieren
zurück: formular einen berichtöffnen mit Zeitraum!! weiter: Datensatz löschen aus Formular Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
merke-dir
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jan 2009, 12:14
Rufname:

Listenelement automatisch markieren - Listenelement automatisch markieren

Nach oben
       Version: Office 2007

Hallo
ich habe in meinem Formular ein paar Listenfelder mit jeweils einem Element und möchte dieses ständig markiert haben.
Gibt es einen Befehl welcher mit im Listenfeld das eine Element immer markiert?
Code:
    Me!Listenfeld.Selected(0) = True
wird das Element zwar markiert, hat aber nicht den gewünschten Effekt.

Ziel ist es einfach, dass die in den Listenfeldern enthaltenen Zeiten (hh:mm:ss) zusammengerechnet werden.

Das geschieht mir dem folgenden Code:
Code:
    Dim a As Double, b As Double, c As Double
   
    Me!Liste1.Selected(0) = True
    Me!Liste2.Selected(0) = True
    Me!Liste3.Selected(0) = True
    a = CDbl(CDate(Me!Liste1))
    b = CDbl(CDate(Me!Liste2))
    c = CDbl(CDate(Me!Liste33))
    Me!Textfeld = CDate(a) + CDate(b) + CDate(c)
Das Problem ist jetzt aber, dass ich im Formular immernoch die Listenelemente einzeln anklicken muß, um das Ergebnis im Textfeld angezeigt zu bekommen.
Also quasi immernoch die Listenelemente einzeln für die Berechnung auswählen muß, obwohl sie schon markiert sind.

Hat da jemand eine Idee?
Vielen Dank
jens05
Moderator


Verfasst am:
07. Jan 2009, 21:02
Rufname:
Wohnort: ~~~~~


AW: Listenelement automatisch markieren - AW: Listenelement automatisch markieren

Nach oben
       Version: Office 2007

Hallo,
versuche doch mal folgendes
Code:
    Dim a As Double, b As Double, c As Double
   
    Me!Liste1 = Me!Liste1.ItemData(0)
    Me!Liste2 = Me!Liste2.ItemData(0)
    Me!Liste3 = Me!Liste3.ItemData(0)
    a = CDbl(CDate(Me!Liste1))
    b = CDbl(CDate(Me!Liste2))
    c = CDbl(CDate(Me!Liste33))
    Me!Textfeld = CDate(a) + CDate(b) + CDate(c)
Wobei mir der Sinn eines Listenfeldes nicht ganz klar ist?! Nimm doch einfach ein Textfeld für die Uhrzeit.
_________________
mfg jens05 Wink
Gast



Verfasst am:
07. Jan 2009, 22:38
Rufname:

AW: Listenelement automatisch markieren - AW: Listenelement automatisch markieren

Nach oben
       Version: Office 2007

Das erste Problem habe ich hinbekommen...danke!

Nun habe ich aber ein weiteres Problem.
In meinem Formular habe ich jetzt die Zeiten(hh:mm:ss) aus meinen Listenfeldern zusammengerechnet uns lasse sie mir in einem neuen Listenfeld ausgeben. Das fuktioniert soweit ganz gut. Die Summe wird immer neu berechnet wenn sich eine Zeit in einem der Listenfeld ändert. Nun möchte ich die zusammengerechnete Zeit(hh:mm:ss) als Doublewert in eine schon vorhandene Tabelle(Block) in der Spalte (Laenge) speichern mit dem Code:
Code:
Private Sub ListenfeldSumme_AfterUpdate()
    Dim doub As Double
   
    doub = CDbl(CDate(Me!ListenfeldSumme))
    CurrentDb.Execute "UPDATE Block " & _
                         "SET Laenge = " & Str(doub) & " " & _
                       "WHERE BlockID = " & Me!ID
    ' nur Zeit vom aktuellen Datensatz im Formular speichern
End Sub
Es wird aber nur gespeichert, wenn ich auf das Listenfeld klicke. Ich möchte aber, dass der Inhalt des Listenfeldes gepeichert wird, wenn ListenfeldSumme aktualisiert wird.
Wird ListenfeldSumme nicht angeklickt, aber aktualisiert, wird der letzte Wert in die Tabelle gespeichert welcher angeklickt wurde. Woran kann das liegen?
jens05
Moderator


Verfasst am:
07. Jan 2009, 22:50
Rufname:
Wohnort: ~~~~~


AW: Listenelement automatisch markieren - AW: Listenelement automatisch markieren

Nach oben
       Version: Office 2007

Hallo,
Zitat:
ListenfeldSumme aktualisiert
wie kommt es zu der Aktualisierung? Was löst es aus? Dort sollte dein Code plaziert werden.
_________________
mfg jens05 Wink
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: PLZ automatisch einfügen? 1 donnie 1388 25. Apr 2007, 11:02
nakoda PLZ automatisch einfügen?
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen automatisch importiern 2 Sonja2007 510 04. Apr 2007, 14:54
sonaj2007 Tabellen automatisch importiern
Keine neuen Beiträge Access Tabellen & Abfragen: IDENT automatisch vergeben lassen 2 ? 784 31. Aug 2006, 14:23
Gast IDENT automatisch vergeben lassen
Keine neuen Beiträge Access Tabellen & Abfragen: Neue Tabellen aus anderem Tabellen erstellen automatisch 13 Elton#62 1001 28. Aug 2006, 13:01
Nouba Neue Tabellen aus anderem Tabellen erstellen automatisch
Keine neuen Beiträge Access Tabellen & Abfragen: Zeilen markieren in Tabelle 2 ujaldi 703 27. Aug 2006, 20:50
ujaldi Zeilen markieren in Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Datenbank aktualisieren und Datensatz automatisch ersetzen 0 HappyDC 4558 07. Jul 2006, 13:02
HappyDC Datenbank aktualisieren und Datensatz automatisch ersetzen
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten automatisch erstellen lassen 1 Premium 899 04. Jul 2006, 19:21
rita2008 Spalten automatisch erstellen lassen
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit Abfrage 4 Maximiliane 675 03. Apr 2006, 10:09
Maximiliane Problem mit Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Access rundet automatisch auf! 2 RazielX 4049 23. März 2006, 11:09
RazielX Access rundet automatisch auf!
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage automatisch anpassen [Ac 2002] 1 blablub 611 15. März 2006, 11:26
rita2008 Abfrage automatisch anpassen [Ac 2002]
Keine neuen Beiträge Access Tabellen & Abfragen: Datum automatisch einfügen 5 UPPsycho 898 09. März 2006, 20:58
jens05 Datum automatisch einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeitdifferenz in Tagen automatisch in 3. Spalte 9 helly 2832 07. März 2006, 09:39
Gast Zeitdifferenz in Tagen automatisch in 3. Spalte
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen