بحث ب جزء من الكلمة

[ابو ياسين المشولي]

اخواني الاعزاء

كان لدي نموذج مصمم 2003 اكسس

وعند نقله الى 2010

لم يعمل الكود

وكان الكود هكذا

DoCmd.ApplyFilter "", "left([rakm],10)+Left(Nz([goal],0),10)+Left([name],50) Like '*' & [Forms]![selectCustomer]![which2] & '*'"
DoCmd.GoToControl ("SupplierName")
If txtCount = 0 Then
Dim rs ' As DAO.Recordset
Dim Xsearch As String
'الاسم يجب وضعه
If IsNull(which2) = True Then Exit Sub

'بحث لسجل قي الجدول
Set rs = CurrentDb.OpenRecordset("data1", dbOpenDynaset)
'البحث بالاسم المدخل في مربع النص
Xsearch = "[name] = '" & Me![which2] & "'"
rs.FindFirst (Xsearch)

If rs.NoMatch Then
Beep
MsgBox "  المـعـذرة  يـرجـاء  الـتـأكـد .... لا  يـو جـد عـمـيـل  بـهـذا الإسـم : " & Me.which2, , DLookup(" [الاسم_التجاري] ", "بيانات_الشركه") & Space(5) & "  : خـطـاء "
cancel = True
'Else
' فتح النموذج اذا وجد الاسم
'DoCmd.OpenForm "data", , , "[name] = '" & Me.which2 & "'"
End If

Set rs = Nothing

End If

 

[ابو ياسين المشولي]

Database17.accdb

[ابو ياسين المشولي]

للرفع

[ابو ياسين المشولي]

هذا فيديو للمشكلة

وهذا في الاصدار الول مافيه اي مشكلة

 

[ابو ياسين المشولي]

للرفع

[Shivan Rekany]

23 ساعات مضت, ابو ياسين المشولي said:

كان لدي نموذج مصمم 2003 اكسس

وعند نقله الى 2010

لم يعمل الكود

وكان الكود هكذا

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

اي الغي علامة صح امام قاعدة بيانات هذه
للعلم اخذت الصورة من هذا الرابط

 

 

تم تعديل سبتمبر 11, 2018 بواسطه Shivan Rekany

[ابو ياسين المشولي]

20 ساعات مضت, Shivan Rekany said:

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

اي الغي علامة صح امام قاعدة بيانات هذه
للعلم اخذت الصورة من هذا الرابط

 

 

تسلم اخي Shivan Rekany

بارك الله فيك نعم هو هذا السبب

شكرا لك الف شكر