مشکل در جستجو

[maxinergreenlee]

با سلام خدمت همه دوستان من سوالی دارم برنامه ای که مشاهده میکنید دارای 4 جستجو می باشد که مشکل در همین جستجو هاست حالا مشکل اینه که وقتی در جستجو رشته کلیک میکنم و وارد قسمت تایپ میشم مثلاً مینویسم * بیو شیمی حالا نه بیو شیمی وجود داره و نه میاره در صورتی که در بانک موجوده و بلعکس وقتی در دانشگاه و یا دوره موارد دیگری رو تایپ میکنم این مشکلات رو داره حالا مشکل از کجای این جستجو هاست الله اعلم .
دوستان محبت اگر کنند و مشکل جستجو رو حل کنند ممنون میشم .
یا علی :عصبانی++::عصبانی++:
لینک دانلود مستقیم:
http://s3.picofile.com/file/7615128602/%D9%86%D9%85%D9%88%D9%86%D9%87.rar.html

[maxinergreenlee]

اگر بنده خدایی حال کرد یه حالی هم به ما بده
یا علی

[maxinergreenlee]

کسی بلد نیست جواب بده

[Abbas Amiri]

سلام
مشکل شما حروف (ک و ی) هست. به پست زیر سری بزنید
http://barnamenevis.org/showthread.php?286460-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%DA%A9%DB%8C%D8%A8%D8%B1%D8%AF-%D9%85%D8%AC%D8%A7%D8%B2%DB%8C-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%AD%D8%B1%D9%88%D9%81-quot-%DB%8C-quot-%D9%88-quot-%DA%A9-quot&p=1395388&viewfull=1#post1395388

[maxinergreenlee]

با سلام برادر عزیز همچنان همون جوری شده مشکل حل نشده

[Abbas Amiri]

سلام
روال زیر را دریک ماژول کپی کنید و ازآن جهت تصحیح حروف یادشده استفاده کنید . بنده انجام دادم وشد


Sub ChangeUnicode(tableName As String)
On Error Resume Next
Dim rs As Recordset
Dim fld As Field
Set rs = CurrentDb.OpenRecordset(tableName)
Do While Not rs.EOF
rs.Edit
For Each fld In rs.Fields
If Not IsNull(fld) Then
fld = Replace(fld, ChrW(1603), ChrW(1705))
fld = Replace(fld, ChrW(1610), ChrW(1740))
End If
Next
rs.Update
rs.MoveNext
Loop
rs.Close
End Sub



طریقه استفاده:

ChangeUnicode "رشته"

[maxinergreenlee]

سلام دوست عزیز
من این توابع رو در یک ماژول کپی کردم و به نام ماژول 2 در برنامه ذخیره کردمش حالا تو برنامه در قسمت جستجو مثلاً جستجو رشته تکنسین فلان باز نشده
سوالم اینه آیا این کد ماژول که فرمودید و من نیز کپی کردمش در برنامه و کجای برنامه باید فراخوانی بشه و چطور عذر خواهی میکنم

[Abbas Amiri]

سلام
ساده ترین روش در ( Immediate Window ( ctrl + G عبارت موردنظر راتایپ کنید + Enter

[Abbas Amiri]

سلام
فایل شما فقط با جدول اصلاح شده رشته :(بعلت محدویت فضا)

[maxinergreenlee]

با سلام ممنون دوست عزیز مشکل حل شد