Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datensätze aus einem UFO ins andere Kopieren
zurück: Autom. Zuordnung weiter: Suchformular - wie geht das? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Panther
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. Mai 2004, 11:41
Rufname:

Datensätze aus einem UFO ins andere Kopieren - Datensätze aus einem UFO ins andere Kopieren

Nach oben
       

Hallo!

Ich habe folgendes Problem:

Ich habe ein HF mit zwei UFOs, zusammen dient alles dazu, Lieferscheine zu schreiben. Im UFO "frmBMIDetailsUFO2" habe ich Artikel angelegt, alle Lieferscheine sollen mit diesen Artikeln ausgefüllt werden.
Mit dem folgenden Code werden Datensätze aus dem UFO "frmBMIDetailsUFO2" in das UFO " frmBMIUnterformular" kopiert. Das funktioniert wunderbar- aber leider nur ein Mal. Wie kann ich erreichen, dass auch der nächste Lieferschein die selben Daten übernimmt? Hier der Code:
Code:
Private Sub uebernehmen_Click()
    Set rst = Me.frmBMIDetailsUFO2.Form.RecordsetClone
    Me.frmBMIUnterformular.SetFocus
    With rst
        Do While Not .EOF
            DoCmd.GoToRecord acActiveDataObject, , acNewRec
            Me.frmBMIUnterformular.Form!LieferNr = Me.CurrentRecord
            Me.frmBMIUnterformular.Form!ArtikelNr = rst!ArtikelNr
            Me.frmBMIUnterformular.Form!Anzahl = rst!Anzahl
            .MoveNext
        Loop
    End With
End Sub

Vielen Dank für die Hilfe!

Viele Grüße!
Torsten
Willi Wipp
Moderator


Verfasst am:
16. Mai 2004, 23:00
Rufname:
Wohnort: Raum Wiesbaden


Re: Datensätze aus einem UFO ins andere Kopieren - Re: Datensätze aus einem UFO ins andere Kopieren

Nach oben
       

Hi Torsten,

ich nehme Mal an, die Lieferscheine befinden sich im Hauptformular (Me).
Dann musst Du den Focus zurueck auf Hauptformular setzen, zum naechsten DS gehen
und dann die Schleife erneut durchlaufen...

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Panther
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Mai 2004, 10:39
Rufname:

AW: Datensätze aus einem UFO ins andere Kopieren - AW: Datensätze aus einem UFO ins andere Kopieren

Nach oben
       

Hi Willi Wipp!

Danke für die Antwort!

Könnte mir jemand den Code dafür angeben? Ich weiß nämlich nicht, an welcher Stelle das stehen müsste...

Vielen Dank!

Viele Grüße!
Torsten
Willi Wipp
Moderator


Verfasst am:
29. Mai 2004, 22:09
Rufname:
Wohnort: Raum Wiesbaden

Re: Datensätze aus einem UFO ins andere Kopieren (II) - Re: Datensätze aus einem UFO ins andere Kopieren (II)

Nach oben
       

Hi Torsten,

ich habe mir das noch einmal angeschaut.
Ist das richtig, das Du der LieferNr die Nummer des aktuellen Datensatzes
aus dem Formular frmBMIDetailsUFO2 uebergibst?
Wieviele Lieferscheine hast Du denn?
Hast Du die Lieferschein-Daten im Hauptformular?
Was soll passieren wenn der Lieferschein bereits Daten hat?
Mehr Input bitte...

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Panther
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2004, 13:59
Rufname:

AW: Datensätze aus einem UFO ins andere Kopieren - AW: Datensätze aus einem UFO ins andere Kopieren

Nach oben
       

Panther als Gast am 01. Jun 2004 um 13:48 hat folgendes geschrieben:
Hallo!

Vielen Dank für die Rückmeldung!

Das HFO hat zwei UFOS, das erste UFO " frmBMIUnterformular" wird zum Erstellen von Lieferscheinen benuzt, die LieferNr wird aus dem Hauptformular ("frmBMI") übernommen, und zwar aus dem Textfeld namens "DatensatzNr" (ist im angegebenen Code noch falsch!).

Das zweite UFO ("frmBMIDetailsUFO2") holt die Daten per Kombinationsfeld aus der Artikel-Tabelle, diese sollen später in den Lieferschein (" frmBMIUnterformular") mit übernommen werden. Da viele gleichartige Lieferscheine geschrieben werden sollen, sollen die Artikel nur einmal im UFO ("frmBMIDetailsUFO2") eingetragen werden müssen und von da aus in das UFO (" frmBMIUnterformular) jedesmal bei neuem Datensatz eingefügt werden. Es sollen aber bei Bedarf auch noch weitere Daten pro Lieferschein eingefügt werden können (das UFO " frmBMIUnterformular" holt ebenfalls die Daten aus der Artikeltabelle ab).

Es soll der jeweils neue Lieferschein mit den Daten aus dem UFO "frmBMIDetailsUFO2" aufgefüllt werden, nicht mehrere Lieferscheine auf einmal (habe mich da falsch ausgedrückt).

Ist ein bisschen schwierig zu erklären...

Bitte teile mir doch mit, welche weiteren Infos Du noch brauchst...

Danke und viele Grüße!
Torsten
Hier noch mal eine Beschreibung des Ablaufs, so, wie ich ihn mir vorgestellt habe:

Das HFO "frmBMI" wir geöffnet, mit "Datensatz neu" soll ein neuer Lieferschein geschrieben werden. Die Lieferscheindetails sollen im UFO " frmBMIUnterformular" stehen. In dieses UFO sollen jeweils die Datensätze übernommen werden können, die im UFO "frmBMIDetailsUFO2" stehen. Also: Formular öffnen, Datensatz neu, übernehmen der Daten aus "frmBMIDetailsUFO2", nächster Lieferschein (Datensatz neu), Daten wieder aus dem UFO "frmBMIDetailsUFO2" übernehmen usw.

Wie muss der angegeben Code geändert werden, so dass bei jedem neuen Datensatz die Daten für das Unterformular aus dem zweiten UFO "frmBMIDetailsUFO2" übernommen werden können (geht bis jetzt nur beim ersten neuen Datensatz)?

Danke und viele Grüße!
Torsten
Panther
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jun 2004, 09:16
Rufname:


AW: Datensätze aus einem UFO ins andere Kopieren - AW: Datensätze aus einem UFO ins andere Kopieren

Nach oben
       

Hallo!

Habe das Problem selbst gelöst, trotzdem vielen Dank für die Bemühungen, Willi Wipp!

Der Code sieht jetzt so aus:

Code:
Private Sub Befehl103_Click()
    Set rst = Me.frmBMIDetailsUFO2.Form.RecordsetClone
    Me.frmBMIUnterformular.SetFocus
    With rst
        Do While Not .EOF
            DoCmd.GoToRecord acActiveDataObject, , acNewRec
           
            Me.frmBMIUnterformular.Form!LieferNr = Me.CurrentRecord
            Me.frmBMIUnterformular.Form!ArtikelNr = rst!ArtikelNr
            Me.frmBMIUnterformular.Form!Anzahl = rst!Anzahl
            .MoveNext
        Loop
    End With
    Requery
End Sub

Viele Grüße und allen eine schöne Woche!
Torsten
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: Datensätze zusammenfassen 1 Tatanka 1122 29. Apr 2005, 14:52
jens05 Datensätze zusammenfassen
Keine neuen Beiträge Access Tabellen & Abfragen: duplikatabfrage, löschen der doppelten datensätze.... 1 nebbio 1490 30. Jan 2005, 16:58
hommy duplikatabfrage, löschen der doppelten datensätze....
Keine neuen Beiträge Access Tabellen & Abfragen: Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info 2 Steve 915 14. Jan 2005, 00:43
Steve Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info
Keine neuen Beiträge Access Tabellen & Abfragen: multiplizieren zweier verschiedener Datensätze 3 Stara 914 13. Jan 2005, 20:36
Skogafoss multiplizieren zweier verschiedener Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze anzeigen? 3 MichaelB 1123 19. Okt 2004, 12:45
lothi Anzahl der Datensätze anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Einmalige Datensätze löschen 18 frankkugler 1616 18. Okt 2004, 15:33
frankkugler Einmalige Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: leere Datensätze löschen 3 umbroboy 2667 07. Okt 2004, 16:51
Skogafoss leere Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: datensätze suchen 13 mr@ 1515 13. Sep 2004, 10:21
meyster datensätze suchen
Keine neuen Beiträge Access Tabellen & Abfragen: 24 felder aus 1 DS in 24 versch. Datensätze kopieren. 3 Mirko 594 30. Jul 2004, 13:55
Willi Wipp 24 felder aus 1 DS in 24 versch. Datensätze kopieren.
Keine neuen Beiträge Access Tabellen & Abfragen: Suche Formel zur Abfrage doppelte Datensätze 2 sklein2405 2828 24. Jun 2004, 09:22
Willi Wipp Suche Formel zur Abfrage doppelte Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: Vertikal abgelegte "Datensätze" in Zeilen umwandel 1 hoschi 481 01. Jun 2004, 20:29
Helge Vertikal abgelegte "Datensätze" in Zeilen umwandel
Keine neuen Beiträge Access Tabellen & Abfragen: Meine Abfrage produziert doppelte Datensätze 3 Charli-Brown60 2006 04. Apr 2004, 18:09
Willi Wipp Meine Abfrage produziert doppelte Datensätze
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps