Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7493 / 9994

←次へ　｜　前へ→


	【5691】Re:封筒の宛名に連続番号打ち出しがしたい...

小僧 - 05/7/26(火) 13:20 -


	引用なし

	パスワード

▼mako さん：
こんにちは。

テーブル：T_Work
　　　　　　　　製品名(テキスト型)
　　　　　　　　製造番号(テキスト型)

フォーム：（適当な名前を）
　　　　　製品名コンボ(コンボボックス：製品名を選べる様に)
　　　　　枚数テキスト(テキストボックス)
　　　　　先頭番号テキスト(テキストボックス)
　　　　　実行ボタン(コマンドボタン)

を用意して頂いて、

実行ボタンの[クリック時]の右にある[...]をクリック　→　[コードビルダ]より

Private Sub 実行ボタン_Click()
Dim SQLCode As String
Dim Seizo As String
Dim I As Long
　　SQLCode = "DELETE FROM T_Work"
　　DoCmd.RunSQL SQLCode
　　
　　For I = 1 To Me.枚数テキスト.Value
　　　　Seizo = Format(Me.先頭番号テキスト.Value + I - 1, "000000")
　　　　SQLCode = "INSERT INTO T_Work (製品名, 製造番号) " _
　　　　　　　　& "VALUES ('" & Me.製品名コンボ.Value & "', '" & Seizo & "')"
　　　　DoCmd.RunSQL SQLCode
　　Next
End Sub

上記コードを記述して頂くと、「T_Work」に連番が入るかと思われます。

実際にはテキストボックスの中身が空白や数字以外だった時のチェック等を
入れないとエラーが多々発生してしまいます。

331 hits

▼

【5619】封筒の宛名に連続番号打ち出しがしたいです mako 05/7/15(金) 13:44