お世話になっております。 ただいま、アクセスＶＢＡにてＤｏ…Ｌｏｏｐの練習をしております。 テキストボックス１に数字を入れ、コマンドボタンを押すと入力した数字が１ずつ引かれる形でテキストボックス２に入るようにしたいです。 （テキストボックス１に「８」→テキストボックス２に「８７６５４３２１」のように） Dim I As Variant I = Me.text1.Value Me.text2.Value = Me.text1.Value Do Until I = 1 I = I - 1 Me.text2.Value = Me.txt2.Value & I Loop で動作そのものはするのですが、doloop前の「Me.text2.Value = Me.text1.Value」を正さないといけないようです。（課題です） これがないと入力された数字そのものが入らなくなってしまうのですが… よろしくおねがいします。
↧