نسخ المرفق ووضعه في ملف مع البرنامج

[HaniMoursi]

استاذتنا الأفاضل اسعد الله اوقاتكم بكل خير
ارجو المساعده
بالمثال المرفق عندى زر اضافه مرفق وزر معاينه ويوجد بهم اكواد الاضافه والمعاينه وايضا الــ Module

المشكله تتلخص بالتالي 

1- الــ Module d يوجد به خطأ ولا يعمل على اكسس 2007 

2- زر المعاينه المفروض يقوم باخذ نسخه من المرفق الذى تم اختياره ووضعه في ملف اسمه pdfFolder برقم الــ ID لكن عند الضغط عليه بيعمل ملف جديد برقم الــ ID

3- زر الاضافه لا يعمل بالشكل الصحيح لسبب الخطأ الموجود بالــ Module

نسخه من مرفق.zipFetching info...

تم تعديل فبراير 11, 2023 بواسطه ابوخليل
تصحيح

[ابوخليل]

السلام عليكم

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

..

بالنسبة لطلبك المثال يعمل جيدا فقط بحاجة الى تعديل قليل ، وحقيقة لا اعلم ما تريد بالضبط

لانك تجلب ملف على اي اساس ؟ فالجدول فاضي

المفترض انك تكتب اسم الملف في الفورم او يكون في الجدول وتبحث عنه ولما يظهر على الفورم تجلب الملف الخارجي بناء على id اللي امامك

هو كذا والا المطلوب شي ثاني ؟

 

[Moosak]

هذا الموضوع يفيدك إن شاء الله 🙂 

 

 

[HaniMoursi]

  في 11‏/2‏/2023 at 14:07, ابوخليل said:

السلام عليكم

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

..

بالنسبة لطلبك المثال يعمل جيدا فقط بحاجة الى تعديل قليل ، وحقيقة لا اعلم ما تريد بالضبط

لانك تجلب ملف على اي اساس ؟ فالجدول فاضي

المفترض انك تكتب اسم الملف في الفورم او يكون في الجدول وتبحث عنه ولما يظهر على الفورم تجلب الملف الخارجي بناء على id اللي امامك

هو كذا والا المطلوب شي ثاني ؟

 

Expand  

صدقت استاذنا الفاضل وانا بعتذر لذلك 

اما بالنسبه للبرنامج فأنا بحمله مره اخرى ومرفق معه ملف pdf المطلوب عندما اختار هذا الملف من زر اضافه يقوم الكود بعمل نسخه اخرى للمرفق ووضعه في ملف pdfFolder برقم الـــ ID الموجود بالنموذج

نسخه من مرفق.zipFetching info...

[HaniMoursi]

  في 11‏/2‏/2023 at 17:30, Moosak said:

هذا الموضوع يفيدك إن شاء الله 🙂 

 

 

Expand  

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

[ابوخليل]

  في 12‏/2‏/2023 at 06:17, HaniMoursi said:

 ما احتاجه هو بعد اختيار المرفق يقوم زر الاضافه بعمل نسخه من المرفق ووضعه في ملف pdfFolder برقم ID وعند المعاينه يفتح هذا المرفق الذي اخذت منه نسخه في مساره الجديد

Expand  

فعلا هذا ما يفعله مثالك المرفق

المثال يعمل تمام

اولا في النموذج اكتب اسم الملف الذي تريد جلبه من اجل تعيين id جديد . ويجب ان يكون التركيز على السجل نفسه ، والافضل يكون النموذج مفرد وليس مستمر

 

[HaniMoursi]

  في 12‏/2‏/2023 at 06:35, ابوخليل said:

فعلا هذا ما يفعله مثالك المرفق

المثال يعمل تمام

اولا في النموذج اكتب اسم الملف الذي تريد جلبه من اجل تعيين id جديد . ويجب ان يكون التركيز على السجل نفسه ، والافضل يكون النموذج مفرد وليس مستمر

 

Expand  

عند الضغط على اضافه مرفق تظهر هذه الرساله علما بأنني اعمل على اكسس 2007 

[Moosak]

  في 12‏/2‏/2023 at 06:40, HaniMoursi said:

عند الضغط على اضافه مرفق تظهر هذه الرساله علما بأنني اعمل على اكسس 2007 

 

Expand  

أعتقد أن سبب الخطأ هو أن جهازك يعمل على النواة 32 بت .. والكود معد للنسخة 64 بت ..

بالإضافة إلى أن أكواد ال API المستخدمة لفتح مستعرض الملفات لا تفتح عندي على نسخة 64 بت .. 

 

ولحل مشكلتك الأولى تابع هنا :

هذا والله أعلم

[HaniMoursi]

  في 12‏/2‏/2023 at 06:50, Moosak said:

سبب الخطأ هو أن جهازك يعمل على النواة 32 بت .. والكود معد للنسخة 64 بت ..

بالإضافة إلى أن أكواد ال API المستخدمة لفتح مستعرض الملفات لا تفتح على نسخة 64 بت .. هذا للعلم 🙂 

 

ولحل مشكلتك الأولى تابع هنا :

 

Expand  

شكرا جزيلا اخي جعفر فبعد مراجعة موضوعك رجعت الى الــــ Moduled وقمت بحذف كملة PtrSafe وزر الاضافه يعمل طبيعى جدا الآن 


 

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
            "SHGetPathFromIDListA" (ByVal pidl As Long, _
            ByVal pszPath As String) As Long
            
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
            "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
            As Long
            
Private Const BIF_RETURNONLYFSDIRS = &H1

Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
    Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
    Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare Function CommDlgExtendedError Lib "comdlg.dll" () As Long

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 

[HaniMoursi]

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

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

نسخه من مرفق.zipFetching info...

[ابوخليل]

المثال شغال تمام 100%

[HaniMoursi]

  في 12‏/2‏/2023 at 11:26, ابوخليل said:

المثال شغال تمام 100%

Expand  

بالفعل يتم عمل الاضافه لكن كما هو موضح بالصوره 2 بيعمل لي فولدر جديد برقم ID وبيكون فارغ وانا لا احتاج فولدر احتاج المرفق نفسه ينسخ داخل pdfFolder

تم تعديل فبراير 12, 2023 بواسطه HaniMoursi

[ابوخليل]

انا لما جربته ما يعمل عندي فولدر جديد

على كل حال عطل الاسطر الثلاث الظاهرة بالصورة

هذه هي المسؤولة عن عمل المجلد

 

[HaniMoursi]

  في 12‏/2‏/2023 at 15:31, ابوخليل said:

انا لما جربته ما يعمل عندي فولدر جديد

على كل حال عطل الاسطر الثلاث الظاهرة بالصورة

هذه هي المسؤولة عن عمل المجلد

 

Expand  

لم ينجح الامر
فهل الامر متعلق بالاوفيس فأنا بشتغل على اكسس 2007

[ابوخليل]

لا اعتقد

نرجوا من الاخوة الكرام تجربة المثال

[ابو جودي]

  في 14‏/2‏/2023 at 16:20, ابوخليل said:

لا اعتقد

نرجوا من الاخوة الكرام تجربة المثال

Expand  

لم يتم عمل التحويل الصحيح لأكواد استدعاء دوال الـ Api  داخل الموديل لتتناسب مع النواة 64

ولكن الكود طويل جدا جدا جدا وزحمة ع الفاضى وما يستاهل حتى الواحد يتعب فيه وعلى مقولة انسف حمامك القديم سأقوم بعمل التعديلات الازمة

[ابو جودي]

اتفضل 

  في 11‏/2‏/2023 at 09:20, HaniMoursi said:

بالمثال المرفق عندى زر اضافه مرفق وزر معاينه ويوجد بهم اكواد الاضافه والمعاينه وايضا الــ Module

المشكله تتلخص بالتالي 

1- الــ Module d يوجد به خطأ ولا يعمل على اكسس 2007 

2- زر المعاينه المفروض يقوم باخذ نسخه من المرفق الذى تم اختياره ووضعه في ملف اسمه pdfFolder برقم الــ ID لكن عند الضغط عليه بيعمل ملف جديد برقم الــ ID

3- زر الاضافه لا يعمل بالشكل الصحيح لسبب الخطأ الموجود بالــ Module

 

Expand  

وهذا المرفق الجديد وان شاء الله يعمل على كلتا النواتان 32X , 64X   وبدون اى مشاكل 

نسخه من مرفق (2).accdbFetching info...

[Moosak]

  في 14‏/2‏/2023 at 19:46, ابو جودي said:

وهذا المرفق الجديد وان شاء الله يعمل على كلتا النواتان 32X , 64X   وبدون اى مشاكل 

Expand  

يعمل زي الحلاوة بالطحينة يا مولانا ... ربنا يبارك فيك 🙂 

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

ويحذف اسمه من الجدول بعد حذف الملف.

مرفق بجانب البرنامج.accdbFetching info...

[ابو جودي]

  في 15‏/2‏/2023 at 05:02, Moosak said:

يعمل زي الحلاوة بالطحينة يا مولانا ... ربنا يبارك فيك 🙂 

بس بعد أذنك ياهندسة أجريت تعديلات بسيطة على الكود علشان يحفظ اسم الملف في الجدول وليس الإكستنشن فقط . 😁

ويحذف اسمه من الجدول بعد حذف الملف.

مرفق بجانب البرنامج.accdb 488 kB · 1 download

Expand  

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

لم اقم بحفظ اسم الملف نظرا لان الكود القديم كان يقوم بعمل حفظ للمرفق برقم ال ID

لذلك لم تستدعى الحاجه لإضافة بيانات وحقل بلا داعى 😉

 

 

[HaniMoursi]

  في 15‏/2‏/2023 at 08:47, ابو جودي said:

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

لم اقم بحفظ اسم الملف نظرا لان الكود القديم كان يقوم بعمل حفظ للمرفق برقم ال ID

لذلك لم تستدعى الحاجه لإضافة بيانات وحقل بلا داعى 😉

 

 

Expand  

تسلم ربنا يعزك تمام

[HaniMoursi]

  في 16‏/2‏/2023 at 10:43, HaniMoursi said:

تسلم ربنا يعزك تمام

Expand  

لقد جربت التعديل وبالفعل ظهرت النسخه في الفولدر المطلوب ولكن مع النسخه بيعمل ملف جديد مع كل نسخه وانا احتاج النسخه بدون فولدر جديد مرفق صوره

[ابو جودي]

طيب قبل التعديل

هل تريد حفظ المرفق فقط داخل المجلد باسمه القديم ام برقم الـ ID الحالى

 

[HaniMoursi]

  في 16‏/2‏/2023 at 13:31, ابو جودي said:

طيب قبل التعديل

هل تريد حفظ المرفق فقط داخل المجلد باسمه القديم ام برقم الـ ID الحالى

 

Expand  

اخي الكريم ابوجودى شكرا جزيلا على مرورك الكريم
برقم الــ ID الحالى الذي اخذه الكتاب عند ادخاله في النموذج

تم تعديل فبراير 22, 2023 بواسطه HaniMoursi

[ابو جودي]

  في 22‏/2‏/2023 at 07:31, HaniMoursi said:

اخي الكريم ابوجودى شكرا جزيلا على مرورك الكريم
برقم الــ ID الحالى الذي اخذه الكتاب عند ادخاله في النموذج

Expand  

الشكر لله 

اتفضل 

 

نسخه من مرفق (3).accdbFetching info...

[Eng.Qassim]

مبدع استاذ @ابو جودي

تم تعديل فبراير 22, 2023 بواسطه Eng.Qassim