Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Aktualisierung Listenfeld
zurück: Access2007: Probleme mit Pivot Chart als Unterformular weiter: Datensatz Suche 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
Tarsuinn
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Mai 2010, 10:13
Rufname:

Aktualisierung Listenfeld - Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Hallo,

hätte eine Frage zum Thema Einträge in Listenfeldern aktualisieren. Habe ein Formular in dem ein Listenfeld erstellt wurde, die Werte des Listenfeldes werden per SQL Abfrage aus einer Tabelle geholt. Wenn ich nun auf einen Eintrag im Listenfeld klicke öffnet sich wie gewollt ein Bild, allerding immer nur das erste Bild in der Liste, wenn ich nun auf den zweiten oder dritten Eintrag klicke öffnet sich nicht Bild 2,3 sondern wieder 1. Wie kann ich es schaffen das ich sobald ich den zweiten EIntrag in der Liste anklicke der Pfad für die Bilddatei auf das zweite Bild gesetzt wird?

Grüße
Marmeladenglas
komme zurecht


Verfasst am:
06. Mai 2010, 10:16
Rufname:


AW: Aktualisierung Listenfeld - AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Hi,
wie sieht der VBA-Code im KLick-Ereignis des Listenfeldes aus ?
Allgemein gesprochen, fehlt dir wahrscheinlich die Angabe eines Kriteriums..
Tarsuinn
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Mai 2010, 10:22
Rufname:

AW: Aktualisierung Listenfeld - AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Code:
Private Sub Liste15_DblClick(Cancel As Integer)
On Error Resume Next
Dim DoOpenFile As Long, OpenFileVar As String

    'Wenn Pfad und Datei in einem Formularfeld "Dateifld" stehen:

    If Not IsNull(Pfad) Then
    OpenFileVar = Pfad
    DoOpenFile = ShellExecute(Me.Hwnd, vbNullString, OpenFileVar, vbNullString, vbNullString, 1)
    Else

    MsgBox "Es wurde keine Datei ausgewählt.", vbExclamation

    End If
End Sub


Wie gesagt das funktioniert auch soweit.
Marmeladenglas
komme zurecht


Verfasst am:
06. Mai 2010, 10:31
Rufname:

AW: Aktualisierung Listenfeld - AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Hi,
worüber wird Pfad gefüllt ?
Ist das ein Steuerelement des Formulars ?
Dann bitte Me.Pfad (auch wenn das nicht fehlerursächlich ist).
Wird Me.Pfad entsprechend der neuen Auswahl im Listenfeld aktualisiert ?
Tarsuinn
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Mai 2010, 10:46
Rufname:


AW: Aktualisierung Listenfeld - AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Ich denke das da das Problem liegt, wie kann ich den Me.Pfad aktualisieren? Pfad wird aus der Tabelle abgefragt per SQL Abfrage und in das Listenfeld geschrieben. Als Steuerelemente habe ich Pfad nicht eingebunden.
Marmeladenglas
komme zurecht


Verfasst am:
06. Mai 2010, 10:58
Rufname:

AW: Aktualisierung Listenfeld - AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Hi,
verstehe ich das richtig, dass "Pfad" einen Spalteninhalt deiner Liste darstellt ?
Tarsuinn
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Mai 2010, 11:01
Rufname:

Re: AW: Aktualisierung Listenfeld - Re: AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Marmeladenglas - 06. Mai 2010, 10:58 hat folgendes geschrieben:
Hi,
verstehe ich das richtig, dass "Pfad" einen Spalteninhalt deiner Liste darstellt ?


Ja, das verstehst du richtig
Marmeladenglas
komme zurecht


Verfasst am:
06. Mai 2010, 11:06
Rufname:

AW: Aktualisierung Listenfeld - AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Hi,
das mündet eigentlich wieder in die Frage:
Zitat:
worüber wird Pfad gefüllt ?

Irgendwie muß in Pfad ja was reinkommen, sonst würde in den Else-Teil verzweigt werden mit der Fehlermeldung.

Schreib mal
Msgbox Pfad
vor
If not isnull(Pfad) then..
und berichte welchen Inhalt Pfad hat bei verschiedenen Listauswahlen.
In welcher Spalte ist der Pfad des Bildes ?
Auf Spalten greift man normalerweise über .column(x) zu 'x für die Spalte ab 0 gezählt.
Tarsuinn
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Mai 2010, 11:14
Rufname:

AW: Aktualisierung Listenfeld - AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Er zeigt mir den richtigen Pfad an, aber nur zu einem EIntrag, also bei 4 EInträgen steht viermal der gleiche Pfad. Ich denke ich bin wieder am Anfang des Threads angekommen Sad

Der Bildfpad steht in der dritten Spalte der Ausgangstabelle
Marmeladenglas
komme zurecht


Verfasst am:
06. Mai 2010, 11:17
Rufname:

AW: Aktualisierung Listenfeld - AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Hi,
schreib mal:

Code:
Pfad = Me.Liste15.column(2)

If not Isnull(pfad) then.....


und teste erneut !
Wobei mir immer noch unklar ist, woher "Pfad" aktuell (in deiner jetztigen Version) seinen Wert bekommt - das kannst nur du wissen !
Tarsuinn
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Mai 2010, 11:37
Rufname:


AW: Aktualisierung Listenfeld - AW: Aktualisierung Listenfeld

Nach oben
       Version: Office 2003

Ok das klappt danke erstmal ;)
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: Summe von den Optionen im Listenfeld 4 Disastro 490 22. Jan 2008, 08:08
jens05 Summe von den Optionen im Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld 5 Betullam 784 04. Jan 2008, 22:25
Betullam Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierung Abfrage 1 Reaver01 498 19. Nov 2007, 08:04
jens05 Aktualisierung Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Filter im Listenfeld aus Abfrage 1 hansemann2510 686 23. Aug 2007, 21:22
hansemann2510 Filter im Listenfeld aus Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Korrekte Währung nach Aktualisierung 2 andman 502 10. Aug 2007, 17:08
andman Korrekte Währung nach Aktualisierung
Keine neuen Beiträge Access Tabellen & Abfragen: Größer Kleiner-wert- Abfrage in Listenfeld einbauen 4 toxicman 1707 24. Jun 2007, 19:26
toxicman Größer Kleiner-wert- Abfrage in Listenfeld einbauen
Keine neuen Beiträge Access Tabellen & Abfragen: abhängiges Listenfeld 1 access_anfaenger 796 13. Jun 2007, 14:03
blicki abhängiges Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierung einer Abfragenkategorie über Formularbutton 1 eMatt 480 15. März 2007, 12:00
rita2008 Aktualisierung einer Abfragenkategorie über Formularbutton
Keine neuen Beiträge Access Tabellen & Abfragen: Eintrag in Listenfeld bei klick an abfrage übergeben? 5 Zamp 1012 07. Dez 2006, 07:58
derArb Eintrag in Listenfeld bei klick an abfrage übergeben?
Keine neuen Beiträge Access Tabellen & Abfragen: Inhalt Textfeld durch Aktualisierung löschen 2 Blume 904 30. Nov 2006, 13:15
Blume Inhalt Textfeld durch Aktualisierung löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Änderungen in zwei Tabellen / Aktualisierung 7 Gaeltacht 1106 21. Aug 2006, 19:55
jens05 Änderungen in zwei Tabellen / Aktualisierung
Keine neuen Beiträge Access Tabellen & Abfragen: aktualisierung WANN? 2 Highlander 486 02. Aug 2006, 17:01
Willi Wipp aktualisierung WANN?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA