الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار عن كيفية عمل البحث

بدأه HARD DREAM في 22 مايو 2008 · 5 رد · 2,471 مشاهدة · في قسم أرشيف الاكواد والمكتبات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انا عضوه جديده في هذا المنتدى الاكثر من رائع الذي اعجبني في الحقيقه تفاعل الاعضاء فيه

ولدي سؤال اتمنى ان اجد بين ايديكم الاجابه..

اريد ان اعمل قاعدة بيانات لجامعة واريد ان ادخل اسم الطالب وتظهر لي البيانات الخاصه فيه؟؟؟

ولكم مني جزيل الشكر

#2

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

أهلا بك .. أختي الفاضلة

أعملي القاعدة وارفعيها للمنتدى وسنساعدك في

ايجاد الكود المناسب للبحث إن شاء الله

#3

شكرا لك اخي على تفاعلك وساقوم باذن الله بعمل القاعده ورفعها واكررلك شكري

#4

انا اريد ان اسأل انا عملت جدول للسجل الاكاديمي واريد وضع حقل(عدد الساعات المحتسبه) فكيف اجعله يضع مجموع عدد الساعات لكل مقرر فلي هذا الحقل؟؟

#5

السلام عليكم 

بعد التحيه لو سؤال عن كيفية البحث عن طريق مربع غير منظم مثلا ( عندي معلومات عامه عن اي شخص ) رقم id h او الاسم او اي شيء اخر 

واريد البحث عنها عن طريق مربع النص الغير منظم بسرعه ..

عملت الكود لكنه لم يعمل بكفاءه ..

امل التكرم بالنظر في هذا الاستفسار ولكم جزيل الشكر ...

 

 

Private Sub Text24_Change()
Dim ct As String * 1
  Dim ss As String * 1
 
  'On Error Resume Next
 
  ct = """"
  ss = "*"
 
  Text24.Tag = Text24.Text
 RecordSource = "SELECT * FROM [genint] WHERE[genint].[id]LIKE " & ct & ss & (Nz(ID.Tag)) & ss & ct & ""
 
  If RecordsetClone.RecordCount = 0 Then
    Detail.Visible = False
    RecordSource = ""
  Else
    Detail.Visible = True
  End If
 
 Text24 = Text24.Tag
 Text24.SetFocus
  SendKeys "{f2}"
End Sub
علما بان الاوفيس 2007 الكود يعمل على اوفيس 2003 ولكن 2007 لم يعمل عليه 
#6
memo999 كتب:

 

السلام عليكم 

بعد التحيه لو سؤال عن كيفية البحث عن طريق مربع غير منظم مثلا ( عندي معلومات عامه عن اي شخص ) رقم id h او الاسم او اي شيء اخر 

واريد البحث عنها عن طريق مربع النص الغير منظم بسرعه ..

عملت الكود لكنه لم يعمل بكفاءه ..

امل التكرم بالنظر في هذا الاستفسار ولكم جزيل الشكر ...

 

 

Private Sub Text24_Change()
Dim ct As String * 1
  Dim ss As String * 1
 
  'On Error Resume Next
 
  ct = """"
  ss = "*"
 
  Text24.Tag = Text24.Text
 RecordSource = "SELECT * FROM [genint] WHERE[genint].[id]LIKE " & ct & ss & (Nz(ID.Tag)) & ss & ct & ""
 
  If RecordsetClone.RecordCount = 0 Then
    Detail.Visible = False
    RecordSource = ""
  Else
    Detail.Visible = True
  End If
 
 Text24 = Text24.Tag
 Text24.SetFocus
  SendKeys "{f2}"
End Sub
علما بان الاوفيس 2007 الكود يعمل على اوفيس 2003 ولكن 2007 لم يعمل عليه 

 

وين المشرفين ؟؟؟؟؟ الرجاء الرد .

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…