Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bestimmte Felder e. Datensatzes duplizieren + Zusatzfelde
zurück: Problem beim Sortieren nach einem Datumsfeld im UFo... weiter: Formularfeld mit Bedingung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
adular
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Sep 2011, 11:10
Rufname:

Bestimmte Felder e. Datensatzes duplizieren + Zusatzfelde - Bestimmte Felder e. Datensatzes duplizieren + Zusatzfelde

Nach oben
       Version: Office 2010

Hi,

ich möchte beim Kopieren von Datensatzfeldern in einen neuen Datensatz (über Formular) andere Felder mit festgelegten Werten befüllen. Das Kopieren soll automatisch 9mal durchgeführt werden. Dabei sollen 9mal unterschiedliche Festwerte zusätzlich eingetragen werden.
Also der Basiscode ist mir schon bekannt:
Code:
    Dim strFeld1 As String
    Dim strFeld2 As String
   
    'Felder in Variablen speichern
    strFeld1 = Me!feld1
    strFeld2 = Me!feld2
    ' zu neuem DS gehen
    DoCmd.RunCommand acCmdRecordsGoToNew
    'Textfelder aus Variablen füllen
    Me!feld1 = strFeld1
    Me!feld2 = strFeld2


Jetzt habe ich aber 2 Felder die nacheinander immer wie folgt befüllt werden sollen:

strFeld3 60 strFeld4 F
strFeld3 66A strFeld4 G
strFeld3 66B strFeld4 F
strFeld3 74A strFeld4 G
strFeld3 74B strFeld4 F
strFeld3 84A strFeld4 G
strFeld3 84B strFeld4 F
strFeld3 96 strFeld4 G
strFeld3 120 strFeld4 F


Ich hoffe mir kann jemand Helfen. Danke
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Sep 2011, 16:41
Rufname:
Wohnort: NRW


AW: Bestimmte Felder e. Datensatzes duplizieren + Zusatzfeld - AW: Bestimmte Felder e. Datensatzes duplizieren + Zusatzfeld

Nach oben
       Version: Office 2010

Hi,

das könntest folgendermaßen lösen:
Code:
Dim i As Integer
For i = 1 to 9
    ' zu neuem DS gehen
    DoCmd.RunCommand acCmdRecordsGoToNew
    'Textfelder aus Variablen füllen
    Me!feld1 = strFeld1
    Me!feld2 = strFeld2
    Select Case i
    Case 1
        Me!feld3 = "60"
        Me!feld4 = "F"
    Case 2
        Me!feld3 = "66A"
        Me!feld4 = "G"
    Case 3
   
    ' usw.

    End Select
Next i
 

_________________
Gruß MissPh!
adular
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Sep 2011, 17:35
Rufname:

AW: Bestimmte Felder e. Datensatzes duplizieren + Zusatzfeld - AW: Bestimmte Felder e. Datensatzes duplizieren + Zusatzfeld

Nach oben
       Version: Office 2010

Ich habe folgenden Code probiert:

Code:

Private Sub Befehl92_Click()
    Dim i As Integer
    For i = 1 To 9
    Dim Wettkampfdatum As String
    Dim Heimverein As String
    Dim Gastverein As String
   
    'Felder in Variablen speichern
    Wettkampfdatum = Me!Wettkampfdatum
    Heimverein = Me!Heimverein
    Gastverein = Me!Gastverein

    ' zu neuem DS gehen
    DoCmd.RunCommand acCmdRecordsGoToNew

    'Textfelder aus Variablen füllen
    Me!Wettkampfdatum = Wettkampfdatum
    Me!Heimverein = Heimverein
    Me!Gastverein = Gastverein
    Select Case i
    Case 1
        Me!Stilart_kurz = "G"
        Me!Gewichtsklasse = "60"
    Case 2
        Me!Stilart_kurz = "F"
        Me!Gewichtsklasse = "66A"
    Case 3
        Me!Stilart_kurz = "G"
        Me!Gewichtsklasse = "66B"
    Case 4
        Me!Stilart_kurz = "F"
        Me!Gewichtsklasse = "74A"
    Case 5
        Me!Stilart_kurz = "G"
        Me!Gewichtsklasse = "74B"
    Case 6
        Me!Stilart_kurz = "F"
        Me!Gewichtsklasse = "84A"
    Case 7
        Me!Stilart_kurz = "G"
        Me!Gewichtsklasse = "84B"
    Case 8
        Me!Stilart_kurz = "F"
        Me!Gewichtsklasse = "96"
    Case 9
        Me!Stilart_kurz = "G"
        Me!Gewichtsklasse = "120"
    End Select
    Next i
   
End Sub


Leider zeigt er beim Befüllen der Felder "Stilart_kurz" einen Fehler an!
Die 9mal zu befüllenden Felder sind im Formular DropDown Felder, vielleicht hats was damit zu tun. Die einzutragenden Daten sind aber Inhalt vom jeweiligen DropDown-Feld.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Sep 2011, 19:38
Rufname:
Wohnort: NRW


AW: Bestimmte Felder e. Datensatzes duplizieren + Zusatzfeld - AW: Bestimmte Felder e. Datensatzes duplizieren + Zusatzfeld

Nach oben
       Version: Office 2010

Hallo,

beschreibe bitte die DropDown-Felder genauer: Woraus besteht die Datensatzherkunft, welches ist die gebundene Spalte?
Und wie lautet die Fehlermeldung, die du bekommst?

BTW:
Deklarationen gehören in den Prozedurkopf und nicht mitten in den Code, schon gar nicht in eine Schleife.
Das macht zwar nichts, aber das macht man einfach nicht. Wink

Und die FOR..-Zeile setzt du bitte an dieselbe Stelle wie ich es gezeigt hatte, vor den DoCmd-Befehl.

_________________
Gruß MissPh!
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: Abfrage: Verknüpfung von 3 Tabellen, einige Felder leer 1 Gast655 1438 16. Feb 2006, 09:27
rita2008 Abfrage: Verknüpfung von 3 Tabellen, einige Felder leer
Keine neuen Beiträge Access Tabellen & Abfragen: Ja-Nein Felder in Abfragen 1 stargazer01 830 20. Jan 2006, 15:31
Lamer² Ja-Nein Felder in Abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung Anzahl von Tagen aus 2 Spalten eines Datensatzes 1 Redferne 1025 16. Jan 2006, 09:03
stpimi Berechnung Anzahl von Tagen aus 2 Spalten eines Datensatzes
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: 2 Felder ein Ausgabewert 7 Halmsi 719 14. Nov 2005, 15:07
Halmsi Abfrage: 2 Felder ein Ausgabewert
Keine neuen Beiträge Access Tabellen & Abfragen: "Zu viele Felder definiert" 1 arith 743 10. Nov 2005, 16:22
stpimi "Zu viele Felder definiert"
Keine neuen Beiträge Access Tabellen & Abfragen: Zusätzliche Felder für Warenausgang 1 umbroboy 830 30. Okt 2005, 22:43
stpimi Zusätzliche Felder für Warenausgang
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrere Tabellen mit gleichen Felder verknüpfen???? 3 SCHNEEMANN999 1568 06. Sep 2005, 15:18
rita2008 Mehrere Tabellen mit gleichen Felder verknüpfen????
Keine neuen Beiträge Access Tabellen & Abfragen: Felddatentyp Ja/Nein, wieviele Felder %tual Ja? 1 Rantanplan 1143 05. Sep 2005, 16:10
Gast Felddatentyp Ja/Nein, wieviele Felder %tual Ja?
Keine neuen Beiträge Access Tabellen & Abfragen: Felder automatisch füllen, ähnlich Standardwert 1 CasyoPaya 1247 06. Jul 2005, 09:51
stpimi Felder automatisch füllen, ähnlich Standardwert
Keine neuen Beiträge Access Tabellen & Abfragen: Zwei Felder in einem zusammenfassen? 2 santana 835 06. Jun 2005, 22:39
santana Zwei Felder in einem zusammenfassen?
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Daten von Excel nach Access 2 andy1986 699 06. Jun 2005, 09:41
andy1986 Bestimmte Daten von Excel nach Access
Keine neuen Beiträge Access Tabellen & Abfragen: bestimmte Daten per SQL in Listenfeld anzeigen lassen 0 kugelschreiber 1158 31. Mai 2005, 16:30
kugelschreiber bestimmte Daten per SQL in Listenfeld anzeigen lassen
 

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