[sanyor77]

لا توجد مشكلة! سأقدم لك مزيد من المساعدة في كتابة الأكواد البرمجية بلغة VBA للوظائف المطلوبة. أولاً، دعونا نراجع ما تحتاجه:

1. تحديد قسم المستخدم بعد تسجيل الدخول.
   
2. السماح للمستخدم بإنشاء طلبية والموافقة أو الرفض من قبل الأدمن مع إبداء الأسباب.
   
3. تحويل الطلبية بين الأدمن للتعميد.
   
4. إرسال الطلبية المعتمدة إلى قسم المالية للتحويل وإشعار المستخدم برفق ملف التحويل البنكي.
   
5. حفظ الملف التحويل البنكي للوصول الحصري لقسم المالية.
   
6. تتبع التعديلات بأسماء المستخدمين (المستخدمين العاديين والأدمن).
   

تحتاج أولاً إلى إعداد متغير عام لقسم المستخدم المسجل دخوله. يمكنك وضع الكود التالي في الوحدة النمطية العامة (على سبيل المثال، Module1):
 


يرجى مراعاة أن هذا الكود لا يحتوي على أي تنفيذات داخل الوظائف والإجراءات. لإكمال الكود، ستحتاج إلى إضافة التفاصيل الخاصة بك، مثل الاتصال بقاعدة البيانات وإجراء الاستعلامات المناسبة لتحقيق الوظائف المطلوبة.

حسنًا، سأوضح كيفية إضافة تنفيذات داخل الوظائف والإجراءات. سأستخدم ADO (ActiveX Data Objects) كطريقة للاتصال بقاعدة البيانات.
أولاً، تأكد من إضافة مرجع إلى "Microsoft ActiveX Data Objects" من خلال "Tools" > "References" في محرر VBA.
ثم قم بإضافة الكود التالي لتعريف الوظيفة GetUserDepartment:
 

PHP كود :

Function GetUserDepartment(ByVal userID As String) As String
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String

    Set conn = New ADODB.Connection
    conn.Open "Your_Connection_String"

    Set rs = New ADODB.Recordset
    strSQL = "SELECT Department FROM Users WHERE UserID = '" & userID & "'"
    rs.Open strSQL, conn, adOpenStatic, adLockReadOnly

    If Not rs.EOF Then
        GetUserDepartment = rs.Fields("Department").Value
    End If

    rs.Close
    conn.Close
End Function 


تأكد من استبدال "Your_Connection_String" بسلسلة الاتصال الخاصة بقاعدة البيانات الخاصة بك.
هذا فقط مثال على كيفية تنفيذ الاتصال بقاعدة البيانات وإجراء استعلام داخل وظيفة. ستحتاج إلى تطبيق نفس النهج على الوظائف والإجراءات الأخرى حسب الاحتياجات الخاصة بك.
تأكد من تعديل الاستعلامات وأسماء الجداول والحقول وفقًا لتصميم قاعدة البيانات الخاصة بك.
يمكنك البدء بتعديل الوظائف والإجراءات الأخرى بناءً على المثال الذي قدمته، وفقًا لمتطلبات النظام الخاص بك. إذا كنت بحاجة إلى مزيد من المساعدة، فلا تتردد في طرح المزيد من الأسئلة.