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

شوف التعديل

ان شاء الله يعجبك

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

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

حياك الله اخوي

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

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

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

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم

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

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

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

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

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

ارجو الافادة

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

مشكور اخي واسف على ازعاج