タイトル : Re^4: Catchを通ってしまいます。 投稿日 : 2007/08/09(Thu) 11:15 投稿者 : ddd
> > ありがとうございます。このコードの中に間違いがあるのでしょうか? > > これって、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 > > の間違いとか・・・ すぐのご回答ありがとうございます! どこでしょうか?すいません。初心者です。 |