بسم الله الرحمن الرحيم
ان عضو جديد في المنتدي في الحقيقة أعجبني المنتدي.
عندي سوال هوأن مسوي قاعدة بيانات بأسماء الموظفين لكن المشكلة هي في كود بحث.
أريد أن أكتب رقم الموظف في بحث ثم تظهر لي معلومات عن الموظف.
وشكراااااااااااااااااااااا أرجوا الرد
مع تحياتي عبدالله
بسم الله الرحمن الرحيم
Dim SearchNam As String
SearchNam = InputBox("أدخل إسم الموظف المراد البحث عنه:", "Searching ...")
If SearchNam = "" Then Exit Sub
Data1.RecordSource = "SELECT * FROM TableNam WHERE CusNam ='" & SearchNam & "'"
Data1.Refreshحيث أن TableNam هي اسم الجدول المراد البحث فيه في قاعدة البيانات
و CusNam هو اسم العمود المراد البحث فيه في قاعدة البيانات
وأظن أن الباقي مفهوم إن شاء الله :rolleyes: .
أخي الكريم :
لقد قمت بتحرير عنوان الموضوع و أرجو منك مراعاة قواعد الطرح في المرات القادمة تجنبا لإغلاق الموضوع
المرة دي بس علشان إنت لسه جديد :lol: لكن المرة الجاية هاقفلهولك :lol:
تم تعديل هذه المشاركة بواسطة GHOST2010 في 3 نوفمبر 2005 في 19:48
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
بسم الله الرحمن الرحيم
شكراااااااااااااااا لكم جميعن وان جديد ماتقسون علي :rolleyes:
وشكرااااا لكم مرة أخري
يعطيكم العافية عبدالله :lol:
هذا الموضوع مغلق.