TKSoft-Online

Willkommen, Gast
Benutzername: Passwort: Angemeldet bleiben:
Passwort vergessen? Benutzername vergessen?
Forum TKSoft-Online
MS-Access
MS-Access - Fragen und Antworten

Tabellen automatisch mit Werten füllen
(1 Leser) (1) Gast
Alles rund um MS-Access
Auf Thema antworten
Neues Thema
  • Seite:
  • 1

THEMA: Tabellen automatisch mit Werten füllen

Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #61

  • daddy_2004
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Hallo,

ich brauche Hilfe.
Wie kann ich Access beibringen, in einer Tabelle Datensätze von x bis y selbst zu erstellen? 100e Werte händisch einzutragen macht nicht so viel Spass.

Danke & Gruß
Lutz
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #62

  • TommyK
  • OFFLINE
  • Administrator
  • Beiträge: 502
  • Karma: 4
Hallo Lutz,

das ist relativ simpel.
Annahme:
Tabelle = \"tbl_Zahlen\"
Feld = \"ID\"

Code in neues Modul:
 
Public Sub FillNumberTable()
 
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(\"tbl_Zahlen\"«»)
 
    For i = 1000000 To 5999999
        rs.AddNew
        rs!ID = i
        rs.Update
    Next i
rs.Close: Set rs = Nothing
End Sub
 

Verweis auf DAO 3.X muss gesetzt sein.
Du musst nur Tabellenname und Feldnamen anpassen.
Aufruf dann:
FillNumberTable

Achtung:
Dieser Code würde fast 5 Millionen Datensätze der Tabelle hinzufügen!
Gruß TommyK
Letzte Änderung: 4 Jahre, 2 Monate her von TommyK.
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #63

  • daddy_2004
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Hallo Tommy,

zwei Fragen habe ich noch.

Was bedeutet:
-Verweis auf DAO 3.X muss gesetzt sein.

Und wie kann ich das Ding ausführen? Habe ein Makro gemacht mit Code Ausführen, aber das macht er nicht

Gruß
Lutz
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #64

  • TommyK
  • OFFLINE
  • Administrator
  • Beiträge: 502
  • Karma: 4
Hallo Lutz,

-Verweis auf DAO 3.X muss gesetzt sein.


gehe im VBA-Editor in das Menü \"Extras\"->\"Verweise\".
In der Liste suchst Du den Eintrag
\"Microsoft DAO 3.6 Objectlibrary\"
Machst das Häkchen und klickst OK

Habe ein Makro gemacht mit Code Ausführen, aber das macht er nicht

Makros sind buggy.
Von wo aus willst Du den Code aufrufen?
Gruß TommyK
Letzte Änderung: 4 Jahre, 2 Monate her von TommyK.
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #65

  • daddy_2004
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
das ist mir egal...von dort wo es am einfachsten ist. Ich muss das ding sowieso erstmal nur einmal ausführen...

Merci
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #66

  • TommyK
  • OFFLINE
  • Administrator
  • Beiträge: 502
  • Karma: 4
Hallo Lutz,

dann so:
1. Code ändern:
Public Function FillNumberTable()
 
Dim rs As DAO.Recordset
Dim i As Long
Set rs = CurrentDb.OpenRecordset(\"tbl_Zahlen\"«»)
 
    For i = 1000000 To 5999999
        rs.AddNew
        rs!ID = i
        rs.Update
    Next i
rs.Close: Set rs = Nothing
End Function

2. Makro erstellen.
AusführenCode -> Funktionsname=\"FillNumberTable ()\"
3. Makro aufrufen.
Gruß TommyK
Letzte Änderung: 4 Jahre, 2 Monate her von TommyK.
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #67

  • daddy_2004
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Hi Tommy,

habe alles so gemacht...aber leider passiert nix wenn ich das Makro ausführe:-(

Was kann das sein?
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #68

  • daddy_2004
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
ich glaube jetzt macht er es....access ist beschäftigt
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #69

  • daddy_2004
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Super Geil! Hat funktioniert. Danke schön.

Nun eine weitere \"Aufgabenstellung\".
Wie kann ich diese Tabelle mit den 5Mio Einträgen gegen eine andere Liste laufen lassen und Access sagen, das er mir die Einträge der 5 Mio Nummern rausschreiben soll, die in der anderen Liste nicht enthalten sind?

Würde dies ja gerne in Excel machen, nur da ist ja bei 65.000 Zeilen Schluss:-(
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #70

  • TommyK
  • OFFLINE
  • Administrator
  • Beiträge: 502
  • Karma: 4
Moin Lutz,

habe leider gestern Abend Feierabend gemacht da ich Montags 2:30 Uhr aufstehe.
Hier aber die Lösung.
Erstelle ein Abfrage mit beiden Tabellen und verknüpfe diese über das Zahlenfeld.
Annahme:
Tabelle1 = \"tbl_Zahlen\" (hat alle Werte)
Tabelle2 = \"tbl_Zahlen2)(hier fehlen Werte)

Dann sähe der SQL-String so aus:
SELECT tbl_Zahlen.ID, tbl_Zahlen2.ID
FROM tbl_Zahlen LEFT JOIN tbl_Zahlen2 ON tbl_Zahlen.ID = tbl_Zahlen2.ID
WHERE (((tbl_Zahlen2.ID) Is Null));

Das Ergenis wäre alle DS die in der Tabelle2 fehlen.
Gruß TommyK
Antwort Zitieren

Re:Tabellen automatisch mit Werten füllen 4 Jahre, 2 Monate her #71

  • daddy_2004
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Wunderbar. 1000 Dank! Hat alles funktioniert.

bis denne
Antwort Zitieren
Auf Thema antworten
Neues Thema
  • Seite:
  • 1
Forum TKSoft-Online
MS-Access
MS-Access - Fragen und Antworten
Moderatoren: TommyK
Powered by Kunena
Ladezeit der Seite: 2.98 Sekunden

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173444 Downloads

JoomlaWatch 1.2.11 - Joomla Monitor and Live Stats by Matej Koval