مثال للشرح

أخي الغالي

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}"

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

ثالثاً : -

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

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