ارسال الكتب الادارية عن طريق شبكة محلية

[ahmedha]

السلام عليكم اخوتي الاعزاء

شهر رمضان كريم على الجميع

موضوعي لدي برنامج وارد الكتب الادارية صممته في الاكسس البرنامج عمله كتابة بيانات الكتاب وسحب صورة من الكتاب والمرفقات عن طريق السكنر بحيث الصورة تحفظ في مجلد خاص لكل شهر في الهارد تلقائياً

المطلوب :

اريد ان ارسل صورة الكتاب الى بقية الشعب لكن ليس كل الشعب مثلا كتاب يخص شعبة الحسابات عند سحبه من السكنر اريد هنالك زر ارسال يفتح نموذج ثانوية اختار اسم الشعبة لتكن شعبة الحسابات واضغط على ارسال سوف ترسل الى برنامج في حاسبة الشعبة مصمم ايضا في الاكسس وهذا كله عن طريق ربط حاسبات الشعب جميعها في جهاز سوج بحيث تكون شبكة محلية ما الطريقة للعمل بذلك ..

واعتذر عن الاطالة في الحديث ..

[kkhalifa1960]

اين المرفق لمساعدتك ؟؟؟؟

[ahmedha]

47 دقائق مضت, kkhalifa1960 said:

اين المرفق لمساعدتك ؟؟؟؟

شكرا @kkhalifa1960 على الرد المرفق مقفل حاليا اذا لم اتمكن من الوصول الي اجابة سوف افتح التشفير وارفقه لكن اريد طريقة للعمل هل اضع مجلد واعمل على مشاركته او غير طريقة ؟ 

تم تعديل الإثنين at 20:25 بواسطه ahmedha

[Foksh]

منذ ساعه, ahmedha said:

هل اضع مجلد واعمل على مشاركته

لتنفيذ هذه الفكرة ، يمكن اتباع الخطوات التالية :-

1. تحديد مسار حفظ الملفات لكل شعبة

داخل مجلد مشترك على الشبكة ، قم بإنشاء مجلد رئيسي مثل \\Server\Documents\Books\

أنشئ داخله مجلدات لكل شعبة ، مثل :-
 

\\Server\Documents\Books\Accounts   'قسم المحاسبة
\\Server\Documents\Books\HR   'قسم شؤون الموظفين
وأي اقسام أخرى حسب رغبتك طبعاً

2. إضافة جدول لحفظ بيانات الشعب في قاعدة البيانات

أنشئ جدولاً جديداً باسم tblDepartments على سبيل المثال ، يحتوي على :-

ID (رقم تلقائي)

DeptName (اسم الشعبة)

FolderPath (مسار مجلد الشعبة في الشبكة)

3. تصميم نموذج لاختيار الشعبة وإرسال الملف

أضف نموذجاً جديداً باسم frmSendDocument

أضف مربع قائمة منسدلة (ComboBox) مصدره جدول الشعب (tblDepartments)

أضف زر إرسال يقوم بنسخ الملف إلى مجلد الشعبة المختارة .

4. الكود التالي لنقل الصورة إلى مجلد الشعبة المختارة

عند الضغط على زر الإرسال ، استخدم الكود التالي :-

Private Sub btnSend_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSourceFile As String
    Dim strDestinationFile As String
    Dim strDeptPath As String

    ' تحديد قاعدة البيانات
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT FolderPath FROM tblDepartments WHERE DeptName='" & Me.cboDepartment & "'", dbOpenSnapshot)

    ' التحقق من العثور على مسار الشعبة
    If Not rs.EOF Then
        strDeptPath = rs!FolderPath
        strSourceFile = Me.txtFilePath  ' مسار الملف الأصلي
        strDestinationFile = strDeptPath & "\" & Dir(strSourceFile)

        ' نسخ الملف إلى مجلد الشعبة
        FileCopy strSourceFile, strDestinationFile

        MsgBox "تم إرسال الصورة إلى " & Me.cboDepartment, vbInformation
    Else
        MsgBox "لم يتم العثور على مسار الشعبة", vbCritical
    End If

    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

5. برنامج الاستقبال في الأجهزة المستهدفة

في البرنامج الخاص بكل شعبة ، يمكن عمل نموذج يقوم بفحص المجلد المحدد وعرض الملفات الجديدة .

يمكن استخدام كود VBA لإنشاء زر تحديث يقوم بعرض الملفات الواردة تلقائياً .

6. ملاحظات حول الربط الشبكي

تأكد أن جميع الأجهزة متصلة بالشبكة المحلية (Switch أو Router) .

قم بمشاركة المجلد الرئيسي وإعطاء الصلاحيات المناسبة للمستخدمين .

 

هذا تصور مبدئي للفكرة ، وتختلف آلية التنفيذ حسب طريقة تصميم مشروعك وبرنامجك .

[kkhalifa1960]

  اليك أخي @ahmedha هذا المرفق كنت سويته أحد الزملاء يمكن يساعدك اقرأة جيدا واذا احتاجت مساعدة حاضرين .

GavanDB.rar

[ahmedha]

شكراً لكم اخوتي على الردود الجميلة لكن توصلت الى حل نفس الفكرة ايضا مشاركة مجلد لكل شعبة واليه ارسال صورة الكتاب عند الضغط على الزر يتم انشاء اسم الشعبة تلقائيا يؤخذ من الفورم الرئيسي وبعد انشاءه يتم مشاركة المجلد واعطاءه الصلاحية لكل شعبة تحياتي لكم وشكرا جزيلاً ..