مساعدة في صلاحيات المستخدمين

[أبو ألين]

السلام عليكم ورحمة الله وبركاته،

الاساتذة الكرام ،

 

ارغب في مساعدة باستثناء أحد القيم في جدول الادارات من خلال هذا الكود SQL :

Forms!DynamicForm!lstDynamic.RowSource = "SELECT TransID,TransType,TransTitle,TransSubject,TransDescription,TransCreatedOn,TransCreatedBy,TransStatus,TransUpdatedBy,TransEnd,TransFromCity,TransFromDept,TransToDept,TransToEmp From TransactionsT WHERE TransType and TransTitle and TransSubject is Not Null and TransToDept Like '*' & Forms!MainScreen!txtDepartment & '*' ORDER BY TransID DESC"

هل من طريقة لاستثناء اسم احد الادارات .. !

أو اذا يوجد طريقة اخرى ..

 

مع خالص الشكر والتقدير،

[د.كاف يار]

تفضل بهذا الترتيب يكون التحكم اسهل

Dim SetCoulmin() As String, SetWhere As String
SetCoulmin = " TransID,TransType, TransTitle, " & _
             " TransSubject,TransDescription,TransCreatedOn, " & _
             " TransCreatedBy,TransStatus,TransUpdatedBy, " & _
             " TransEnd,TransFromCity,TransFromDept,TransToDept,TransToEmp "

Forms!DynamicForm!lstDynamic.RowSource = "SELECT " & SetCoulmin & " From TransactionsT " & _
                                        " WHERE TransType is Not Null " & _
                                            " and TransTitle is Not Null " & _
                                            " and TransSubject is Not Null " & _
                                            " and TransToDept Like '*' & Forms!MainScreen!txtDepartment & '*' " & _
                                        " ORDER BY TransID DESC"

 

[أبو ألين]

شكرا لك استاذي د.كاف يار

لكن السؤال الاهم لدي هو .. أريد استثني قيمه من من قيم الحقل TransToDept من خلال SQL .

هل ممكن تفيدني أو احد الاساتذة الله يحفظكم .

[د.كاف يار]

طيب ارفق نسخة او مثال من برنامجك