テキストボックスに再度値を格納して実行するには？ (ID:109149)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 現在、WindowsXP,Access2000,VB6.0Enterpriseを使って開発をしております。 その中で、MDBにVBのフォーム上から接続してフォーム上から入力した値を基にMDBのテーブルの内容を更新しようとコーディングを行っています。 そのなかで、困った問題が出てきました。 まず、MDBファイルの中に三つのテーブルを作成しました。 １つ目は、在庫トランです。 在庫トラン 品目コード 在庫数量 1 100 2 50 3 60 4 70 次に、売上トランです。 伝票No 品目コード 売上数量 次に品目マスターです。 品目コード 商品名 1 FDD 2 MO 3 CD-R 4 DVD-R 以上三つがテーブルの内容として初期設定したものです。 このなかで、売上トランにはフィールド名しか設定しておりませんが、 それは、VB上で作成する三つのフォーム FrmUriageNyuryoku,FrmUriageShusei,FrmUriageSakujo を実行していくことでレコードの追加、更新、削除が行われるようにコーディングしていくために、初期値は入れておりません。 今コーディングしているFrmUriageNyuryokuです。 'グローバル変数の定義 Option Explicit Dim Cn As ADODB.Connection 'コマンドボタンを押した時の処理。 Private Sub CmdJikko_Click() Dim IntUriageSuryo As Integer Dim StrShohinName As String Dim Rs As ADODB.Recordset Dim SQL As String Dim IntHinmokuCode As Integer IntUriageSuryo = CInt(TxtUriageSuryo.Text) StrShohinName = CStr(TxtShohinName.Text) SQL = "UPDATE 在庫トラン SET 在庫数量 = 在庫数量 - " + CIn(IntUriageSuryo) + "" Set Rs = New ADODB.Recordset End Sub 'コマンドボタンを押した時の処理。 'CmdJikko_Clickよりこちらの処理を先に行います。 Private Sub CmdSansho_Click() Dim StrShohinName As String Dim Rs As ADODB.Recordset Dim SQ As String Dim IntHinmokuCode As Integer Set Rs = New ADODB.Recordset IntHinmokuCode = CInt(TxtHinmokuCode.Text) SQ = "SELECT 品目コード, 商品名 FROM 品目マスター WHERE 品目コー ド = " + CStr(IntHinmokuCode) + "" Call Rs.Open(SQ, Cn, adOpenStatic, adLockOptimistic) If Rs.Fields("品目コード") = CStr(IntHinmokuCode) Then TxtShohinName.Text = Rs.Fields("商品名") Else 'あらかじめ品名マスターに格納されている品名コードとそれに対す 'る商品名がなかったら、テキストボックスに入力した文字列を空文 '字にしてテキストボックスに値を入力する。そして、また、最初か 'らCmdSansho_Clickを呼び出して、処理を実現するための処理。 MsgBox "品目マスターのフィールドには、その品名コードとそれに 対応する商品名がありません。" TxtHinmokuCode = "" Rs.Close Set Rs = Nothing IntHinmokuCode = 0 SQ = "" MsgBox "品目コードのテキストボックスに正しい品目コードを入 力してください。" Call CmdSansho_Click End If Rs.Close Set Rs = Nothing End Sub 'フォーム起動時にデータベースに接続する処理。 Private Sub Form_Load() Set Cn = New ADODB.Connection Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=E:\練習問題\example14\db1.mdb" Cn.Open End Sub この中で、 >MsgBox "品目コードのテキストボックスに正しい品目コードを入力 してください。" の後に、テキストボックスから値を入力させるようにしたいのですが、 どうすればじっこうできるのか悩んでいます。 値を入力させた後にまたCmdSansho_Clickを呼び出して処理を最初 からやりたいと思っています。 >Call CmdSansho_Click もし、教えていただける方がいらっしゃったら助かります。