التعديل على كود اظهار البيانات غير المتطابقة

[Ahmed_J]

السلام عليكم 

لدي كود في ملف وهو للاستاذ @ابوخليل الله يحفظه لمطابقة العنوان الوظبفي في جدول من خلال النموذج وهو يعمل بصورة جيده

اريد التعديل عليه لاظهار اسماء  كل الموظفين غير المتطابقة عناوينهم الوظيفية مع درجاتهم في النموذج  في حقل نصي اسمه TEXT1

بدلا من البحث في كل سجل على حده لان لو كان عندي 1000 سجل يكون صعب التدقيق عنهم  او  بالامكان عمل جدول مؤقت لتخزين ذلك

تحياتي

الموظوع السابق

https://www.officena.net/ib/topic/122797-التعديل-على-ملف/page/2/

Test-11.accdb

تم تعديل مايو 16 بواسطه Ahmed_J

[ناقل]

5 ساعات مضت, Ahmed_J said:

اريد التعديل عليه لاظهار اسماء  كل الموظفين غير المتطابقة عناوينهم الوظيفية مع درجاتهم في النموذج  في حقل نصي اسمه TEXT1

بدلا من البحث في كل سجل على حده لان لو كان عندي 1000 سجل يكون صعب التدقيق عنهم  او  بالامكان عمل جدول مؤقت لتخزين ذلك

تحياتي

هل هذا ما تريد ....

Test-11.accdb

[Ahmed_J]

السلام عليكم 

عاشت ايدك استاذ @ناقل

بارك الله فيك

كل شيء تمام

لكن واجهتني مشكلة عند عمل الكود وهي انا عندي اكثر من 200 سجل بالنموذج والكود يقوم بالتنقل من السجل الاول الى الاخير

هل من  الممكن استخدام الجدول الذي هو مصدر سجلات النموذج في هذه العملية بدل النموذج 

تحياتي

تم تعديل مايو 17 بواسطه Ahmed_J

[Ahmed_J]

up

[Ahmed_J]

up

[ناقل]

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

 

[Ahmed_J]

السلام عليكم 

استاذب العزيز @ناقل

الكود لايعمل بصورة صحيحة 

تحياتي

 

Test-12.accdb

تم تعديل مايو 18 بواسطه Ahmed_J

[Ahmed_J]

up

[ناقل]

4 ساعات مضت, Ahmed_J said:

up

جرب كده .....

 

‏‏جديد - نسخة.accdb

[Ahmed_J]

استاذ @ناقل

كل الشكر والتقدير 

بارك الله فيك 

كل شيء تمام