Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
arrays in Tabelle einlesen
zurück: Daten aus excel an accesstabelle anfügen weiter: combobox standartwert setzen, geht einfach ned 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
Twix22
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Sep 2008, 08:25
Rufname:

arrays in Tabelle einlesen - arrays in Tabelle einlesen

Nach oben
       Version: Office 2003

Hi,

hab zwei Arrays. Das eine Array enthält 30 string-Werte, das andere 60 Integer-Werte. Nun will ich den Inhalt dieser Arrays in eine Tabelle schreiben. Die ersten beiden Felder des string-arrays und die ersten 4 Felder des int-arrays usw. bilden jeweils einen Datensatz.

Nun bekomm ich aber immer die Fehlermeldung:
Zitat:
3265 Item cannot be found in the collection corresponding to the requested name or ordinal.
Die Textfelder die ich mit den arrays verknüpft habe sind aber alle korrekt gesetzt. Die beiden arrays werden richtig "befüllt".

Schaut euch bitte mal folgenden Code an. Entdeckt ihr da einen Fehler?

danke!
Code:
Public Sub standardwertespeichern_array(array1() As Integer, _
                                        array2() As String)
On Error GoTo fehler
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim i, j As Integer
    Dim tabelle_uebergeben As String
   
    tabelle_uebergeben = "Standardwerte_Verfügbarkeiten"
    tabelleleeren tabelle_uebergeben ' im Modul allgModul
    Set conn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    i = 0
    j = 0
    With rst
        .Open "Standardwerte_Eingabemaske", conn, adOpenKeyset, _
              adLockOptimistic
        'lbound = erstes Element; ubound = letztes Element
        Do Until i = UBound(array1) Or j = UBound(array2)
            .AddNew
            .Fields("zeile") = "" & array2(j) & ""
            j = j + 1
            .Fields("element") = "" & array2(j) & ""
            j = j + 1
            .Fields("anzahl") = "" & array1(i) & ""
            i = i + 1
            .Fields("wert1") = "" & array1(i) & ""
            i = i + 1
            .Fields("wert2") = "" & array1(i) & ""
            i = i + 1
            .Fields("wert3") = "" & array1(i) & ""
            i = i + 1
            .Update
            Exit Do
        Loop
        Close
    End With
    Set rst = Nothing
    Set rst = Nothing
    Exit Sub
fehler:
    MsgBox Err.Number & " " & Err.Description
End Sub
Twix22
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Sep 2008, 10:32
Rufname:


AW: arrays in Tabelle einlesen - AW: arrays in Tabelle einlesen

Nach oben
       Version: Office 2003

nun gut. ich bin selber drauf gekommen. braucht also keiner mehr antworten.
hab die falsche tabelle geöffnet
Code:
        .Open "Standardwerte_Eingabemaske", conn, adOpenKeyset, _

und das Exit Do muss raus.
Code:
Public Sub standardwertespeichern_array(array1() As Integer, _
                                        array2() As String)
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim i, j As Integer
    Dim tabelle_uebergeben As String
   
    On Error GoTo fehler
    tabelle_uebergeben = "xy"
    tabelleleeren tabelle_uebergeben ' im Modul allgModul
    Set conn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    i = 0
    j = 0
    With rst
        .Open "xy", conn, adOpenKeyset, _
              adLockOptimistic
        'lbound = erstes Element; ubound = letztes Element
        Do Until i = UBound(array1) Or j = UBound(array2)
            .AddNew
            .Fields("zeile") = "" & array2(j) & ""
            j = j + 1
            .Fields("element") = "" & array2(j) & ""
            j = j + 1
            .Fields("anzahl") = "" & array1(i) & ""
            i = i + 1
            .Fields("wert1") = "" & array1(i) & ""
            i = i + 1
            .Fields("wert2") = "" & array1(i) & ""
            i = i + 1
            .Fields("wert3") = "" & array1(i) & ""
            i = i + 1
            .Update
        Loop
        Close
    End With
    Set rst = Nothing
    Set rst = Nothing
    Exit Sub
fehler:
    MsgBox Err.Number & " " & Err.Description
End Sub
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: sql neue tabelle erstellen 3 Gast 1232 19. Jul 2004, 23:09
lothi sql neue tabelle erstellen
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: kein Wert in der Tabelle, dann immer Null (0)?? 3 Michel_9 1005 26. Mai 2004, 14:28
Michel_9 kein Wert in der Tabelle, dann immer Null (0)??
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: Tabelle aus Abfrage erstellen 1 dasti 3317 09. Apr 2004, 12:14
Gast Tabelle aus Abfrage erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Werte aus Formular per VBA in andere Tabelle anfügen 1 Gast 1861 04. Apr 2004, 21:27
el_gomero Werte aus Formular per VBA in andere Tabelle anfügen
Keine neuen Beiträge Access Tabellen & Abfragen: ausgeblendete Tabelle wieder einblenden 2 Dana79 2758 24. März 2004, 11:54
Dana79 ausgeblendete Tabelle wieder einblenden
 

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