Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ReDim Preserve und Zähler Problem
Autor: Larres
Datum: 07.02.07 09:26
Hallo Alle, habe folgende Problematik. Ich möchte Namen bestimmter Tabellen in ein Array schreiben. Um den Inhalt nicht zu löschen und es dynamisch zu halten benutze ich ReDim und Preserve. Leider komme ich nicht ganz mit meinem Zähler klar. Das Array wird jedesmal überschrieben. Es ist global deklariert. Schicke einen Teil des Codes vielleicht kann mir jemand helfen : 'in der Sub wird geschaut ob bestimmte Tabellen-Namen vorhanden sind 'dann sprung auf Function "Tabelle_voll" um einen Recordset aufzumachen und zu schauen ob ein Datensatz vorhanden ist Sub Tabellen_OK() Dim Tabelle As AccessObject Dim Tabellen_Name As String Dim i As Long i = 1 For Each Tabelle In Application.CurrentData.AllTables If Left(Tabelle.Name, 3) = "FBE" Or _ Left(Tabelle.Name, 3) = "FBT" Or _ Left(Tabelle.Name, 3) = "FBK" Or _ Left(Tabelle.Name, 3) = "FBP" Then Tabellen_Name = Tabelle.Name If Tabelle_voll(Tabellen_Name) Then ' !!! hier wird dann trotz Preserve das Array überschrieben !!! ' !!! und der Zähler wieder auf 0 gesetzt !!! ReDim Preserve garrInhalt(i) garrInhalt(i) = Tabellen_Name i = i + 1 Else End If 'Array im Combofeld auf Aktion hinterlegen 'ReDim Array weil dynamische Größe Debug.Print Tabellen_Name End If Next Tabelle End Sub ------------------------------------------------ Function Tabelle_voll(Tabellen_Name As String) As Boolean Dim db As Database Dim rstZugriff As ADODB.Recordset Set db = CurrentDb() Set rstZugriff = New ADODB.Recordset 'Set rstZugriff = CurrentDb.OpenRecordset("Select * From " & Tabellen_Name, CurrentProject.Connection, adOpenKeyset, adLockOptimistic) rstZugriff.Open "Select * From " & Tabellen_Name & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic If rstZugriff.RecordCount = 0 Then Tabelle_voll = False Else Tabelle_voll = True End If rstZugriff.Close db.Close End Function Wenn mir hier jemand helfen könnte wäre das klasse. Danke und Gruß, Lars

ReDim Preserve und Zähler Problem	729	Larres	07.02.07 09:26
Re: ReDim Preserve und Zähler Problem	460	vbtricks	07.02.07 10:44
Re: ReDim Preserve und Zähler Problem	448	Larres	07.02.07 12:17

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen