Thema Datum  Von Nutzer Rating
Antwort
Rot access vba daten von feld_A nach feld_B kopieren
 26.11.2009 10:21:17 Klaus
NotSolved

Ansicht des Beitrags:
Von:
Klaus		 Datum:
26.11.2009 10:21:17		 Views:
1423		 Rating:
     
Antwort:
  Ja
Thema:
access vba daten von feld_A nach feld_B kopieren
Hallo,
ich möchte mittels vba-makro die datensätze von feld_A nach feld_B kopieren - zunächst mal kein problem.

ABER:

in feld_B sollen die Datensätze um eine Zeile nach unten versetzt (1. Eintrag soll 0 sein) eingefügt werden. Mir fehlt da der nötige Denkanstoß.
Hier mal der Code fürs einfache Kopieren:
___________________________________________________________________
Sub complete()

' # ################
' ## # #
'# # # Feld Anfügen #
' # # #
' # # ################

Dim DBS As DAO.Database
Dim FeldDef As TableDef
Dim Feld As Field

On Error GoTo fehler

'Datenbank öffnen
Set DBS = CurrentDb

'neues Feld einfügen (name = feld_B, Format = double)
Set FeldDef = DBS.TableDefs!xxxxx
Set Feld = FeldDef.CreateField("feld_B")
Feld.Type = dbDouble
FeldDef.Fields.Append Feld

' ## ####################
'# # # #
' # # Inhalte kopieren #
' # # #
'#### # ####################

Dim rs As DAO.Recordset

'Inhalt von "feld_A" nach "feld_B" kopieren -> um eine Zeile nach unten versetzt
Set rs = DBS.OpenRecordset("xxxxx", dbOpenDynaset)

With rs
.MoveFirst

Do Until rs.EOF
rs.Edit
rs.Fields("feld_B").Value = rs.Fields("feld_A").Value
rs.Update
.MoveNext
Loop
.Close
End With
Exit Sub

fehler:
MsgBox Err.Number & " " & Err.Description

End Sub
__________________________________________________________________
Wie gesagt, ich krieg das nicht hin - die Datensätze in feld_B erst ab der 2. Zeile einzufügen, wobei gleichzeitig für Zeile 1 der Wert 0 gesetzt werden soll.

Wäre toll, wenn mir da jmd. mit Rat helfen könnte.
Vielen Dank vorab!

Klaus.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot access vba daten von feld_A nach feld_B kopieren
 26.11.2009 10:21:17 Klaus
NotSolved