اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب مساعدة في حفظ وثيقة خارج قاعدة البيانات


moho58
إذهب إلى أفضل إجابة Solved by عمر ضاحى,

الردود الموصى بها

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

عندي جدول خاص بالمراسلات الصادر - الوارد

في النموذج أريد

1-اضافة وثيقة (المراسلة) خارج قاعدة البيانات ويكون بجانب القاعدة مهما كان ضيغة المراسلة pdf او jpg  ....

ويمكنني فيما فتحها ومعاينتها وطباعتها

2- أريد الفلترة حسب السنة أو نوع المراسلة (صادر/وارد)  معا  أو حسب كل واحدة منهما يعني السنة لوحدها او نوع المراسلة لوحدها --

وعند الفلترة يجب ان تظهر الوثيقة التي اضفتها (المراسلة)

من فضلكم المساعدة والتوجيه وجزاكم الله خيرا

base_s_w.accdb

رابط هذا التعليق
شارك

3 ساعات مضت, moho58 said:

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

عندي جدول خاص بالمراسلات الصادر - الوارد

في النموذج أريد

1-اضافة وثيقة (المراسلة) خارج قاعدة البيانات ويكون بجانب القاعدة مهما كان ضيغة المراسلة pdf او jpg  ....

ويمكنني فيما فتحها ومعاينتها وطباعتها

2- أريد الفلترة حسب السنة أو نوع المراسلة (صادر/وارد)  معا  أو حسب كل واحدة منهما يعني السنة لوحدها او نوع المراسلة لوحدها --

وعند الفلترة يجب ان تظهر الوثيقة التي اضفتها (المراسلة)

من فضلكم المساعدة والتوجيه وجزاكم الله خيرا

base_s_w.accdb 468 kB · 2 downloads

اتفضل 

هذا ما تريد ؟


base_s_w.rar

  • Like 1
رابط هذا التعليق
شارك

1 ساعه مضت, عمر ضاحى said:

اتفضل 

هذا ما تريد ؟


base_s_w.rar 32.44 kB · 2 downloads

السلام عليكم

جزاك الله خيرا على الرد والمتابعة

الطلب الأول:  فيما يخص زيادة الوتيقة وحفظها خارج القاعدة ومعاينتها وطباعتها : غيـــر موجود  .

 الطلب الثاني :فيما يخص الفلترة يعمل بشكل جيد.

رابط هذا التعليق
شارك

2 ساعات مضت, moho58 said:

الطلب الأول:  فيما يخص زيادة الوتيقة وحفظها خارج القاعدة ومعاينتها وطباعتها : غيـــر موجود  .

 

ما انا مش عارف ايه الوثيقه دي اصلا 
يعنى انت عاوز تعمل تقرير ؟ (اذا نعم ايه البيانات ال ههتعرض فى التقرير)
وتحفظه فى ملف جنب القاعده ؟
ولا انت محتاج ايه بالظبط لانى مش فاهم

رابط هذا التعليق
شارك

17 دقائق مضت, عمر ضاحى said:

ما انا مش عارف ايه الوثيقه دي اصلا 
يعنى انت عاوز تعمل تقرير ؟ (اذا نعم ايه البيانات ال ههتعرض فى التقرير)
وتحفظه فى ملف جنب القاعده ؟
ولا انت محتاج ايه بالظبط لانى مش فاهم

السلام عليكم اخي مرة أخرى مشكور على المتابعة

اريد اضافة زر  في التقرير استطيع من خلاله اضيف الوتيقة (المراسلة ) في التقرير وتكون مخزنةفي ملف  بجانب قاعدة البيانات حتى لا نزيد نضغط على قاعدة البيانات

لانه عندما تكتر السحلات مثلا 500 سجل وكل سجل عنده الوثيقة (المراسلة) راح تكبر قاعدة البيانات لذلك اردت تخزين في ملف بحانب القاعدة

وزر آخر استطيع من خلاله عرض وطباعة هذه( الوثيقة المراسلة)

وعند البحث (الفلترة) تظهر هذه الوثيقة المراسلة المعنية.

وجزاكم الله كل خير

 

رابط هذا التعليق
شارك

22 دقائق مضت, moho58 said:

السلام عليكم اخي مرة أخرى مشكور على المتابعة

اريد اضافة زر  في التقرير استطيع من خلاله اضيف الوتيقة (المراسلة ) في التقرير وتكون مخزنةفي ملف  بجانب قاعدة البيانات حتى لا نزيد نضغط على قاعدة البيانات

لانه عندما تكتر السحلات مثلا 500 سجل وكل سجل عنده الوثيقة (المراسلة) راح تكبر قاعدة البيانات لذلك اردت تخزين في ملف بحانب القاعدة

وزر آخر استطيع من خلاله عرض وطباعة هذه( الوثيقة المراسلة)

وعند البحث (الفلترة) تظهر هذه الوثيقة المراسلة المعنية.

وجزاكم الله كل خير

 

سامحني لم انتبه اضافة زر في النمودج وليس التقرير 

عمل المطلوب في النموذج الموحود  في القاعدة

رابط هذا التعليق
شارك

اممممممممم تمام

اولا هتحتاج اضافة حقل جديد يحمل اسم الملف المرفق

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

ثالثا هتحتاج زر لعرض الملف لك 

هذا قد ياخذ مني بعض الوقت لاني حاليا فى الشغل فاول ما بس افضي شوية هعملها لك ان شاء الله 

رابط هذا التعليق
شارك

هذا ملف جاهز لاستيراد الملفات بجانب قاعدة البيانات واستعراضها في متصفح (لعرض الصور + ملفات PDF) أو مستعرض الصور (بطريقتين) ..

جعلت الأكواد ( إضافة - فتح - حفظ - حذف ) في موديول عام لذا يمكن الاستفادة منها في جميع النماذج بسطور قليلة ومبسطة ..

Private Sub AddFilesBtn_Click()
' إضافة مرفق
Dim Add
Add = AddFiles(Me, Me.ID.Value)
If Add = "" Then Exit Sub
Me.FileName = Add
End Sub


Private Sub BrowserBtn_Click()
' استعراض المرفق
Call BrowserAttachment(Me.FileName.Value)
End Sub

Private Sub DeletBtn_Click()
' حذف المرفق
Call DeletFileFromAttacments(Me, "FileName", Me.FileName.Value)
End Sub


Private Sub DownloadBtn_Click()
' تحميل المرفق في جهازك
 Call SaveAttacment(Me.FileName.Value)
 End Sub

وبه ميزة أن الروابط تتأقلم مع نقل البرنامج من مكان إلى آخر بشرط أن الملف attachments image.png.604e9793a84b04209155565147d54925.png يجب أن يكون بجانب قاعدة البيانات دائما ..
مستعرض الصور :

image.jpeg.dcd62d856ba604de9abc9ee9b1caaf1b.jpeg

العرض عن طريق المتصفح :

image.jpeg.9077356fa22cbd851608b351a839d797.jpeg

للتحميل :

 

حفظ المرفقات بجانب البرنامج دائما 2.rar

  • Like 3
رابط هذا التعليق
شارك

  • أفضل إجابة

وهذه محاولتى مع استاذى الاستاذ موسي

base_s_w.rar

عند الضغط مرتين على حقل اسم ملف الوثيقه 

هتظهر لك نافذة تختار الملف والكود هيعملك المجلد الذى سيتم حفظ الوثيقه فيه 

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

 

وراجع الحقول الجديده التى تم اضافتها فى الجدول 

مثل حقل SN

وحقل FileName

 

  • Like 3
رابط هذا التعليق
شارك

4 ساعات مضت, عمر ضاحى said:

وهذه محاولتى مع استاذى الاستاذ موسي

base_s_w.rar 40.82 kB · 3 downloads

عند الضغط مرتين على حقل اسم ملف الوثيقه 

هتظهر لك نافذة تختار الملف والكود هيعملك المجلد الذى سيتم حفظ الوثيقه فيه 

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

 

وراجع الحقول الجديده التى تم اضافتها فى الجدول 

مثل حقل SN

وحقل FileName

 

ما شاء الله اخي الكريم بعد التجربة شغال وبامتياز بما في ذلك  الفلترة جزاك الله كل خير وجعلها في  ميزان حسناتك 

هذا هو المطلوب

____________

اخي بعد ايام عندي مشروع بنفس الفكرة .

