Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textfeld im Formular soll per VBA Werte anzeigen
zurück: Daten von einem Formular in eine Tabelle schreiben weiter: Datenherkunft wird nicht aktualisiert 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
Troll88
etwas mehr als Einsteiger


Verfasst am:
27. Jul 2009, 09:51
Rufname:

Textfeld im Formular soll per VBA Werte anzeigen - Textfeld im Formular soll per VBA Werte anzeigen

Nach oben
       Version: Office 2003

Troll88 - 21. Jul 2009, 11:21 hat folgendes geschrieben:
Hallo zusammen.

Ich habe einen Code geschrieben um eine große Tabelle (ca. 20000 DS) in ca 20 Tabellen zu splitten. zuerst lösche ich die einzelnen Tabellen, dann teile ich sie nach einer bestimmten Logik auf. In der Form mit dem Startbutton habe ich ein Textfeld (Satznummer), dass mir anzeigen soll was er grade macht. Also z.B. beim Löschen den Namen der Tabellen und beim aufsplitten den aktuellen DS der Quelltabelle.
ich habe es ungefähr so aufgebaut:
Code:
' Löschen:
    Set db = CurrentDb
    Set rs1 = db.OpenRecordset("Select * from Teile_01")
    Me!Satznummer = "Teile_01!"
    Me!Satznummer.Requery
    While Not rs1.EOF And Not rs1.BOF
        rs1.Delete
        rs1.MoveNext
    Wend
    rs1.Close
    Set rs1 = db.OpenRecordset("Select * from Teile_02")
    Me!Satznummer = "Teile_02!"
    Me!Satznummer.Requery
    While Not rs1.EOF And Not rs1.BOF
        rs1.Delete
        rs1.MoveNext
    Wend
    rs1.Close
    '...
' Aufteilen:
    Set rs = db.OpenRecordset("Select * from Sachnummer")
    rs.MoveFirst
    While Not rs.EOF And Not rs.BOF
        sachkurz = Left$(LTrim(Sach), 6)
        If StrComp(sachkurz, "000000", 1) = 1 And _
           StrComp(sachkurz, "036000", 1) = -1 Then
            Set rs1 = db.OpenRecordset("SELECT * FROM Teile_01")
            rs1.AddNew
            rs1!TeileNr = Sach
            rs1!Nr = "17"
            rs1!Benennung = Bez
            rs1.Update
            rs1.Close
          ElseIf StrComp(sachkurz, "000000", 1) = 0 Then
            Set rs1 = db.OpenRecordset("SELECT * FROM Teile_01")
            rs1.AddNew
            rs1!TeileNr = Sach
            rs1!Nr = "17"
            rs1!Benennung = Bez
            rs1.Update
            rs1.Close
          ElseIf StrComp(sachkurz, "035999", 1) = 1 And _
                 StrComp(sachkurz, "03A000", 1) = -1 Then
            Set rs1 = db.OpenRecordset("SELECT * FROM Teile_02")
            rs1.AddNew
            rs1!TeileNr = Sach
            rs1!Nr = "17"
            rs1!Benennung = Bez
            rs1.Update
            rs1.Close
        '...
        End If
        Me!Satznummer = rs.AbsolutePosition
        Me.Refresh
        rs.MoveNext
    Wend
Das Textfeld wird dabei aber nicht aktualisiert. Nur zum Schluss erscheint der letzte DS. Was muss ich machen, damit es klappt?
Für eine Lösung wäre ich dankbar

Kann mir denn keiner dazu helfen?
MissPh!
Office-VBA-Programmiererin


Verfasst am:
28. Jul 2009, 09:36
Rufname:
Wohnort: NRW

AW: Textfeld im Formular soll per VBA Werte anzeigen - AW: Textfeld im Formular soll per VBA Werte anzeigen

Nach oben
       Version: Office 2003

Hallo,
Zitat:
Me!Satznummer = "Teile_01!"
Me!Satznummer.Requery
hier wäre wohl ein Me.Repaint sinnvoller. Doch möglicherweise läuft der Code schneller durch als du schauen kannst. ;)

BTW:
Code:
    While Not rs1.EOF And Not rs1.BOF
        rs1.Delete
        rs1.MoveNext
    Wend
Der Einsatz einer Löschabfrage wäre hier wohl effektiver.
Code:
    CurrentDB.Execute "DELETE * FROM Teile_01"
Und noch etwas: das ständige Öffnen und Schließen von Recordsets sollte sich durch Einsatz mehrerer RecordSet-Objekte vermeiden lassen.
_________________
Gruß MissPh!
Troll88
etwas mehr als Einsteiger


Verfasst am:
29. Jul 2009, 08:33
Rufname:


AW: Textfeld im Formular soll per VBA Werte anzeigen - AW: Textfeld im Formular soll per VBA Werte anzeigen

Nach oben
       Version: Office 2003

schönen Dank...

ich werde es mal austesten Smile
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: Tabelle, Formular, Abfrage...und nun ? 3 Gags 790 29. Aug 2004, 22:05
lothi Tabelle, Formular, Abfrage...und nun ?
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterien aus nem Formular die mich fertig machen!!! 19 Martin von der Bergwiese 2658 24. Aug 2004, 12:53
Lorenz Kriterien aus nem Formular die mich fertig machen!!!
Keine neuen Beiträge Access Tabellen & Abfragen: Formular aus Endlosformular öffnen ? 10 G-Markus 1619 20. Jul 2004, 15:38
Gast Formular aus Endlosformular öffnen ?
Keine neuen Beiträge Access Tabellen & Abfragen: in einem Textfeld letztes Zeichen löschen? 2 mokona.s 1923 19. Jul 2004, 13:24
mokona.s in einem Textfeld letztes Zeichen löschen?
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: Komplexe Beziehungen... wie baue ich mein Formular auf 6 Gast 1867 25. Jun 2004, 14:36
Florianbur Komplexe Beziehungen... wie baue ich mein Formular auf
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen in Formular 1 Sumo_Racer 1092 28. Mai 2004, 21:59
lothi Suchen in Formular
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: bestimmte Spalten anzeigen 4 pm 1223 29. März 2004, 21:19
pm bestimmte Spalten anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Ergebnis einer Abfrage mit VBA im Formularfeld anzeigen 2 AlGol61 1020 29. März 2004, 16:02
AlGol61 Ergebnis einer Abfrage mit VBA im Formularfeld anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage - keine doppelten Werte Anzeigen? 1 Gerd 713 17. März 2004, 12:04
Gerd Abfrage - keine doppelten Werte Anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus zwei Tabellen in einem Formular ohne Unterformul 4 Hippolytus 749 09. März 2004, 15:07
Hippolytus Abfrage aus zwei Tabellen in einem Formular ohne Unterformul
 

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