Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kombinationsfeld-Daten erweitern/in andere Tabelle schreiben
zurück: Polardiagramm in Access weiter: Protokollieren von Änderungen 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
Lars83
Einsteiger


Verfasst am:
08. Mai 2013, 14:30
Rufname:

Kombinationsfeld-Daten erweitern/in andere Tabelle schreiben - Kombinationsfeld-Daten erweitern/in andere Tabelle schreiben

Nach oben
       Version: Office 2007

Hallo Forum,

ja, das ist eigentlich ein alter Hut, es gibt ausreichend Anleitungen im Netz und dennoch habe ich damit ein Problem:

In einem Formular möchte ich in verschiedenen Kombinatinsfeldern Daten auswählen. Die Tabellen, die die Daten lieferen, sollen erweitert werden falls der Nutzer neue Daten eingibt. Die ausgewählten Daten werden in Feldern der Tabelle tblProjekte geschrieben.

Das Funktioniert einwandfrei beim ersten Kominationsfeld cboKennzeichen und überhaupt nicht beim zweiten Feld cboSeriennummer. Ich kann den Fehler einfach nicht finden.

Hier sind die Codes:
Daten aus cboKennzeichen in tblProjekte schreiben (funktioniert)
Code:
Private Sub cboKennzeichen_AfterUpdate()
    Dim db As DAO.Database
    Dim rec_adr As DAO.Recordset
   
    Set db = Application.CurrentDb()
    Set rec_adr = db.OpenRecordset("tblProjekte")
    rec_adr.MoveLast
    rec_adr.Edit
    rec_adr!ACReg = Me!cboKennzeichen.Column(0)
    rec_adr.Update
End Sub
tblFlugzeugkennzeichen erweitern (funktioniert)
Code:
Private Sub cboKennzeichen_NotInList(NewData As String, Response As Integer)
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
   
    Set db = CurrentDb
    Set rst = db.OpenRecordset("tblFlugzeugkennzeichen", dbOpenDynaset)
    With rst
        .AddNew
        !Kennzeichen = NewData
        .Update
    End With
    Me!cboKennzeichen.Undo
    Me!cboKennzeichen.Requery
    Response = 0
    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub
Daten aus cboSeriennummer in tblProjekte schreiben (funktioniert nicht)
Code:
Private Sub cboSeriennummer_AfterUpdate()
    Dim db As DAO.Database
    Dim rec_adr As DAO.Recordset
       
    Set db = Application.CurrentDb()
    Set rec_adr = db.OpenRecordset("tblProjekte")
    rec_adr.MoveLast
    rec_adr.Edit
    rec_adr!ACSN = Me!cboSeriennummer.Column(0)
    rec_adr.Update
End Sub
tblFlugzeugseriennummer erweitern (funktioniert nicht)
Code:
Private Sub cboSeriennummer_NotInList(NewData As String, Response As Integer)
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
   
    Set db = CurrentDb
    Set rst = db.OpenRecordset("tblFlugzeugseriennummer", dbOpenDynaset)
    With rst
        .AddNew
        !Seriennummer = NewData
        .Update
    End With
    Me!cboSeriennummer.Undo
    Me!cboSeriennummer.Requery
    Response = 0
    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub
Ich bin euch sehr dankbar für eure Hilfe!

Gruß Lars
kyron9000
Practitioner :)


Verfasst am:
08. Mai 2013, 16:57
Rufname:
Wohnort: Wien

AW: Kombinationsfeld-Daten erweitern/in andere Tabelle schre - AW: Kombinationsfeld-Daten erweitern/in andere Tabelle schre

Nach oben
       Version: Office 2007

Hallo,

jetzt stellt sich mal die Frage...was funktioniert nicht...
Zitat:
und überhaupt nicht beim zweiten Feld cboSeriennummer
...ist etwas wenig Information. Sind ja in Grunde genommen idente Code

na ja konsequent bist ja nicht so 100%ig...
Code:
    Set db = Application.CurrentDb()
    Set db = CurrentDb
Hast dir schon diesen Link angesehen? Da gibt es auch einen Code mit Formularaufruf.
FAQ 4.13 Kombinationsfeld - Eintrag hinzufügen
...der sieht etwas anders als deiner aus.

_________________
Gruß Alfred...