فقط التغيير هو انني أستطيع اضافة اكثر من ملف (اكثر من وثيقة) في نفس السجل  واستطيع فتحها

اذا كان ممكن في نفس هذه  القاعدة . اذاكان الامر لا يطول ولا يأخد منك وقت وتستطيع تنفيذه .

تلبي هذا الطلب الجديد . وان تعذر . حينما احتاجها افتح موضوع جديدة بهذه الفكرة

ومرة اخرى جزاك الله كل خير

 

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

هذا ملف جاهز لاستيراد الملفات بجانب قاعدة البيانات واستعراضها في متصفح (لعرض الصور + ملفات PDF) أو مستعرض الصور (بطريقتين) ..

جعلت الأكواد ( إضافة - فتح - حفظ - حذف ) في موديول عام لذا يمكن الاستفادة منها في جميع النماذج بسطور قليلة ومبسطة ..

Private Sub AddFilesBtn_Click()
' إضافة مرفق
Dim Add
Add = AddFiles(Me, Me.ID.Value)
If Add = "" Then Exit Sub
Me.FileName = Add
End Sub


Private Sub BrowserBtn_Click()
' استعراض المرفق
Call BrowserAttachment(Me.FileName.Value)
End Sub

Private Sub DeletBtn_Click()
' حذف المرفق
Call DeletFileFromAttacments(Me, "FileName", Me.FileName.Value)
End Sub


Private Sub DownloadBtn_Click()
' تحميل المرفق في جهازك
 Call SaveAttacment(Me.FileName.Value)
 End Sub

وبه ميزة أن الروابط تتأقلم مع نقل البرنامج من مكان إلى آخر بشرط أن الملف attachments image.png.604e9793a84b04209155565147d54925.png يجب أن يكون بجانب قاعدة البيانات دائما ..
مستعرض الصور :

image.jpeg.dcd62d856ba604de9abc9ee9b1caaf1b.jpeg

العرض عن طريق المتصفح :

image.jpeg.9077356fa22cbd851608b351a839d797.jpeg

للتحميل :

 

حفظ المرفقات بجانب البرنامج دائما 2.rar 913.16 kB · 3 downloads

جزاك الله كل خير الاستاذ العزيز على الرد والاهتمام بموضوعي 

  • Thanks 1
رابط هذا التعليق
شارك

1 ساعه مضت, moho58 said:

ما شاء الله اخي الكريم بعد التجربة شغال وبامتياز بما في ذلك  الفلترة جزاك الله كل خير وجعلها في  ميزان حسناتك 

هذا هو المطلوب

____________

اخي بعد ايام عندي مشروع بنفس الفكرة .

فقط التغيير هو انني أستطيع اضافة اكثر من ملف (اكثر من وثيقة) في نفس السجل  واستطيع فتحها

اذا كان ممكن في نفس هذه  القاعدة . اذاكان الامر لا يطول ولا يأخد منك وقت وتستطيع تنفيذه .

تلبي هذا الطلب الجديد . وان تعذر . حينما احتاجها افتح موضوع جديدة بهذه الفكرة

ومرة اخرى جزاك الله كل خير

 

جزاك الله كل خير الاستاذ العزيز على الرد والاهتمام بموضوعي 

تستطيع فعلها

كل ما عليك هنا هتعمل جدول فرعي لحفظ اسماء الملفات

ويربطه بالجدول الرئيسي علاقة واحد لكثير

وهنا هتحتاج تعمل بعض التعديل على الكود

  • Like 1
رابط هذا التعليق
شارك

منذ ساعه, عمر ضاحى said:

تستطيع فعلها

كل ما عليك هنا هتعمل جدول فرعي لحفظ اسماء الملفات

ويربطه بالجدول الرئيسي علاقة واحد لكثير

وهنا هتحتاج تعمل بعض التعديل على الكود

مشكور اخي الكريم

لا اعتقد ان مستواي يسمح لي بالتعديل على الكود

رابط هذا التعليق
شارك

11 ساعات مضت, moho58 said:

مشكور اخي الكريم

لا اعتقد ان مستواي يسمح لي بالتعديل على الكود

اتفضل هذا الملف بعد التعديل

image.thumb.gif.d1c46918fde78759946660f01f397ce0.gif

 

 

base_s_w.rar

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information