18-02-15, 12:09 AM
السلام عليكم
ياريت حد يقدر ايجاوب على سؤالي انا طالب ولديا مشروع تخرج لمنظومة مكتبة وعملتها بالفجول بيسك وأستخدمت كود بحت بس ماعرفتش كيف اعمل البحت التقريبي وهذا متال بسيط على عملي .....مشكورين
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
ط
ياريت حد يقدر ايجاوب على سؤالي انا طالب ولديا مشروع تخرج لمنظومة مكتبة وعملتها بالفجول بيسك وأستخدمت كود بحت بس ماعرفتش كيف اعمل البحت التقريبي وهذا متال بسيط على عملي .....مشكورين
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
ط