Ahmed_J قام بنشر مايو 16 مشاركة قام بنشر مايو 16 (معدل) السلام عليكم لدي كود في ملف وهو للاستاذ @ابوخليل الله يحفظه لمطابقة العنوان الوظبفي في جدول من خلال النموذج وهو يعمل بصورة جيده اريد التعديل عليه لاظهار اسماء كل الموظفين غير المتطابقة عناوينهم الوظيفية مع درجاتهم في النموذج في حقل نصي اسمه TEXT1 بدلا من البحث في كل سجل على حده لان لو كان عندي 1000 سجل يكون صعب التدقيق عنهم او بالامكان عمل جدول مؤقت لتخزين ذلك تحياتي الموظوع السابق https://www.officena.net/ib/topic/122797-التعديل-على-ملف/page/2/ Test-11.accdb تم تعديل مايو 16 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر مايو 16 مشاركة قام بنشر مايو 16 5 ساعات مضت, Ahmed_J said: اريد التعديل عليه لاظهار اسماء كل الموظفين غير المتطابقة عناوينهم الوظيفية مع درجاتهم في النموذج في حقل نصي اسمه TEXT1 بدلا من البحث في كل سجل على حده لان لو كان عندي 1000 سجل يكون صعب التدقيق عنهم او بالامكان عمل جدول مؤقت لتخزين ذلك تحياتي هل هذا ما تريد .... Test-11.accdb 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر مايو 17 الكاتب مشاركة قام بنشر مايو 17 (معدل) السلام عليكم عاشت ايدك استاذ @ناقل بارك الله فيك كل شيء تمام لكن واجهتني مشكلة عند عمل الكود وهي انا عندي اكثر من 200 سجل بالنموذج والكود يقوم بالتنقل من السجل الاول الى الاخير هل من الممكن استخدام الجدول الذي هو مصدر سجلات النموذج في هذه العملية بدل النموذج تحياتي تم تعديل مايو 17 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر مايو 17 الكاتب مشاركة قام بنشر مايو 17 up رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر مايو 18 الكاتب مشاركة قام بنشر مايو 18 up رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر مايو 18 مشاركة قام بنشر مايو 18 53 دقائق مضت, Ahmed_J said: up تفضل ........................... Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT TP1.ID, TP1.[اسم الموظف], TP1.[الدرجة الوظيفية], TP1.[العنوان الوظيفي] FROM TP1;", dbOpenSnapshot) With rs .MoveLast .MoveFirst Me.text1.AddItem "اسم الموظف" & ";" & "الدرجة" & ";" & "العنوان الوظيفي" For i = 1 To .RecordCount xfld = 0 Call Allfld(rs![العنوان الوظيفي]) If xfld = 0 Then Beep Me.text1.AddItem rs![اسم الموظف] & ";" & rs![الدرجة الوظيفية] & ";" & rs![العنوان الوظيفي] Else End If .MoveNext Next i End With 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر مايو 18 الكاتب مشاركة قام بنشر مايو 18 (معدل) السلام عليكم استاذب العزيز @ناقل الكود لايعمل بصورة صحيحة تحياتي Test-12.accdb تم تعديل مايو 18 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر مايو 18 الكاتب مشاركة قام بنشر مايو 18 up رابط هذا التعليق شارك More sharing options...
أفضل إجابة ناقل قام بنشر مايو 18 أفضل إجابة مشاركة قام بنشر مايو 18 4 ساعات مضت, Ahmed_J said: up جرب كده ..... جديد - نسخة.accdb 1 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر مايو 20 الكاتب مشاركة قام بنشر مايو 20 استاذ @ناقل كل الشكر والتقدير بارك الله فيك كل شيء تمام 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان