کمک برای درست کردن جستجو

[vali82]

با سلام
من می خوام از ورود اطلاعات تکراری جلوگیری کنم در قسمت عمومی کد زیرو نوشتم

کد:

Public Sub SerchIp(ByVal VIp As Long)
            Set Cmd = New ADODB.Command
            Set Rst = New ADODB.Recordset
            
            Connect
                
        SQLQuery = "Select * From tblkar where ip='" & VIp & "'"
        
        Cmd.ActiveConnection = Conn
        Cmd.CommandType = adCmdText
        Cmd.CommandText = SQLQuery
        
        Rst.CursorType = adOpenKeyset
        Rst.CursorLocation = adUseClient
        Set Rst = Cmd.Execute
        Set sip = Rst
        
    End Sub

بعد کد با کد زیر فراخوانیش کردم

کد:

Call SerchIp(MIp)
          If sip = MIp Then
              frmErorr.lblTxt.Caption = "  ! ÔãÇÑå ˜ÇÑÈÑí ÔãÇ Ê˜ÑÇÑí ãí ÈÇÔÏ"
              frmErorr.Show
           Else
              Call Insert(MIp, MUName, MUser, MSemat, MPass, MManeg, MTArikh, MTaid, MGozar, MNomrat)
              Call LoadtblKar
              RefreshForm
          End If

اما جواب نمی ده

[far_222000]

یعنی دیتا های تکراری رو هم INSERT می کنه؟ یا اینکه Error می ده؟

[vali82]

متغير sip رو erorr مي ده و وقتي توي تابع اين متغير حذف مي کنم رکوردهاي تکراري رو insert مي کنه

[shedayat]

متغير sip رو erorr مي ده

خوب حق هم داره!!!
تو که توی تابع خودت اصلا sip رو تعریف نکردی!!!
برنامه از کجا باید بفهمه که sip چیه؟؟؟