تبلیغات :
آکوستیک ، فوم شانه تخم مرغی، صداگیر ماینر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 3 از 3

نام تاپيک: جلوگیری از ثبت کد ملی تکراری

  1. #1
    داره خودمونی میشه abo1524's Avatar
    تاريخ عضويت
    Jan 2007
    محل سكونت
    خانه به دوش هستم
    پست ها
    111

    1 جلوگیری از ثبت کد ملی تکراری

    سلام دوستان من یه تکست باکس دارم که به دیتابیس اکسس وصل شده می خوام توی این تکست باکس کد ملی وارد کنم که اگر قبلاً در دیتابیس وجود داشت پیغام شماره ملی تکراری می شود بدهد و از ثبت کد ملی جلوگیری شود ممنون می شوم اگر کسی جواب منو بده.
    خودم این نمونه کد رو پیدا کردم ولی نمی دونم چطور باید ویرایشش کنم که فقط یک تکس باکس چک بشه و همون لحظه هم پیغام تکراری بودن رو بده.


    Private Sub Command1_Click()

    On Error Resume Next

    Dim id&

    id = Val(Adodc1.Recordset!id & "")

    If id > 0 Then
    Adodc2.RecordSource = "SELECT * FROM serch where Id <> " & id & " And name = '" & Text1 & "' And Tell = '" & Text2 & "'"
    Else
    Adodc2.RecordSource = "SELECT * FROM serch where name = '" & Text1 & "' And Tell = '" & Text2 & "'"
    End If
    Adodc2.Refresh

    If Adodc2.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.CancelUpdate
    MsgBox "امکان ثبت اطلاعات تکراري وجود ندارد."
    Else
    Adodc1.Recordset.Update
    End If

    End Sub

    Private Sub Command2_Click()

    Adodc1.Recordset.AddNew

    End Sub

    Private Sub Form_Load()

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\data.mdb;"
    Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\data.mdb;"

    Adodc1.RecordSource = "SELECT * FROM serch"
    Adodc1.Refresh

    End Sub
    Last edited by abo1524; 17-05-2020 at 14:09.

  2. #2
    داره خودمونی میشه abo1524's Avatar
    تاريخ عضويت
    Jan 2007
    محل سكونت
    خانه به دوش هستم
    پست ها
    111

    پيش فرض

    مشاهده 44
    جواب 0

  3. #3
    داره خودمونی میشه abo1524's Avatar
    تاريخ عضويت
    Jan 2007
    محل سكونت
    خانه به دوش هستم
    پست ها
    111

    پيش فرض

    مشاهده 90
    جواب0

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •