タイトル : Re^3: Catchを通ってしまいます。 投稿日 : 2007/08/09(Thu) 11:01 投稿者 : 大吉末吉
> ありがとうございます。このコードの中に間違いがあるのでしょうか? これって、Modeが「0じゃ無いとき」に「Sql」に何も設定されませんが・・・ > emplCD = Me.TextBox1.Text > emplNM = Me.TextBox2.Text > furigana = Me.TextBox3.Text > If Mode = 0 Then > Sql = "" > Sql &= "INSERT INTO " > Sql &= "KYU " > Sql &= "(" > Sql &= "社員コード" & ", " > Sql &= "社員名" & ", " > Sql &= "フリガナ" & ") " > Sql &= "VALUES " > Sql &= "(" > Sql &= "'" & emplCD & "'" & ", " > Sql &= "'" & emplNM & "'" & ", " > Sql &= "'" & furigana & "'" > Sql &= ")" Else > Sql = "" > Sql &= "UPDATE" > Sql &= " " & "KYU" > Sql &= " " & "SET" > Sql &= " " & "社員コード " & "= " > Sql &= "' " & emplCD & "'" & "," > Sql &= " " & "社員名 " & "= " > Sql &= "'" & emplNM & "'" & "," > Sql &= " " & "フリガナ " & "= " > Sql &= "'" & furigana & "'" & "," > Sql &= " " & "WHERE " & "(" > Sql &= " " & "社員コード" > Sql &= " " & "=" > Sql &= "'" & Mid(CStr(Code), 1, 4) & "'" & ")" > End If の間違いとか・・・ |