Office: (Office 2003) Feldnamen als Variable übergeben

R J · 30. Oktober 2006

Hallo an alle,

ich versuche gerade eine Prozedur zu erstellen, mit der ich die Inhalte unterschiedlicher (variabler) Attribute editieren kann. Im Bsp. möchte ich das Feld 'Bemerkungen' der Tabelle 'T_Personen' der aktuellen DB ändern. Für den Aufruf benötige ich demnach eine Variable vom Typ 'Field'. Aber es geht weder so: Code:

'Dim f As Field
'Set f = "Bemerkungen"
'Editiere_Text f, txtBemerkung
'Set f = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

noch so: Code:

'Dim f As Field
'Set f = Bemerkungen
'Editiere_Text f, txtBemerkung
'Set f = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... also ohne Anführungszeichen. Die aufgerufene Prozedur sieht momentan so aus:

Code:

Sub Editiere_Text(Feld As Field, Wert As String)

Dim dbs As Database
Dim rst As Recordset
Dim fld As Field

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("T_Personen")
Set fld = Feld

With rst
.Edit
!fld = Wert
.Update
End With

Set dbs = Nothing
Set rst = Nothing
Set fld = Nothing

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

Funktioniert leider nicht. Ohne Set und mit !Bemerkungen in 'With' (mal abgesehen vom fehlenden Bookmark) ist es aber möglich.
Frage: Ist das überhaupt machbar Feldnamen als Variable zu übergeben und wenn ja wie?

Besten Dank im voraus für Eure Mühe!

:)

Anne Berg · 1. November 2006

Wenn es dir um die Änderung von Daten geht, könnte es folgendermaßen funktionieren: Code:

Sub Editiere_Text(FeldName As String, Wert As String)
' was natürlich eine gewisse Einschränkung ist!
Dim dbs As Database, rst As Recordset

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("T_Personen")

With rst
.Edit
.Fields(FeldName) = Wert
.Update
End With

Set dbs = Nothing
Set rst = Nothing
Set fld = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wobei hier, beim Öffnen einer Tabelle, lediglich der erste Satz willkürlich geändert wird. Sinnvoller wäre da wohl schon eine vorhergehende Selektion des gesuchten Datensatzes oder der Zugriff über eine Abfrage.
Auch könnte man die Datenänderung mit einer Aktualisierungsabfrage erreichen...

R J · 1. November 2006

...lach...

Hi Anne,

schläfst Du denn nie?
Du bist ein Schatz! So simpel... statt rst!Feldname einfach Fields(Feldname) *Smilie Ja ja, Objekte und deren Eigenschaften müßte man kennen...*Smilie

Hast mir sehr geholfen. Danke! Dafür darfst Du auch singen *Smilie

Um den richtigen DS rauszufiltern, daran arbeite ich gerade noch. Bin aber (glaube ich wenigstens) ganz kurz davor.

R J · 1. November 2006

...es funktioniert!

Code:

Sub Editiere_Text(Tabelle As String, Feld As String, Suchbegriff As String, WertNeu As String)

Dim dbs As Database
Dim rst As Recordset
On Error GoTo Fehler
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(Tabelle)

With rst
.MoveLast
.MoveFirst
Do While !Name & ", " & !Vorname Suchbegriff
.MoveNext
Loop
.Edit
.Fields(Feld) = WertNeu
.Update
.Close
End With
Fehler:
Set dbs = Nothing
Set rst = Nothing

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

Dank Deiner Hilfe!

Knaggi · 2. November 2006

Warum durchläufst du das ganze Recordset? Beim Öffnen des Recordset könntest du eine SQL-Anweisung mit einer entsprechenden WHERE-Bedingung verwenden. Dadurch bekommst du nur den (oder die) Datensatz, der der WHERE-Bedingung entspricht.

Gruß
Knaggi

R J · 2. November 2006

Hi Knaggi,

weil das den Dilettanten vom Profi unterscheidet. *frown.gif*
War ja schon froh, das hinbekommen zu haben...
Wie sähe Dein Vorschlag aus?

Anne Berg · 2. November 2006

Nun, wenn du noch etwas optimieren möchtest, könntest du auch eine Aktualisierungsabfrage ausführen.

Beispiel:

Code:

Dim strSQL As String
strSQL = "Update " & Tabelle & " Set " & Feld & " = " & Wertneu & _
" Where [Nachname] & ', ' & [Vorname] = '" & Suchbegriff & "';"
' oder so, wenn Feld vom Typ Text
strSQL = "Update " & Tabelle & " Set " & Feld & " = '" & Wertneu & "'" & _
" Where [Nachname] & ', ' & [Vorname] = '" & Suchbegriff & "';"
CurrentDB.Execute strSQL, dbFailOnError
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

R J · 2. November 2006

Hi Anne,

super, super, super! Ich wusel ja noch nicht so lange in Access herum, aber ich glaube, das gefällt mir. Auch wenn man schon sehr genau hinsehen muß worin der Unterschied zwischen Zahl oder Text liegt *Smilie
Das Schöne ist ja, dass man diese seltsame SQL-Syntax in den Code packen kann, ohne extra eine Abfrage im Abfrageeditor erstellen zu müssen (höchstens, um zu sehen wie sie formuliert werden müßte...*wink.gif*. )
Nochmals Danke an Dich. Von Dir kann man ordentlich was lernen!

Anne Berg · 2. November 2006

Auch wenn man schon sehr genau hinsehen muß ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja, ich meine die Code-Beispiele waren mit der alten Foren-Software lesbarer...
(auch die Zitate, wie ich gerade mal wieder feststellen kann!)

Bin da, wie auch im übrigen, ganz deiner Meinung. *wink.gif*

Office: (Office 2003) Feldnamen als Variable übergeben

Feldnamen als Variable übergeben

Feldnamen als Variable übergeben

Feldnamen als Variable übergeben

Feldnamen als Variable übergeben

Feldnamen als Variable übergeben - Similar Threads - Feldnamen Variable übergeben

Access - Listeneintrag per VBA einem Feldnamen zuweisen

Feldname für Bedingung zusamensetzen

Bedingte Formatierung abhängig vom eigenen Feldnamen

Recordset-Feldname mit Variable verbinden

Feldname in Abfrage per VBA ändern

Feldnamen lassen sich nicht ändern

Einstellung Feld-Name in Office 2013