いつも大変お世話になっております。 フォーム上に「txt素材本数」のテキストボックスがあります。 (テキスト「txtラベル印刷枚数」は「txt素材本数」を入数で割った数量です)

Microsoft Access | Visual Basic36閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

glo********様 お忙し中、御教授有り難うございます。 訂正を致しました。 ①メッセージボックスを削除してみましたが、コマンドボタンが機能しなくなりました。 Private Sub cm印刷_Click() Dim db As Database Dim 選択 As Recordset Dim a As Integer Dim b As Integer Dim c As Integer Set db = CurrentDb Set 選択 = db.OpenRecordset("ラベル選択印刷位置", dbOpenTable) a = [Forms]![ラベル印刷]![txtラベル印刷枚数] b = 0 c = 0 For c = 0 To Abs(Val(Nz(a, 0))) ' c = a + c Next

ThanksImg質問者からのお礼コメント

glo********様 何度も御教授下さり有難うございました。 無事思い通りの動きができるようになりました。 ネットで調べてコードを記述しても中々機能してくれなくて困っておりました。 本当に有難うございました。

お礼日時:7/22 20:21