forms - レコードセットのフィールドをループしてフォームに入力しますか？

Question

Forループを使用して、単一のレコードレコードセットのフィールドをループし、フォームのフィールドにデータを入力しようとしています。txtField.value = rs！Fieldを半ダース行入力するよりも、すっきりと再利用できる方法を見つけたいと思っていました。

実行時にコードを見ると、両方の変数に正しい情報が含まれていますが、フォームに表示されていません。どんな助けでも大歓迎です。

Dim strClient As String
Dim rsClient As dao.Recordset
Dim tfield As String
Dim ffiend As String
Dim fld As dao.Field

Set dbs_Current = CurrentDb()

strClient = "Select * from tblClient where pk_client_id = " & gbl_Client_ID

Set rsClient = dbs_Current.OpenRecordset(strClient)

For Each fld In rsClient.Fields
    On Error Resume Next
    tfield = "txt" & fld.Name & ".value"
    ffield = "rsClient!" & fld.Name
    tfield = ffield

Next fld