Ich möchte nach aktualisierung eines kombofeldes, dass access in ein anderes ungebundenes feld einen zugehörigen tabellen wert reinschreibt. wie lautet der vba code dafür weiß dass jemand mal schnell?

genauer:

Kombofeld: Mitarbeiternr. ausgewählt.

--> schreibe Name des Mitarbeiters aus tabelle benutzer in das feld

"benutzer-name-feld"

Kennt sich da jemand aus? irgendwie mit DoCmd.RunSQL oder so oder????

thx4urhlp

Hallo,

Du must bei der Eigenschaft Combobox On Change oder so folgenden Code einfügen.

Dim Datenbank As Database

Dim Tabelle As Recordset

Dim i, Anzahl As Variant


Set Datenbank = CurrentDb

Set Tabelle = Datenbank.OpenRecordset("Tabelle", dbOpenTable)


Anzahl = Tabelle.RecordCount 'Anzahl der Datensätze in der Tabelle

Tabelle.MoveFirst


If Anzahl <> 0 Then

For i = 1 To Anzahl

    If Tabelle!Mitarbeiternr = Kombofeld Then

             benutzer-name-feld = Tabelle!Mitarbeiternr

             i = Anzahl

    End If

Tabelle.MoveNext

Next i

End If


Tabelle.Close

Datenbank.Close

[/CODE]

Das wäre eine Möglichkeit. Es gibt bestimmt noch elegantere Methoden.


Frank

danke erstmal. Das Problem ist jetzt nur noch, dass er nicht den Namen sondern nochmal die Mitarbeiternummer in das Name Feld schreibt. Wie stelle ich einen Bezug auf den Namenseintrag her?

Er soll doch den Nachnamen z.B. in das feld benutzer-name-feld eintragen. :confused: :confused: :confused:

Im Übrigen ist es sehr interessant zu wissen, dass "-" in tabellennamen nicht von VBA akzeptiert werden, da sie als arithmetisches Minus gewertet werden. In meinem Fall dann benutzer minus name minus feld. Klasse. VBA macht Freude.

thx4urhlp:confused:

alles i.O. geht prima. handelte sich um einen winzigen Schreibfehler *koppschüttel* Kinderkrankheiten im Programmiererdasein.. jaja......

tausend dank an alle