先程のだと誤差が出てしまうので >If source.fieldgettext("a") <> "" Then Call source.Refresh ←追加 >Call source.fieldsettext("a",source.fieldgettext("b")) >Call source.save >End If としてください