Es ist nicht immer alles so einfach wie es sich im Moment darstellt...
Lars83
Einsteiger


Verfasst am:
13. Mai 2013, 14:14
Rufname:


AW: Kombinationsfeld-Daten erweitern/in andere Tabelle schre - AW: Kombinationsfeld-Daten erweitern/in andere Tabelle schre

Nach oben
       Version: Office 2007

Lars83 am 13. Mai 2013 um 13:50 hat folgendes geschrieben:
Erstmal Entschuldigung für die späte Antwort. Ich bearbeite das Thema auf der Arbeit und hatte am langen Wochenende keine Chance mal ins Forum zu schauen.

Zitat:
jetzt stellt sich mal die Frage...was funktioniert nicht...
Das erste Feld schreibt wie gewünscht den eingegeben Wert in die Quelltabelle und die tblProjekte
Das zweite Feld tut nichts von beiden. Genauer kann ich es leider nicht beschreiben.

Zitat:
na ja konsequent bist ja nicht so 100%ig...
Ich bin noch ziemlich blutiger Anfänger. Das sind die Folgen von Copy and Paste.

Zitat:
Hast dir schon diesen Link angesehen?
Das werde ich mir mal anschauen. Ich melde mich dann nochmal, ob es hilft.

Gruß
Lars

Alfred,

vielen Dank! Ich bin deinem Link gefolgt und habe für das Ereignis "nicht in Liste" nun folgenden Code:
Code:
Private Sub cboSeriennummer_NotInList(NewData As String, Response As Integer)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
   
    Response = acDataErrAdded
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tblFlugzeugseriennummer", dbOpenDynaset)
    rs.AddNew
    rs!Seriennummer = NewData
    rs.Update
    rs.Close: Set rs = Nothing
    Set db = Nothing
End Sub
tblFlugzeugseriennummer und tblProjekte wird nun einwandfrei ergänzt. Ich vermute aber, es lag nicht am Code. Ich habe cboSeriennummer auf Nur Listeneinträge = Ja geändert. cboKennzeichen Stand bereits auf Ja....

Es sind immer wieder die Kleinigkeitenm, die einen ewig Aufhalten...

Gruß Lars
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: Tabelle per button öffnen 1 Lordoo 1454 14. Jul 2004, 14:05
lothi Tabelle per button öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Kreuztabellenabfrage für neue Tabelle nutzen 3 WaterMan 805 06. Jul 2004, 14:39
mabe38 Kreuztabellenabfrage für neue Tabelle nutzen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle exportieren als Excel2000 Arbeitsblatt 1 thomassch 916 06. Jul 2004, 12:46
stpimi Tabelle exportieren als Excel2000 Arbeitsblatt
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabeaufforderung für "Tabelle umbenennen" 1 DJK_2000 823 06. Jul 2004, 11:05
Gast Eingabeaufforderung für "Tabelle umbenennen"
Keine neuen Beiträge Access Tabellen & Abfragen: Importieren einer Excel Tabelle 4 budking82 1948 01. Jul 2004, 17:25
Mike (Gast) Importieren einer Excel Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle mit Beziehung zu anderen Tabellen updaten - wie ? 4 miredoju 2684 15. Jun 2004, 10:24
miredoju Tabelle mit Beziehung zu anderen Tabellen updaten - wie ?
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle von Excel importieren 1 Sonnenschein 2640 15. Jun 2004, 06:57
stpimi Tabelle von Excel importieren
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle sichern 5 alfikoe 946 05. Mai 2004, 20:26
lothi Tabelle sichern
Keine neuen Beiträge Access Tabellen & Abfragen: Autowert in bestehende Tabelle 1 Gingi 729 23. Apr 2004, 11:45
mabe38 Autowert in bestehende Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle formatiert in txt-Datei exportieren 1 robby 1115 12. Apr 2004, 23:10
Helge Tabelle formatiert in txt-Datei exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: neue Tabellen erstellen aus vorhandener Tabelle 6 moni 2010 29. März 2004, 15:39
moni neue Tabellen erstellen aus vorhandener Tabelle
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: einträge aus tabelle in formular anzeigen u. speichern 1 gast 1161 25. März 2004, 09:33
Willi Wipp einträge aus tabelle in formular anzeigen u. speichern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS