MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 26.10.2003, 16:19   #1
Jürgen32
MOF User
MOF User
Standard Leere Felder automatisch Füllen

hallo zusammen,
ich habe ein Problem mit Datensätzen in einer Tabelle. Es geht sich um eine Kreuzworträtseldatenbank. Ich habe Daten per Excel in meine DB importiert. Leider waren nicht alle Felder ausgefüllt. mein Problem ist folgendes. Im Feld "Frage" steht z.B. ein Begriff in Zeile 1. Die Zeilen 2-20 sind leer. In diese Zeilen müßte der Begriff aus Zeile 1 kopiert werden. Das ganze für ca 190.000 Datensätze. Hat jemand ne Lösung, wie ich das hinbekomme ? Zur besseren Verständlichkeit habe ich eine kleine Beispieldatenbank angehängt.

Ich arbeite mit Access 2000
Angehängte Dateien
Dateityp: mdb forum.mdb (132,0 KB, 16x aufgerufen)
Jürgen32 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.10.2003, 16:43   #2
Johnny Loser
MOF Meister
MOF Meister
Standard

Hi Jürgen,

ich habe Dir mal eben eine Routine dafür geschrieben.
Einfach das Modul öffnen und mit F5 starten.



Unabhängig davon, würde ich mir aber überlegen, die DB so umzugestalten, daß Du eine Haupttabelle mit den Fragen hast und in einer 1:n-Relation über die ID eine Untertabelle mit den Antworten.
Angehängte Dateien
Dateityp: mdb forum2000.mdb (140,0 KB, 27x aufgerufen)

__________________

Johnny Loser

Wer lesen kann, ist klar im Vorteil!

Windows XP / 7, Access 2.0 / 97 / 2000, Office 97 / 2000 / 2007, VB 6 .............
P.S.: Helfen macht um so mehr Spaß, wenn man ein Feedback bekommt, auch wenn's mal nicht geholfen hat
Ich beantworte keine PN oder email-Anfragen, die ins Forum gehören!
Johnny Loser ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.10.2003, 17:07   #3
Jürgen32
Threadstarter Threadstarter
MOF User
MOF User
Standard

hallo Jonny,
hat alles super geklappt ...danke dir .......
das selbe muß ich jetzt noch für die zeichenlänge machen ...aber das bekomme ich alleine hin ...


nochmal vielen Dank

Jürgen
Jürgen32 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.10.2003, 17:54   #4
Nouba
MOF Guru
MOF Guru
Standard

Hallo,

ich habe mal die Tabellen mit Anfügeabfragen, wie Johnny auch empfiehlt, normalisiert.
Angehängte Dateien
Dateityp: zip kwr97.zip (42,4 KB, 25x aufgerufen)

__________________

Gruss Nouba

Codekabinett - Tipps zu Access, VBA und Co.
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.10.2003, 15:23   #5
Jürgen32
Threadstarter Threadstarter
MOF User
MOF User
Standard

hallo nouba hallo Jonny und natürlich allen anderen ein hallo,

was ist denn eurer Meinung nach die schnellste Variante ?? es werden ca 190.000 Datensätze sein. Ich wollte für jede Zeichenlänge eine eigene Tabelle erstellen.
Die Daten aufzuteilen traute ich mich nicht, da ich meinte, ca 190.000 Datensätze + die Verknüpfungen der Fragen wäre langsamer als die Frage und Antwort zusammen zulassen.

mfg
Jürgen
Jürgen32 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.10.2003, 15:29   #6
Nouba
MOF Guru
MOF Guru
Standard

Hallo Jürgen,

hier würde ich mal selbst experimentieren. Vielleicht sollte man, wenn nach Zeichenfolgelängen als Bedingung gesucht wird, die Textlänge redundant ablegen und mit einem Index versehen. Die Antworten und Fragen sollten IMHO auch indiziert werden, damit die Suche zügig abläuft. Von mehreren Tabellen rate ich allerdings ab - wie sollte man da noch Beziehungen pflegen können.

__________________

Gruss Nouba

Codekabinett - Tipps zu Access, VBA und Co.
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.11.2003, 15:19   #7
Jürgen32
Threadstarter Threadstarter
MOF User
MOF User
Standard

das ist einer der Codes, den ich von Jonny bekommen habe, um meine Felder automatisch zu füllen. Ich soll den code in ein Model speichern und ihn dann über "F5" starten. Das klappt auch alles super. Ich möchte ihn aber über eine Formularschaltfläche aufrufen. kann mir jemand sagen wie ich das mache ??

Code:

Function fncFuelleFelder()
Dim rs As Recordset
Dim strTemp As Double
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Datenauswertung ORDER BY ID")
rs.MoveFirst
Do While Not rs.EOF
    If Not IsNull(rs!Zeichenlänge) Then
        strTemp = rs!Zeichenlänge
    Else
        rs.Edit
        rs!Zeichenlänge = strTemp
        rs.Update
    End If
    rs.MoveNext
Loop
End Function
Jürgen32 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.08.2005, 11:29   #8
engri
MOF User
MOF User
Top Perfekt !!!

Vielen Dank
... ich habe die Funktion angepaßt und per "Call Funktion ... " in die Ablaufprozedur eingebaut ... funktioniert 100%ig

Gruß Enrico
engri ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.08.2007, 12:23   #9
GerhardKnuth
Neuer Benutzer
Neuer Benutzer
Strahlen Vielen Dank ...

sage ich aus Hamburg für die kleine Codingstrecke. Hat mir sehr geholfne wieder ins Thema zu finden.

G. Knuth
InKobus.de
GerhardKnuth ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:16 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.