۳۰-اردیبهشت-۱۳۸۹, ۱۸:۵۰:۳۳
با سلام
من می خوام از ورود اطلاعات تکراری جلوگیری کنم در قسمت عمومی کد زیرو نوشتم
بعد کد با کد زیر فراخوانیش کردم
اما جواب نمی ده
من می خوام از ورود اطلاعات تکراری جلوگیری کنم در قسمت عمومی کد زیرو نوشتم
کد:
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