البحث في نموذج فرعي بشرطين

[shatat]

عند اطلاعي على احد الأمثلة

ورد الى ذهني سؤال

كيف يمكن تحقيق شرطي

الأول من خلال مربع النص الموجود في المثال

الثاني البحث من خلال حقل موجود في النموذج الفرعي فقط (القيمة قائمة نوع الوارد)

ارجو ان اجد اجابة لأن الموضوع مهم لي

المرفقات:

المثال المعدل

المشاركة

تم تعديل نوفمبر 17, 2005 بواسطه shatat

[shatat]

أين أنت يا ابو هادي

[shatat]

ورد الى ذهني سؤال

كيف يمكن تحقيق شرطين في نفس الوقت

الأول من خلال مربع النص الموجود في المثال

الثاني البحث من خلال حقل موجود في النموذج الفرعي فقط (مربع قائمة "نوع الوارد")

ارجو ان اجد اجابة لأن الموضوع مهم لي

لقد وضعت مثالا في المرفقات

الملفات المرفقة

search_20051116.rar ( 21.54ك ) عدد مرات التنزيل: 7

تم تعديل نوفمبر 17, 2005 بواسطه shatat

[أبو هادي]

السلام عليكم

المثال بعد التعديل باستخدام خاصية الفلترة .

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

تحياتي .

Wared_20051117.rar

تم تعديل نوفمبر 17, 2005 بواسطه أبو هادي

[shatat]

شكرا أبو هادي لقد حلت المشكلة

[shatat]

مرحبا أخي ابو هادي

لقد حاولت ان اطبق هذا المثال على نموذج مثل السابق

ولكن وجدت مشكلة عند اختيار نوع الوارد مثلا يظهر جميع البيانات وليس حسب نوع الوارد

- مصدر البيانات يحتوي على علاقة مع جدول آخر يوجد به نوع الوارد

قد يكون السبب ان مصدر البيانات يحتوي على علاقة (الاستعلام)

ماهو السبب؟

[أبو هادي]

السلام عليكم

لا أستطيع أن أصل إلى السبب هكذا ، فهل تستطيع إرسال النموذج الذي لم يعمل معك ؟.

أعتقد أن القيمة التي تبحث عنها هي لا شيء "" فحاول أن تتأكد من السيطرة على الـ Combo Box .

تحياتي .

[shatat]

الملف هنا

اضغط للتحميل

[أبو هادي]

السلام عليكم

الملف بعد التعديل .

تحياتي .

nn_20051129.rar

[shatat]

السلام عليكم ابو هادي

لقد قمت بتغيير الكود كما ارسلته لي

ولكن الفكرة التي اريد الوصول اليها ان اختار الفترة ثم اقوم بعدة اختيارات عن طريق مربع النص الثاني(CmbFields)

اي اقوم باختيار الفترة الأولى (ثابته) ثم ابحث عن اكثر من موظف بعدة اختيارات (الرقم ، الاسم ، رقم المركز......) واكثر من مرة (للذين عملوا في الفترة الأولى فقط)

وذلك لادخال البيانات للموظفين

ارجو اخي العزيز ان اكون قد اوصلت لك الفكرة

واود ان اشكرك على مجهوداتك في مساعدة اعضاء المنتدى

تم تعديل نوفمبر 30, 2005 بواسطه shatat

[أبو هادي]

السلام عليكم

ولكن وجدت مشكلة عند اختيار نوع الوارد مثلا يظهر جميع البيانات وليس حسب نوع الوارد

اقوم باختيار الفترة الأولى (ثابته) ثم ابحث عن اكثر من موظف بعدة اختيارات (الرقم ، الاسم ، رقم المركز......)

لقد تم التعديل في المثال السابق حسب طلبك .

والمثال يبحث في حقلين في آن واحد كما فهمت من تعليقك الأخير .

أليس هذا المطلوب أم تود شيئا آخرا ؟

تحياتي .

[shatat]

السلام عليكم

نعم هذا هو المطلوب واشكرا جزيل

الا اني لم اعرف الفرق بين الكود السابق والكود الجديد

هل يمكنك التوضيح للفائدة

حيث اني حاولت ان انسخ نفس الكود الموجود على في مربع النص الا انها لم تفلح المحاولة الا بعد استبدال كامل النموذج

[أبو هادي]

السلام عليكم

الأخ shatat .. لا أستطيع الآن العودة إلى الأمثلة ولكن يمكنكم طباعة الكود القديم والكود الجديد ثم المقارنة بينها لا سيما أن الكود كما أتذكر قصير وبالتوفيق .

تحياتي .

[shatat]

لم أجد فرق ؟؟؟؟؟

[أبو هادي]

السلام عليكم

القديم :

Private Sub med_AfterUpdate()
 With Me.work_2.Form
    .Filter = "[period_no]" & " Like '" & Me.period_no & "'"
    .FilterOn = True
  End With
End Sub

Private Sub med_DblClick(Cancel As Integer)
Me.work_2.Form.FilterOn = False
  Me.period_no = Null
End Sub

Private Sub txtSearchText_Change()
 Dim SearchText As String
  Dim FieldName As String
  
  Me.txtSearchText.SetFocus
  SearchText = Nz(Me.txtSearchText.Text, "")
  
  If SearchText <> "" Then
    Select Case Me.OptSearch
      Case 1: SearchText = SearchText & "*"
      Case 2: SearchText = "*" & SearchText & "*"
      Case 3: SearchText = "*" & SearchText
    End Select
  End If
  
  FieldName = "[" & Me.CmbFields & "]"

  Me.work_2.Form.RecordSource = _
     "SELECT * " & _
     "FROM work " & _
     IIf(SearchText = "", "", "WHERE " & FieldName & " Like '" & SearchText & "' ") & _
     "ORDER BY [no_center];"
  
  LastSearchText = Nz(Me.txtSearchText.Text, "")
End Sub

الجديد :

Private Sub med_AfterUpdate()
  With Me.work_2.Form
   '.Filter = "[period_no] Like '" & Me.period_no & "'"
    
    .Filter = "[period_no] Like " & Me.med
    .FilterOn = True
  End With
End Sub

Private Sub med_DblClick(Cancel As Integer)
  Me.work_2.Form.FilterOn = False
 'Me.period_no = Null

 'Me.med = Null
  Me.ActiveControl = Null
End Sub

Private Sub txtSearchText_Change()
 Dim SearchText As String
  Dim FieldName As String
  
  Me.txtSearchText.SetFocus
  SearchText = Nz(Me.txtSearchText.Text, "")
  
  If SearchText <> "" Then
    Select Case Me.OptSearch
      Case 1: SearchText = SearchText & "*"
      Case 2: SearchText = "*" & SearchText & "*"
      Case 3: SearchText = "*" & SearchText
    End Select
  End If
  
  FieldName = "[" & Me.CmbFields & "]"
  
  Me.work_2.Form.RecordSource = _
     "SELECT * " & _
     "FROM work " & _
     IIf(SearchText = "", "", "WHERE " & FieldName & " Like '" & SearchText & "' ") & _
     "ORDER BY [no_center];"
  
  LastSearchText = Nz(Me.txtSearchText.Text, "")

  If Nz(Me.med) <> "" Then Call med_AfterUpdate  '-- إضافة جديدة --'
End Sub

أعتقد أن هناك فرق أخي shatat .

تحياتي .

تم تعديل ديسمبر 12, 2005 بواسطه أبو هادي