タイトル : 重複チェック 投稿日 : 2009/01/26(Mon) 13:57 投稿者 : nao
ご教授願います。 VB初心者です。 VB6.0を使用しています。 データを追加した際に、コードに重複があれば MsgBoxに”重複しています”と表示させたいのですが どこへどう記述していいのかわからず、質問させて頂いております。 重複してないかどうかはどう記述していけば宜しいのでしょうか? Private Sub cmdUp_Click() On Error Resume Next Dim Ret As Integer Ret = MsgBox("コード " & txt(0).Text & " を追加します。", vbYesNo + vbInformation, "追加") If Ret = vbYes Then ss = "Insert Into TBL VALUES( '" & txt(0).Text & "' , '" & txt(7).Text & "','' ) " Unload Form1 End If よろしくお願いします。 |