زيادة عدد فى حقل معين

يعنى و البرنامج شغال تدخل كتاب جدبد فيقوم البرنامج يشوف لو الكتاب موجود مسبقا ........... يعمل ايه ؟؟ ممكن تفصيل اكتر

evry1falls كتب:

يعنى و البرنامج شغال تدخل كتاب جدبد فيقوم البرنامج يشوف لو الكتاب موجود مسبقا ........... يعمل ايه ؟؟ ممكن تفصيل اكتر

ايوا اخخى والبرنامج شغل عند ادخال اسم كتاب يختبر فى قاعدة البيانات هل هو موجود ام لا فى حالة موجود يقوم بزيادة عدد نسخ الموجود للكتاب على حسب المدخل

كتبت كود واشتغل معاى هل يوجد كود افضل من هدا

If Text1.Text = "" Then
         MsgBox "please enter book name  ", vbCritical + vbInformation, "alarming"
         Exit Sub
    End If
    If Text3.Text = "" Then
     MsgBox "please enter  author name  ", vbCritical + vbInformation, "alarming"

  If Text16.Text = "" Then
     MsgBox "please enter number of copies ", vbCritical + vbInformation, "alarming"
         Exit Sub
    End If

 If rs.State = 1 Then rs.Close
 Exit Sub
  End If

   rs.LockType = adLockPessimistic
        rs.ActiveConnection = DB
rs.Open " select * from book_info where title_book like '" & Trim(Text1.Text) & "'and author like '" & Trim(Text3.Text) & "'"

     If Not rs.EOF Then
         If MsgBox("you already added this book,do you want add copy from this book", vbYesNo) = vbNo Then Exit Sub
     Text16.Text = Text16.Text + rs!num_copies
     rs!num_copies = Text16.Text
      rs.Update

       MsgBox ("record is done")
       Adodc1.Refresh
       Check1.Enabled = True
     Text1.Text = rs!title_book
     Text2.Text = rs!book_num
     Text3.Text = rs!author
     Text4.Text = rs!edition
    ' Check1.Value = rs!author_other
     Text6.Text = rs!pages
     Text7.Text = rs!price_book
     Text8.Text = rs!num_values
     Text9.Text = rs!title_book
     Text10.Text = rs!na_year
     Text11.Text = rs!author_t
     Text12.Text = rs!nasher_fir
     Text13.Text = rs!nasher_sec
     Text14.Text = rs!translator_name
     Text15.Text = rs!trans_name_t
     Text17.Text = rs!num_part
        rs.Close

سؤال اخر كيف يمكن جعل اداة التشط بوكس تأخد قيمة الحقل المخزن فى الجدول بتاعى