[fozyaltwel]

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


c = Text12.Text

  "اسم الكتاب"=rs5.Index

  rs5.Seek "=", c

 If rs5.NoMatch Then
     
      MsgBox the book not found, 16, error
  Else
       
      Text1.Text = rs1.Fields(0).Value
          Text2.Text = rs5.Fields(1).Value
           Text3.Text = rs5.Fields(2).Value
           
ط