Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datensätze aus 2 Listenfelder hinzufügen
zurück: Meldung anzeigen. weiter: Tabellen per VBA verknüpfen (ODBC) 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
Der W
Gast


Verfasst am:
23. Jan 2009, 11:43
Rufname:

Datensätze aus 2 Listenfelder hinzufügen - Datensätze aus 2 Listenfelder hinzufügen

Nach oben
       Version: Office 2003

Guten Morgen

ich hab da ein Problem und komme partu nicht drauf was es sien kann. Meine Kollegen sind auch ratlos.

und zwar soll ich über ein formular aus 2 listenfelder datensätze auswählen und per button in die tabelle hinzufügen. diese tabelle wird als unterformular angezeigt
ich bekomme bei meinem geschriebenen immer einen fehler das meine variable nicht diffieniert ist!
das ist meine bisherige arbeit:
Code:
Private Sub Hinzufügen_Massnahmen_zu_Controls_Click()
    Dim cnn As ADODB.Connection   '<<<<<Hier zeigt der Debugger mir den Fehler
    Dim pos As Variant
    Dim rst As ADODB.Recordset
   
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "dbo_ControlsMassnahmen", cnn, adOpenKeyset, adLockOptimistic, _
             adCmdTableDirect
    For Each pos In Liste_Massnahmen.ItemsSelected
        rst.AddNew
        rst!MassnahmeId = Liste_Massnahmen.ItemData(pos)
        rst.Update
    Next pos
    Me!Liste_Massnahmen.Requery
    MsgBox "Aktualisiert", vbOKOnly, "Daten erfolgreich gespeichert"
End Sub
ich wollte erstmal nur wissen ob es geht und habe deshalb nur ein listenfeld berücksichtigt

bitte um hilfe
Nachtrag: Der W am 23. Jan 2009 um 12:33 hat folgendes geschrieben:
noch zu Info:

also ich denke es liegt daran das ich keine ADODB verwende sondern auf einen SQL-Server connecte samt ODBC-Schnittstelle

ich bitte ganz dringend um hilfe vielen dank!
Marmeladenglas
komme zurecht


Verfasst am:
24. Jan 2009, 12:10
Rufname:


AW: Datensätze aus 2 Listenfelder hinzufügen - AW: Datensätze aus 2 Listenfelder hinzufügen

Nach oben
       Version: Office 2003

Hi,
vermutlich fehlt dir die Referenz für die Microsoft ActiveX Data Objects 2.9 library
-> VBA-Editor -> Menü -> Verweise

Pass den Code auch mal folgend an: (Me! ergänzen)
Code:
    Dim cnn As ADODB.Connection   '<<<<<Hier zeigt der Debugger mir den Fehler
    Dim pos As Variant
    Dim rst As ADODB.Recordset
   
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "dbo_ControlsMassnahmen", cnn, adOpenKeyset, adLockOptimistic, _
             adCmdTableDirect
    For Each pos In Me!Liste_Massnahmen.ItemsSelected
        rst.AddNew
        rst!Massnahme_Id = Me!Liste_Massnahmen.ItemData(pos)
        rst.Update
    Next pos
    Me!Liste_Massnahmen.Requery
    MsgBox "Aktualisiert", vbOKOnly, "Daten erfolgreich gespeichert"
    rst.Close
    Set rst = Nothing
    Set cnn = Nothing
   
Gerade unter ADODB (DAO ist da gutmütiger) ist es wichtig dein rst wieder zu schließen, sonst kann eine Fehlermeldung auftauchen, sinngemäß die Datenbank wurde vom Administrator in einen Zustand versetzt...............

Zuletzt bearbeitet von Marmeladenglas am 25. Jan 2009, 14:35, insgesamt 3-mal bearbeitet
Willi Wipp
Moderator


Verfasst am:
24. Jan 2009, 18:38
Rufname:
Wohnort: Raum Wiesbaden

Re: Datensätze aus 2 Listenfelder hinzufügen - Re: Datensätze aus 2 Listenfelder hinzufügen

Nach oben
       Version: Office 2003

Hi Marmeladenglas,

aber auch bei ADO nur wenn es wirklich eine neue Verbindung ist Wink
Hier wird aber die aktuelle Verbindung nur referenziert ==> Die sollte man besser nicht schliessen koennen
und zum Glueck verhindert das Access ja auch Smile

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Marmeladenglas
komme zurecht


Verfasst am:
25. Jan 2009, 08:17
Rufname:


AW: Datensätze aus 2 Listenfelder hinzufügen - AW: Datensätze aus 2 Listenfelder hinzufügen

Nach oben
       Version: Office 2003

Habs korrigiert Surprised
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: Datensätze paarweise berechnen? 4 adiag 883 21. Mai 2005, 22:28
adiag Datensätze paarweise berechnen?
Keine neuen Beiträge Access Tabellen & Abfragen: Filtere alle Datensätze ab der 3 Stelle die nicht PC heißen? 7 centerguide 1302 18. Mai 2005, 11:39
centerguide Filtere alle Datensätze ab der 3 Stelle die nicht PC heißen?
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze zählen (im Formular oder Bericht) ? 3 anna-bolika 3756 31. März 2005, 12:50
Dalmatinchen Anzahl der Datensätze zählen (im Formular oder Bericht) ?
Keine neuen Beiträge Access Tabellen & Abfragen: Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info 2 Steve 914 14. Jan 2005, 00:43
Steve Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info
Keine neuen Beiträge Access Tabellen & Abfragen: multiplizieren zweier verschiedener Datensätze 3 Stara 913 13. Jan 2005, 20:36
Skogafoss multiplizieren zweier verschiedener Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage um doppelte Datensätze zu ermitteln? 5 tom444 5066 14. Dez 2004, 23:49
Skogafoss Abfrage um doppelte Datensätze zu ermitteln?
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze anzeigen? 3 MichaelB 1122 19. Okt 2004, 12:45
lothi Anzahl der Datensätze anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Einmalige Datensätze löschen 18 frankkugler 1614 18. Okt 2004, 15:33
frankkugler Einmalige Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: datensätze suchen 13 mr@ 1514 13. Sep 2004, 10:21
meyster datensätze suchen
Keine neuen Beiträge Access Tabellen & Abfragen: 24 felder aus 1 DS in 24 versch. Datensätze kopieren. 3 Mirko 593 30. Jul 2004, 13:55
Willi Wipp 24 felder aus 1 DS in 24 versch. Datensätze kopieren.
Keine neuen Beiträge Access Tabellen & Abfragen: Summen über mehrere Datensätze bilden 5 Matti_71 1497 03. Jul 2004, 12:38
Willi Wipp Summen über mehrere Datensätze bilden
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelte Datensätze suchen und löschen. 4 Psus82 6651 24. Jun 2004, 16:57
Psus82 Doppelte Datensätze suchen und löschen.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project