下記質問Vol.2です

質問

strSQL = "insert into 商品マスタ values(" & txtループ(0).Text & ",'" & _
txtループ(1).Text & "'," & txtループ(2).Text & ")"

strSQL2 = "update 商品マスタ set 商品名=" & "'" & txtループ(1).Text & "'," & "単価=" & _
txtループ(2).Text & " where " & "商品ID=" & txtループ(0).Text

If txtループ(0).Text = "" Then
MsgBox "商品IDに何かを入力してください"
txtループ(0).SetFocus
Exit Sub
End If

If txtループ(1).Text = "" Then
MsgBox "商品名に何かを入力してください"
txtループ(1).SetFocus
Exit Sub
End If

If txtループ(2).Text = "" Then
MsgBox "単価に何かを入力してください"
txtループ(2).SetFocus
Exit Sub
End If

vol.3へ

関連URL:http://www.okweb.ne.jp/kotaeru.php3?q=160999

回答No.1

OKWebAdmin

管理者より：
続きの質問があるのでそちらをご参照下さい

参考URL：

http://www.okweb.ne.jp/kotaeru.php3?q=161004