Thema Datum  Von Nutzer Rating
Antwort
30.01.2007 14:29:41 Lars
NotSolved
01.02.2007 05:52:00 Rasta
NotSolved
06.02.2007 09:30:16 Lars
NotSolved
07.02.2007 11:05:48 Rasta
NotSolved
Rot Aw:Aw:Aw:Aw:Application.CurrentData.AllTables
 07.02.2007 11:11:08 Lars
NotSolved

Ansicht des Beitrags:
Von:
Lars		 Datum:
07.02.2007 11:11:08		 Views:
1136		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Application.CurrentData.AllTables
Nein, von Recordsettabellen in Access. Tut mir leid dass ich das nicht gesagt habe !
Die Lösung habe ich nun auch schon gefunden :

'Sub die die Namen der Tabellen überprüft und bei Treffern die Namen ins Array schreibt

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
ReDim Preserve garrInhalt(i)

garrInhalt(i) = Tabellen_Name

i = i + 1

Else

End If

Debug.Print Tabellen_Name

End If
Next Tabelle
End Sub
----------------------------------------------------------------------------
'Function die schaut ob Tabellen mindestens einen Datensatz enthalten
'und Boolean auf True oder False setzt

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

rstZugriff.Open "Select * From " & Tabellen_Name & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rstZugriff.RecordCount = 0 Then

MsgBox "es existiert kein Datensatz"
Tabelle_voll = False

Else

MsgBox "Datensatz wird ins Array geschrieben!"

Tabelle_voll = True
End If

rstZugriff.Close
db.Close

End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.01.2007 14:29:41 Lars
NotSolved
01.02.2007 05:52:00 Rasta
NotSolved
06.02.2007 09:30:16 Lars
NotSolved
07.02.2007 11:05:48 Rasta
NotSolved
Rot Aw:Aw:Aw:Aw:Application.CurrentData.AllTables
 07.02.2007 11:11:08 Lars
NotSolved