Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
1. Zeile des Kombinationsfeldes (Wertliste) aktualisieren
zurück: Datensatz erstellen weiter: Funktion "bei Geändert" 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
student2006
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Nov 2006, 13:40
Rufname:

1. Zeile des Kombinationsfeldes (Wertliste) aktualisieren - 1. Zeile des Kombinationsfeldes (Wertliste) aktualisieren

Nach oben
       Version: Office 2003

Ich habe folgendes Problem.

In einem Kombinationsfeld (Wertliste) lasse ich die Namen der Tabellen hineinschreiben, die gleiche Anfangsbuchstaben haben (z.B. Anfangsbuchsstaben Tab, also Tab_1, Tab_2, Tab_3). Ich habe das ganze in VBA gemacht, die Tabellennamen in einem String gespeichert und dann mit RowSource das Feld gefüllt. Den Code habe ich als Ereignisprozedur "Beim Hingehen" hinterlegt.

Neben dem Kombinationsfeld habe ich einen Button, mit dem man die ausgewählte Tabelle löschen kann. All das funktioniert auch sehr gut.

Leider wird nach dem Löschen z.B. der Tabelle Tab_1 der Name "Tab_1" immer noch in der 1.Zeile des Kombinationsfeldes angezeigt, wenn man rechts auf den "Pfeil nach unten" drückt wird es wieder aktualisiert.

Wie kann ich erreichen, dass auch die erste Zeile direkt nach meiner Löschaktion aktualisiert wird. Ansonsten bekomme ich beim erneuten Klicken des Löschbuttons eine Fehlermeldung.

Wäre super, eine Antwort zu bekommen

grüße

BERND
JörgG
Access-Team


Verfasst am:
29. Nov 2006, 14:31
Rufname:
Wohnort: b. Dresden


AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere - AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere

Nach oben
       Version: Office 2003

Hallo Bernd,

es sollte reichen, nach dem Löschen die Kombifeld-Sub "beim Hingehen" erneut auszuführen, ungefähr so:
Code:
Private Sub ButtonDelete_Click()
   'Dein Löschcode
    Call Kombifeld_Enter()
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Gast



Verfasst am:
29. Nov 2006, 15:44
Rufname:

AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere - AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere

Nach oben
       Version: Office 2003

Leider funktioniert das nicht!
Die 1.Zeile bzw. der Name, der im Kombinationsfeld steht, ohne dass man den "Pfeil nach unten" betätigt hat, wird nur aktualisiert, wenn
man das Formular schließt und wieder neu öffnet oder wenn man eben eine Auswahl vornimmt.

Hat jemand noch andere Ideen, wäre super!

Grüße

BERND
FTrabold
VBA Verzweifelte


Verfasst am:
29. Nov 2006, 16:40
Rufname:

AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere - AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere

Nach oben
       Version: Office 2003

Hi,
Wie wäre es wenn der button nach dem löschen das Formular schließt und wieder neu öffnet oder die Liste löscht und wieder neu erstellt?
Grüße
Franzi
derArb
getting better


Verfasst am:
29. Nov 2006, 16:46
Rufname: derArb
Wohnort: Berlin


AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere - AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere

Nach oben
       Version: Office 2003

hallo,

vielleicht
Code:
    Me!combobox.Refresh
' oder
    Me!combobox.Requery
' oder
    Me!combobox.Repaint

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
student2006
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Nov 2006, 18:10
Rufname:

AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere - AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere

Nach oben
       Version: Office 2003

SORRY, ich habe mich bei meiner letzten Antwort nicht angemeldet, deshalb war ich "Gast"

Bei der "Requery" Methode funktioniert es leider nicht, bei den anderen beiden kommt die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht" !
Was ich noch wissen wollte:
Wenn ich mein Formular das erste mal öffne, ist mein Kombinationsfeld leer. Je nachdem ob es eine Tabelle gibt mit den Anfangsbuchstaben (z.B. Tab - Beschreibung siehe oben) soll nun der Name der ersten Tabelle drinnen stehen, ansonsten ein anderer Ausdruck "Keine Tabelle" vorhanden! Wie kann ich das machen? Mit rowsource füllt er nur das Kombinationsfeld, legt jedoch keinen Startnamen fest.

Kann mir jemand helfen?

Grüße

BERND
JörgG
Access-Team


Verfasst am:
29. Nov 2006, 19:41
Rufname:
Wohnort: b. Dresden

AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere - AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere

Nach oben
       Version: Office 2003

Hallo Bernd,

keine Ahnung wieso der 1.Tipp bei Dir nicht funktioniert, Du verrätst ja auch nicht wie das Kombi überhaupt gefüllt wird oder wieviele Spalten das Teil hat Rolling Eyes

