• 0
ابوالذهب

مطلوب التعديل في خاصية البحث

سؤال

8 إجابة على هذا السؤال .

  • 0

الله يعطيك العافيه اخوى هذا المطلوب ومشكور الف

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي ممكن طلب بسيط

ابي كود للفيجوال بسك بحث يكون الاستعلام الاسم الاول والثاني كود يكون فيه Name وFather

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

يعني انا بنيت لك استعلام اسمة qrySaerch تجدة في الاستعلامات وتجد الشروط او المعايير اللازم توفرها

بالاستعلام qrySaerch كان المعيار الاول ان يتطابق مربع النص المسمى doo في النموذج المسمى Form1 مع الحقل المسمى Name داخل الاستعلام qrySaerch

والمعيار الثاني ان يتطابق مربع النص المسمى doof في النموذج المسمى Form1 مع الحقل Father داخل الاستعلام qrySaerch

والمعيار الثالث أن يتطابق اما الاسم الاول او الاسم الثاني او كلاهما معا بشرط ان يكون الاسم الاول هو فعلايتبع الاسم الثاني في مربع النص المسمى doof في النموذج المسمى form1 مع الحقل المسمى Expr1 داخل الاستعلام qrySaerch

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

اتمنى لك الفائدة

واي سؤال ...... لاتتردد

تم تعديل بواسطه Nawwaf Alaiyd
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يعطيك العافيه اخي بس انا عني البرنامج عند البحث اعطاني الاسم الاول فقط وهذا الكود

Private Sub Command4_Enter()

On Error GoTo Err_Command4_Enter

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Form6"

stLinkCriteria = "[Name]=" & "'" & Me![Name] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command4_Enter:

Exit Sub

Err_Command4_Enter:

MsgBox "ÚÝæÇÇÇ áíÓ ãæÌæÇ Ýí ÞÇÚÏÉ ÇáÈíÇäÇÊ"

Resume Exit_Command4_Enter:

End Sub

انا ارغب في عمليه البحث بالاسم الاول والثاني معاً من منشي التغيرات البرمجيه مثال (عبدالله احمد) يعطيي جميع الاسماء

علماً انت يعطيك العافيه ماقصرت واسف على الازاعاج

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

لا داعي للتعقيد بالاكواد، انت في غنى عنها بكل بساطة، فالامر جدا بسيط

وهو استخدام شرط يوضع في الاستعلام

Like "*" & ([Forms]![form1].[doo]) & "*"

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

ارفق لك المثال بعد التعديل

ارجو الافادة

مطلوب التعديل في البحث فقط _Ok.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .