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

[moho58]

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

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

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

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

[moho58]

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

اتفضل 

هذا ما تريد ؟

base_s_w.rar 32.44 kB · 2 downloads

السلام عليكم

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

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

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

[عمر ضاحى]

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

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

 

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

[moho58]

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

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

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

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

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

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

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

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

 

[moho58]

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

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

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

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

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

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

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

 

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

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

[عمر ضاحى]

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

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

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

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

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

[Moosak]

هذا ملف جاهز لاستيراد الملفات بجانب قاعدة البيانات واستعراضها في متصفح (لعرض الصور + ملفات 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  يجب أن يكون بجانب قاعدة البيانات دائما ..
مستعرض الصور :

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

للتحميل :

 

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

[عمر ضاحى]

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

base_s_w.rar

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

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

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

 

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

مثل حقل SN

وحقل FileName

 

[moho58]

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  يجب أن يكون بجانب قاعدة البيانات دائما ..
مستعرض الصور :

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

للتحميل :

 

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

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

[عمر ضاحى]

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

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

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

____________

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

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

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

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

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

 

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

تستطيع فعلها

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

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

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

[moho58]

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

تستطيع فعلها

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

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

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

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

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

[عمر ضاحى]

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

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

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

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

 

 

base_s_w.rar

[moho58]

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

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

 

 

base_s_w.rar 39.88 kB · 1 download

عمل رائع جدا جدا

من القلب جزاك الله كل خير ان شاء الله 

[عمر ضاحى]

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

عمل رائع جدا جدا

من القلب جزاك الله كل خير ان شاء الله 

اشكرك