hier hast Du eine komplette Lösung für 1 Spalte mit der MSysObjects auslesen:
Code:
'Kombi "beim Hingehen"
Private Sub cboTabellen_Enter()
    'Verweis auf "Microsoft DAO3.6 Object Library"
    Dim Rst As DAO.Recordset, strRecSource As String
   
    On Error Resume Next
    Me!cboTabellen = vbNullString
    Set Rst = CurrentDb.OpenRecordset("MSysObjects", dbOpenSnapshot)
    Do While Not Rst.EOF
        If Mid(Rst!Name, 1, 4) = "Tab_" Then _
            strRecSource = strRecSource & "; " & Rst!Name
        Rst.MoveNext
    Loop
    Me!cboTabellen.RowSourceType = "Value List"
    If Len(strRecSource) > 0 Then
        Me!cboTabellen.RowSource = Mid(strRecSource, 3)
      Else
        Me!cboTabellen.RowSource = "keine Tabelllen vorhanden"
    End If
    Rst.Close: Set Rst = Nothing
    Me!cboTabellen.Dropdown
End Sub

'Formular "beim Öffnen"
Private Sub Form_Open(Cancel As Integer)
    Call cboTabellen_Enter
End Sub

'und der 1.Tipp, Löschbutton "beim Klicken"
Private Sub ButtonDelete_Click()
   'Dein Löschcode
    Call cboTabellen_Enter
End Sub
Man kann vielleicht noch ein bischen Gasgeben, das Rst als Query auf die MSysObjects auszuführen und in der WHERE-Klausel dann entsprechend TYPE=1 zusetzen, aber bei so einer kleinen Tabelle wird's nicht viel bringen. Probier's aus.
_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
jens05
Moderator


Verfasst am:
29. Nov 2006, 21:12
Rufname:
Wohnort: ~~~~~

AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere - AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere

Nach oben
       Version: Office 2003

Hallo,
Jörg sein 1. Code dürfe schon funktionieren. Dieser ruft deine Prozedur auf, und passt die WerteListe an. Nur solltest du den vorher selektierten Wert entfernen.
Code:
Private Sub ButtonDelete_Click()
   'Dein Löschcode
    Call Kombifeld_Enter()
    Me!Kombifeld = vbnullString
End Sub
bzw. den 1. Wert der Liste neu selektieren.
Code:
Private Sub ButtonDelete_Click()
   'Dein Löschcode
    Call Kombifeld_Enter()
    Me!Kombifeld = Me!Kombifeld.ItemData(0)
End Sub

_________________
mfg jens05 Wink
JörgG
Access-Team


Verfasst am:
29. Nov 2006, 21:32
Rufname:
Wohnort: b. Dresden


AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere - AW: 1. Zeile des Kombinationsfeldes (Wertliste) aktualisiere

Nach oben
       Version: Office 2003

Hallo,

@Jens, danke für den Balsam Very Happy

@Bernd, für ein sortiertes Einlesen ersetze die Recordsetzuweisung durch:
Code:
    Set Rst = CurrentDb.OpenRecordset( _
              "SELECT Name " & _
                "FROM MSysObjects " & _
               "WHERE TYPE = 1 " & _
                  "OR TYPE = 6 " & _
            "ORDER BY Name;", dbOpenSnapshot)

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
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: Welche Zeile ist in der anderen Tabelle nicht 1 galaxy 393 06. März 2007, 09:25
jens05 Welche Zeile ist in der anderen Tabelle nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfte Tabellen über Makro in Formular aktualisieren 1 Daniel Albert 3944 14. Nov 2006, 22:51
jens05 Verknüpfte Tabellen über Makro in Formular aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Formular auf Abfrage Basis Daten aktualisieren????? 2 Peter Lustig 3230 04. Sep 2006, 13:44
Peter Lustig Formular auf Abfrage Basis Daten aktualisieren?????
Keine neuen Beiträge Access Tabellen & Abfragen: EXCEL Tabelle von ACCESS aus aktualisieren 1 Tonii 5606 02. Aug 2006, 20:04
steffen0815 EXCEL Tabelle von ACCESS aus aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: eine Zeile hinzufügen 4 Bernett22 589 22. Jun 2006, 08:21
Bernett22 eine Zeile hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile in Spalte transformieren (mit Kriterien) 5 captfrag 908 29. Mai 2006, 13:05
Willi Wipp Zeile in Spalte transformieren (mit Kriterien)
Keine neuen Beiträge Access Tabellen & Abfragen: LAgerstand in Tabelle aktualisieren??? 1 romangradwohl 902 27. März 2006, 06:35
Nouba LAgerstand in Tabelle aktualisieren???
Keine neuen Beiträge Access Tabellen & Abfragen: Leeren Datensatz oder leere zwischen Zeile hinzufügen 3 cool.scheffe 1005 23. März 2006, 13:51
rita2008 Leeren Datensatz oder leere zwischen Zeile hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Datum in Tabelle aktualisieren 1 frca0013 786 25. Jan 2006, 15:21
frca0013 Datum in Tabelle aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Daten mit Access in Excel aktualisieren 10 cyberax 1109 11. Jan 2006, 14:22
Willi Wipp Daten mit Access in Excel aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz ändern / aktualisieren 1 zwerg 819 05. Jan 2006, 10:35
stpimi Datensatz ändern / aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Code im Eingabeformular in nächste Zeile befördern 2 lara111 2328 08. Dez 2005, 10:59
lara112 Code im Eingabeformular in nächste Zeile befördern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver