منتدى مــعـــهــــد طيبـه لعلوم الحاسب الالي

أكبر تجمع لطلاب معهد طيبه والأكثر تميزا

مــــــــــنــتـدى مـــــــــعـــــــــهــــــــــد طـــــــــــيـــــبــــــــــه لـــــــلـــــــحـــــــــاســـــــــــــب الالــــــــــــى أكــبــر تــجــمـــــع للــطـــلـــــبـــــه والأكـــثـــر تــمــيــزا
*****اهــــلا ومـــرحـــبــــــا بـــكـــم في أكــبـــر تــجــمــع لطــلاب مــــعـــــهـــــــد طـــــيـــبـــــه لـــعـــــلــــــوم الــحــاســب الالــــي*****

    كود البحث

    شاطر

    scorpion
    مشرف على المناهج الدراسية لمعهد طيبة
    مشرف على المناهج الدراسية لمعهد طيبة

    عدد المساهمات : 17
    نقاط : 35
    تاريخ التسجيل : 22/11/2009
    العمر : 37

    كود البحث

    مُساهمة من طرف scorpion في الجمعة 18 ديسمبر 2009, 3:41 pm

    Dim x as String
    x = InputBox ("ادخل الاسم")
    x = "'" + x + "'"
    Data1.Recordset.FindFirst " = الاسم" & x
    If Data1.Recordset.NoMatch Then
    MsgBox "الاسم غير موجود"
    End If
    avatar
    elqanas
    المشرف العام على منتدى معهد طيبة
    المشرف العام على منتدى معهد طيبة

    عدد المساهمات : 87
    نقاط : 148
    تاريخ التسجيل : 11/10/2009
    العمر : 27
    الموقع : http://elqanas.ahladalil.com/

    رد: كود البحث

    مُساهمة من طرف elqanas في السبت 19 ديسمبر 2009, 1:55 pm

    شكرا ليك يا دكتور محمد
    avatar
    عــ تـامر حسنى ــاشق
    عضو نشط
    عضو نشط

    عدد المساهمات : 13
    نقاط : 24
    تاريخ التسجيل : 05/11/2009

    رد: كود البحث

    مُساهمة من طرف عــ تـامر حسنى ــاشق في الإثنين 21 ديسمبر 2009, 3:03 pm

    شكرااااااا جداااا يادكتور على المجهود الجميل

      الوقت/التاريخ الآن هو الخميس 18 أكتوبر 2018, 2:10 am