Da ich noch sehr neu bei Euch bin, möchte ich mich erstmal vorstellen.
Ich komme aus OldGermany und arbeite in einem kleinen Unternehmen.
Wohnhaft bin ich im Bundesland Niedersachsen.
Hobbys: Internet (seit 1996), Kajaktouren, Bücher, Natur, Programmieren Webseiten (Bsp.: Habe ich für meine Freundin Liebesgedichte sind wie ein Feuerwerk am Abendhimmel... programmiert!) und Access (Access aber noch Anfänger!)
Nun zu meinem Problem/Frage:
Ich programmiere gerade eine Datenbank, wo man unter anderem
Daten von Tabelle1 in Tabelle2 verschieben muß.
Habe auch einen Code dafür gefunden, aber ich weiß nicht wie man
diesen erweitert.
Das heißt ich verschiebe bis zu 120 Werten (hier als Bsp.:EDatum, ERäumnadelnr und so weiter) von Tabelle1 in Tabelle2.
Das geht so lange bis ein Zeilenumbruch stattfindet, dann nimmt er die
Werte in der nächsten Zeile nicht mehr mit.
Meine Frage: Wie erweitere ich den Befehl so, dass Access auch mit einem Zeilenumbruch arbeitet?
Private Sub Befehl455_Click()
If Me.CurrentRecord <> 0 And IsNull(Me!ID) = False Then
CurrentDb.Execute ("insert into Schrottliste(EDatum,ERäumnadelnr,ELaufendeNummer,Z eichnungsnummer,EAusführung,
ELagernr) Values('" & Me!EDatum & "','" & Me!ERäumnadelnr & "','" & Me!ELaufendeNummer & "','" & Me!Zeichnungsnummer & "','" & Me!EAusführung & "','" & Me!ELagernr & "');")
??Hier müßte die Erweiterung stehen??
CurrentDb.Execute ("delete * from Eingabe where id=" & Me!ID)
MsgBox "Eintrag ins Eingabemenü verschoben",vbInformation, "Achtung"
End If
Me.Requery
End Sub
Dankeschööööön für Eure Hilfe...
Kommentar