ابو ياسين المشولي قام بنشر سبتمبر 10, 2018 قام بنشر سبتمبر 10, 2018 اخواني الاعزاء كان لدي نموذج مصمم 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 1
ابو ياسين المشولي قام بنشر سبتمبر 10, 2018 الكاتب قام بنشر سبتمبر 10, 2018 هذا فيديو للمشكلة وهذا في الاصدار الول مافيه اي مشكلة
Shivan Rekany قام بنشر سبتمبر 11, 2018 قام بنشر سبتمبر 11, 2018 (معدل) 23 ساعات مضت, ابو ياسين المشولي said: كان لدي نموذج مصمم 2003 اكسس وعند نقله الى 2010 لم يعمل الكود وكان الكود هكذا السلام عليكم ورحمة الله وبركاته ليس هنالك المشكلة في الكود الكود بيعمل عمله بشكل صحيح لكن السبب عدم الاستجابة بيرجع الى اعدادات الاوفيس عندك قم بعمل هذا كما مبينة في الصورة اي الغي علامة صح امام قاعدة بيانات هذه للعلم اخذت الصورة من هذا الرابط تم تعديل سبتمبر 11, 2018 بواسطه Shivan Rekany 2
ابو ياسين المشولي قام بنشر سبتمبر 12, 2018 الكاتب قام بنشر سبتمبر 12, 2018 20 ساعات مضت, Shivan Rekany said: السلام عليكم ورحمة الله وبركاته ليس هنالك المشكلة في الكود الكود بيعمل عمله بشكل صحيح لكن السبب عدم الاستجابة بيرجع الى اعدادات الاوفيس عندك قم بعمل هذا كما مبينة في الصورة اي الغي علامة صح امام قاعدة بيانات هذه للعلم اخذت الصورة من هذا الرابط تسلم اخي Shivan Rekany بارك الله فيك نعم هو هذا السبب شكرا لك الف شكر 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.