Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem: Edit mit Listenfeld und Textfeldern Access 97
zurück: Abfragewerte mit Formularwerten vergleichen weiter: Hauptform - UFO Laufzeitfehler 2105 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Cocona
Access 97


Verfasst am:
20. Okt 2007, 18:39
Rufname:

Problem: Edit mit Listenfeld und Textfeldern Access 97 - Problem: Edit mit Listenfeld und Textfeldern Access 97

Nach oben
       Version: Office 97

Hallo,
ich habe ein Problem. Ich habe auf einer kleinen Form ein Listenfeld ( 2-Spaltig ), ein Edit-Button und zwei Textfelder. Ich möchte durch einfaches anklicken des Listenf. den Datensatz in die zwei Textf. übernehmen ( Vorname / Name ). Dann in dem Textf. ändern und mit dem Edit-Bot. zurück in die Tabelle schreiben. Das Listenf. ist mit der Tabelle verbunden ( Liste1.RowSource ).
Ich habe schon alles versucht - .Text .Value mit und ohne Trim$() mit Liste1.Column(1, li%) alles mit Fehlermeldung sobald ich das Textf. anklicke.
Er möchte für jeden Schritt einen Fokus, bringt aber nix. Dann habe ich 4 Datensätze zum Testen, er sollte am unteren Rand also 1 von 4 anzeigen, da steht aber nur 1 von 1. Ich denke da könnte schon mein Fehler liegen.
Ich hoffe das mir jemand helfen kann oder einen Link zu einem Demo Prog. hat?
Vielen Dank
Code:
Option Compare Database

Dim db As Database
Dim tb As Recordset

Option Explicit

Private Sub Befehl1_Click()
    tb.MoveFirst
    tb.Move li%
    tb.Edit
    tb("Vorname") = Text1.Text
    tb("Name") = Text2.Text
    tb.Update
    Liste1.Requery
End Sub

Private Sub Form_Load()
    Liste1.RowSource = "SELECT Vorname, Name FROM Personen;"
    Set db = CurrentDb
    Set tb = db.OpenRecordset("Personen")
End Sub

Private Sub Liste1_Click()
    li% = Liste1.ListIndex
    tb.MoveFirst
    tb.Move li%
    Text1.Text = tb("Vorname")
    Text2.Text = tb("Name")
    Liste1.ListIndex = -1
    Text1.SetFocus
End Sub
Willi Wipp
Moderator


Verfasst am:
20. Okt 2007, 22:02
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem: Edit mit Listenfeld und Textfeldern Access 97 - Re: Problem: Edit mit Listenfeld und Textfeldern Access 97

Nach oben
       Version: Office 97

Hi Cocona,

da sind einige Fehler im Code.
Bevor wir aber an die Bereinigung gehen, sollten wir klaeren warum Du nicht den Weg ueber ein gebundenes Formular gehst.
Erstelle ein Formular fuer die Tabelle mit dem Assistenten.
Dann fuege danach ein Listenfeld mit dem Assistenten (Zauberstab) ein. Waehle Option 3 (...suchen).
Dann kannst Du den DS direkt bearbeiten.
Musst dann noch im Formular-Ereignis Nach Aktualisierung (AfterUpdate) dafuer sorgen das das Listenfeld aktualisiert wird.
Besitzt die Tabelle auch ienen Primaerschluessel, am Besten vom Felddatentyp Autowert.
Damit wuerde die Auswahl viel einfacher und sicherer.
Hier mal eine Variante wie es mit Deinem Ansatz funktionieren koennte
Code:
Option Compare Database
Option Explicit

Private Sub Befehl1_Click()
    Dim db  As DAO.Database
    Dim tb  As DAO.Recordset
   
    Set db = CurrentDb
    Set tb = db.OpenRecordset(Me!Liste1.RowSource)
    tb.MoveFirst
    tb.Move Me!Liste1.ListIndex
    tb.Edit
    tb("Vorname") = Me!Text1
    tb("Name") = Me!Text2
    tb.Update
    Me!Liste1.Requery
    tb.Close
    Set tb = Nothing
    Set db = Nothing
End Sub

Private Sub Form_Load()
    Me!Liste1.RowSource = "SELECT Vorname, Name " & _
                            "FROM Personen " & _
                        "ORDER BY Nachname, Vorname;"
End Sub

Private Sub Liste1_Click()
    Me!Text1 = Me!Liste1.Column(0)
    Me!Text2 = Me!Liste1.Column(1)
    Me!Text1.SetFocus
End Sub
Aber wie gesagt die andere Variante ist mit Sicherheit besser.
_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Cocona
Access 97


Verfasst am:
21. Okt 2007, 15:59
Rufname:


AW: Problem: Edit mit Listenfeld und Textfeldern Access 97 - AW: Problem: Edit mit Listenfeld und Textfeldern Access 97

Nach oben
       Version: Office 97

Tschuldige bin Access Neuling und hab nur 2-3 mal mit dem Assistenten gearbeitet.
Habe immer gedacht was der macht, kann ich auch von Hand. Aber das ist gut, zwei, drei Click’s und es funktioniert. Die andere Variante habe ich nicht mehr ausprobiert.

Vielen Dank
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: Anfügabfrage/Listenfeld 6 Patrick_gast 385 21. Dez 2009, 09:54
Patrick_Gast Anfügabfrage/Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld mit Mehrfachauswahl 13 Gast091109 687 10. Nov 2009, 16:41
Gast091109 Listenfeld mit Mehrfachauswahl
Keine neuen Beiträge Access Tabellen & Abfragen: Gefiltertes Listenfeld in Tabelle speichern 11 Mr. Deeds 1586 05. Sep 2009, 15:12
Marmeladenglas Gefiltertes Listenfeld in Tabelle speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld Datenquelle SQL Query mit Wert aus Textfeld 4 myvantage 1391 27. Mai 2009, 21:39
myvantage Listenfeld Datenquelle SQL Query mit Wert aus Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Zeitraum per Listenfeld abfragen 4 bobby-k 483 07. Apr 2009, 17:56
Willi Wipp Zeitraum per Listenfeld abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Report: Übergabe eines Wertes aus Textfeld in Listenfeld 2 hekabe 476 05. Feb 2009, 16:58
hekabe Report: Übergabe eines Wertes aus Textfeld in Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: In einem Listenfeld nur bestimmte werte anzeigen 14 gisiangel 2925 01. Nov 2008, 15:38
osaft27 In einem Listenfeld nur bestimmte werte anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Kombination von 2 Textfeldern in einer Abfrage 1 Noobie86 399 26. Jun 2008, 14:16
JoachimG Kombination von 2 Textfeldern in einer Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Summe von den Optionen im Listenfeld 4 Disastro 491 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 785 04. Jan 2008, 22:25
Betullam Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage starten vom Listenfeld 3 JoSCh1 780 19. Okt 2007, 14:22
Willi Wipp Abfrage starten vom Listenfeld
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
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum