ご教授願います。
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

よろしくお願いします。

> 重複してないかどうかはどう記述していけば宜しいのでしょうか？

Insertする前にSelectかければ、重複してる時にレコードが返ってくると思いますよ。

> > 重複してないかどうかはどう記述していけば宜しいのでしょうか？
>
> Insertする前にSelectかければ、重複してる時にレコードが返ってくると思いますよ。

琴さん、有難うございます。

Dim　chk As ADODB.Recordset　を加え
ss = "select * from TBL where コード = '" & txt(0).Text & "' "
    chk = New ADODB.Recordset
    chk.Open ss
If chk.RecordCount = 0 Then
Ret = MsgBox(・・・
と書き加えたのですが『プロパティの使い方が不正です』と出てしまいました。
記述の仕方をご教授いただけますでしょうか。
よろしくお願いいたします。

>     chk = New ADODB.Recordset

Setが抜けてるからかな？

> >     chk = New ADODB.Recordset
>
> Setが抜けてるからかな？

琴さん：
できました〜〜＾＾
エラーはでなくなりました。

が、重複チェックしてくれてません・・・（泣）
重複ならElse以下を実行してもらいたいのに、明らかに重複なのに
そのままINSERTもされてない常態です。
何か解決方法ありますでしょうか？

> が、重複チェックしてくれてません・・・（泣）
> 重複ならElse以下を実行してもらいたいのに、明らかに重複なのに
> そのままINSERTもされてない常態です。
> 何か解決方法ありますでしょうか？

横からすみません。
ためしに、chk.RecordCountの値をデバッグウィンドウで確認してみてはいかがでしょうか。
（RecordCountが正しくない場合があるようです。ado recordcountでたくさんヒットしますよ。）

一応参考までに
If chk.BOF = True And chk.EOF = True Then
msgbox.....
で重複チェックできると思います。

おーさん
琴さん

有難うございました。
無事に解決いたしました。

また宜しくお願いいたします。