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

مثال للشرح

مغلق
بدأه acazim في 7 فبراير 2008 · 1 رد · 509 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الاخوة الاكرم

السلام عليكم

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

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

الرجاء من الاخوة الاعضاء شرح الطريقة التى صمم بها الازرار

وعند فتح العلاقات لا ارى الجداول مع الربط بالعلاقات كيف تم الاخفاء

الرجاء من الاخوة الشرح الدقيق حتى تعم الفائدة

___.rar

#2

أخي الغالي

acazim

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

أمثلة البحث كثيرة جدا جداً بالمنتدي

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

ثانياً : - بخصوص طريقة البحث المتبعة في المثال المرفق تستند الي هذا الكود

Dim ct As String * 1
  Dim ss As String * 1

  On Error Resume Next

  ct = """"
  ss = "*"

  Me.Fined_name.Tag = Me.Fined_name.Text
  Me.RecordSource = "SELECT * FROM hatef WHERE hatef.names LIKE " & ct & ss & (Nz(Me.Fined_name.Tag)) & ss & ct & ""
  If Me.RecordsetClone.RecordCount = 0 Then
	Me.Detail.Visible = False
	Me.RecordSource = ""
  Else
	Me.Detail.Visible = True
  End If

  Me.Fined_name = Me.Fined_name.Tag
  Me.Fined_name.SetFocus
  SendKeys "{f2}"

وهذا الكود يتعبر طريقة من ضمن مئات الطرق الخاصة بالبحث

ثالثاً : -

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

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

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 7 فبراير 2008 في 13:28

certifiedj.jpg

 

 

Image Hosted by ImageShack.us

هذا الموضوع مغلق.

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