Office: (Office 2016) Textfelder aus eine Formular in eine Fremdtabelle übertragen

ass56 · 21. September 2020

Hallo zusammen,

ich habe Berarbeitungsformular der sich auf eine Abfrage (Tabelle1) bezieht und einen Datensatz aus der Abfrage im Detailansicht darstellt.

Ich möchte aus der Berarbeitungsformular, bestimmte gebundene Felder in der Tabelle2 aktualsieren bzw. überschreiben.

Ich benutze folgende Code dafür:
Code:

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("Tabelle2")
If Not rs.EOF Then
rs.FindFirst "[ID] = " & Me![ID]
rs.Edit
rs![Feld1] = Me!txtFeld1
rs![Feld2] = Me!txtFeld2
rs.Update
End If
rs.Close
Set rs = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Als Ereignis habe ich ein Button "Speichern und schliessen"

Die Werte aus den Feldern werden aber leider nicht übertragen.

Was mach ich hier falsch?

Danke für die Mühe im Voraus!

:)

maikek · 23. September 2020

Moin,
dass das Ereignis auch wirklich mit dem Button verbunden ist und ausgelöst wird setze ich mal voraus.
Bau mal nomatch ein:
Code:

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("Tabelle2")
If Not rs.EOF Then
rs.FindFirst "[ID] = " & Me![ID]
if rs.nomatch then
msgbox "Nichts gefunden."
Else
rs.Edit
rs![Feld1] = Me!txtFeld1
rs![Feld2] = Me!txtFeld2
rs.Update
End if
End If
rs.Close
Set rs = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

ebs17 · 23. September 2020

Einfacher:
Code:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset( _
"SELECT Feld1, Feld2 FROM Tabelle2 WHERE ID = " & Me.ID, _
dbOpenDynaset)
With rs
If .EOF Then
Debug.Print "kein Treffer"
Else
.Edit
.Fields("Feld1") = Me.txtFeld1
.Fields("Feld2") = Me.txtFeld2
.Update
End If
.Close
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Filtern geht schneller als Suchen.

ass56 · 23. September 2020

Hallo Maike,

das klappt immer noch nicht.
Ich habe das Ereignis auf BeforeUpdate umgestellt funktioniert auf nicht.

Das ist mein Code:
Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
If MsgBox("Änderungen übernehmen?", vbYesNo + vbExclamation + vbDefaultButton1, "Speichern der Daten?") = vbNo Then
Me.Undo
Exit Sub
Else

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Tabelle2")
If Not rs.EOF Then
rs.FindFirst "[ID] = " & Me![ID]
If rs.NoMatch Then
MsgBox "Nichts gefunden."
Else
rs.Edit
rs![Feld1] = Me!txtFeld1
rs![Feld2] = Me!txtFeld2
rs.Update
End if
End If

rs.Close
Set rs = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es kommt bei rs.FindFirst "[ID]" = " & Me"[ID] ein Fehlermeldung:
Laufzeitfehler '3251'. Opertion wird für diesen Objekttyp nicht unterstützt.

Was mache nach deine Meinung falsch?

Danke und beste Grüße!

markusxy · 23. September 2020

In der Hilfe steht woran es liegt.
Einfach mal aufmerksam lesen.

Edit:
Grundsätzlich ist es aber grauenvoll was du machst.
Orientiere dich am Beispiel von Eberhard.

maikek · 23. September 2020

Oder ganz ohne Recordset:
Code:

dim strSQL as String
strSQL = "UPDATE Tabelle2 SET Feld1 = '" & Me.txtFeld1 & "', Feld2 = '" & Me.txtFeld2 & "' WHERE ID = " & Me.ID
Currentdb.Execute strSQL, dbFailOnError
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

ass56 · 7. Januar 2021

von markusxy

In der Hilfe steht woran es liegt.
Einfach mal aufmerksam lesen.

Edit:
Grundsätzlich ist es aber grauenvoll was du machst.
Orientiere dich am Beispiel von Eberhard.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wow Schlaumeier danke dir

markusxy · 7. Januar 2021

von ass56

Wow Schlaumeier danke dir
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gerne, Leute die lesen habens einfach besser *grins

ass56 · 7. Januar 2021

von markusxy

Gerne, Leute die lesen habens einfach besser *grins
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich nix lesen, ich ausländer *Smilie))

ass56 · 24. September 2020

Hallo zusammen,

ich habe meine Fehler gefunden. Fehler war, dass die ID in eine Tabelle als Textfeld und in der andere als Zahl definiert habe.

Mega doof und peinlcih *frown.gif*

Danke für die Unterstützung Leute.

Office: (Office 2016) Textfelder aus eine Formular in eine Fremdtabelle übertragen

Textfelder aus eine Formular in eine Fremdtabelle übertragen

Textfelder aus eine Formular in eine Fremdtabelle übertragen

Textfelder aus eine Formular in eine Fremdtabelle übertragen

Textfelder aus eine Formular in eine Fremdtabelle übertragen

Textfelder aus eine Formular in eine Fremdtabelle übertragen - Similar Threads - Textfelder Formular Fremdtabelle

Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?

Schriftart im Formular

Textfeld in Formular mit Daten aus anderer Tabelle füllen

Erstellen eines Textfelds in einem Formular, das einen Wert in einer Tabelle nachschlägt

Hinzufügen eines Textfeld-Steuerelements zu einem Formular oder zu einem Bericht

Zählen (Count) im Textfeld des Formular

In Word automatisch Felder ausfüllen