كيفية البحث فى قاعدة البيانات بالفيحوال ....

السلام عليكم ورحمة الله...

اخي الكريم..

ماذا فعلت في البرمجة لهذا المشروع...

لماذا يتوقع البعض أن شخصاً ما سوف يقوم بعمل برنامج له؟؟؟؟

اخي الكريم...

أكتب الكود اللي انتي عملته و أعتقد الجميع سوف يساعدك في حالة وجود خطأ ما .. او مقطع لم تستطع حله...

هذا هو المنطق ... اكتب الكود .. ابدأ حالا بدلا من تضيع وقتك في البحث عن قطع وأجزاء قد لا تتطابق مع مشروعك... وأن واجهتك مشكلة ... بأذن الله سيكون لك الحل ..

Private Sub Command1_Click()

prompt = "ادخل الرقم الأكاديمي"

searchstr = InputBox(prompt)

Data1.Recordset.Index = "number"

Data1.Recordset.Seek "=", searchstr

If Data1.Recordset.NoMatch Then

Data1.Recordset.MoveFirst

End If

End Sub

Private Sub Command1_Click()
prompt = "ادخل الرقم الأكاديمي"
searchstr = InputBox(prompt)
Data1.Recordset.Index = "number"
Data1.Recordset.Seek "=", searchstr
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
End If
End Sub

شكراً لك اخوي و لكن أنا قاعد حوالي خمس ساعات عشان هذا الكود.

واتمنى الحل في اقرب وقت ممكن

وشكراً لكم

والسلام عليكم ورحمة الله و بركاته.

السلام عليكم ورحمة الله

اخي الكريم ... ارجو ان لا تغضب... فأني اريد لك الفائدة اكثر من مجرد أجابة!

عندما تكتب انت الكود ... لن يكون من السهل ان تنساه.. وهكذا تعلمنا جميعاً.

على كل حال... هذا التعديل أرجو ان يكون فيه مرادك

Private Sub Command1_Click()
    Prompt = "ادخل الرقم الأكاديمي"
    searchstr = InputBox(Prompt)
    Data1.Recordset.Index = "number"
    Data1.Recordset.Seek "=", searchstr
    If Data1.Recordset.NoMatch Then
        Data1.Recordset.MoveFirst
        MsgBox "No Record found"
    Else
        Text1.Text = Data1.Recordset("Number")
        Text2.Text = Data1.Recordset("Name")
        Text3.Text = Data1.Recordset("WHATEVER FIELDS YOU MAY NEED")
    End If
End Sub

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

السلام عليكم

الاخ Shgaaoi

ارجو مراجعة قواعد المشاركة جيدا

عنوان الموضوع يجب ان يدل على محتواه , وممنوع استخدام عبارات (طلب مساعدة , عاجل,.......)

سيتم تغيير العنوان

وكما قال لك الاخ meynot

اقتباس

أكتب الكود اللي انتي عملته و أعتقد الجميع سوف يساعدك في حالة وجود خطأ ما .. او مقطع لم تستطع حله...

هذا هو المنطق ... اكتب الكود .. ابدأ حالا بدلا من تضيع وقتك في البحث عن قطع وأجزاء قد لا تتطابق مع مشروعك... وأن واجهتك مشكلة ... بأذن الله سيكون لك الحل ..

شكراً لك اخوي meynot على نصيحتك وعلى مساعدتك في حل هذه المشكلة و جزاك الله ألف خير و الله يعطيك على قد نيتك,و آسف على الرد الذي أزعجك ولكنني كنت مستعجل في جلب هذا الكود.

شكراً يا مشرفنا (hanysaad) على التوضيحات التي ذكرتها عند كتابة موضوع وإن شاء الله أكون من الذين يتبعون هذه القواعد بحذافيرها.