[The_Jackal]

بسم الله الرحمن الرحيم
لو سمحتم أعضاء المنتدي الكرام ..أحتاج الي مساعدة
..أريد كود فيجوال بيسك لزر " بحث " يقوم بالبحث داخل قاعدة بيانات
عبارة عن أجندة تليفون بها مجموعة من أرقام التليفونات حيث أنني أريد
البحث مرة بمعلومية اسم العميل ومرة أخري بمعلومية رقم تليفون العميل
ويقوم بعد ذلك باظهار النتائج داخل نافذة البرنامج الرئيسية وليس في
نافذة جديدة ...
أرجو أن أكون غير مزعج للاعضاء الكرام ...
أسف اذا كانت الرسالة طويلة...
لو لم يكن بها مشقة أرجو ارسال الكود المطلوب الي هذا العنوان..
blue_vestment2*yahoo.com
وشكراااااا مقدما الي هذا المنتدي العبقري واعضائه الكرام ..
محمود عطاالله حامد

[حمزة أحمد]

اليك مثال يمكنك تحميله
من هنا

[The_Jackal]

بسم الله الرحمن الرحيم
أخي العزيز .. للاسف الرابط غير نشط ولم استطع الدخول اليه او حفظه علي الجهاز... شكرااااا مرة أخري
ولو تكرمت يرجي ارسال الرابط مرة اخري ....وسوف اتابع الموضوع

[حمزة أحمد]

السلام عليكم
الملف مرة اخري
http://www.4shared.com/file/111403047/da6f0226/tel.html

[The_Jackal]

بسم الله الرحمن الرحيم
الف شكر أخي العزيز ... وارجو اني لم اسبب اية متاعب لك ..
شكرا مرة اخري علي سرعة استجابتك وهذا ما كنت اتوقعه ...
نلتقي مرة اخري في استفسار اخر

[The_Jackal]

بسم الله الرحمن الرحيم
أخي المهندس او المبرمج أو مصمم الجرافيك او مشرف منتدي الكمبيوتر والبرمجة....(أختر ما تشاء ..)
حمزة أحمد ...أشكرك كثيرا علي هذه الاكواد وعلي هذا البرنامج...
ولكني لي طلب أتمني أن يكون بسيطا وغير متعب لك باي شكل من الاشكال..
وهو شرح بسيط لهذه الاكواد...لهذه الاكواد فقط وبخاصة كود البحث.
شكراااا مقدما ...
*** علي فكرة هذا هو الاستفسار الاخر
محمود عطاالله حامد

[حمزة أحمد]

On Error Resume Next
    Dim mySQL As String, SearchFor As String
    If opName.Value = True Then SearchFor = "Name"
    If opNum.Value = True Then SearchFor = "Tel"
    Data1.RecordSource = "select * from tblTel where " & SearchFor & " like '" & txtSearch.Text & "*'"
    Data1.Refresh
    If Data1.Recordset.RecordCount = 0 Then
        MsgBox "السجل المطلوب غير موجود", vbCritical, "لا توجد نتيجة للبحث"

        Data1.RecordSource = "Select * from tblTel ORDER BY ID"
        Data1.Refresh
    End If

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

If opName.Value = True Then SearchFor = "Name"
    If opNum.Value = True Then SearchFor = "Tel

هنا يري البرنامج هل يريد المستخدم البحث بالاسم ام بالرقم

Data1.RecordSource = "select * from tblTel where " & SearchFor & " like '" & txtSearch.Text & "*'"
    Data1.Refresh

يستدعي البيانات بدلاله ما كتبة المستخدم سواء اكان الاسم او الرقم

If Data1.Recordset.RecordCount = 0 Then
        MsgBox "السجل المطلوب غير موجود", vbCritical, "لا توجد نتيجة للبحث"
        Data1.RecordSource = "Select * from tblTel ORDER BY ID"
        Data1.Refresh

في حالة عدم وجود هذه البيانات

[mbbh]

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