ملفات pdf مرتبطة ببرنامج اكسيس

[jo_2010]

الخبراء الافاضل

بعد التحية 

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

بشرط ان كل مريض يكون لة فولدر باسمة بداخلة الملفات الخاصة بة  لكم خالص الشكر

[kkhalifa1960]

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

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

بشرط ان كل مريض يكون لة فولدر باسمة بداخلة الملفات الخاصة بة

تفضل استاذ @jo_2010 محاولتي (عدل الاسماء بجدول المرضى بعد التجارب) البرنامج  . للصور وملفات (PDF) ...ووافني بالرد.

DDAdd&DeletePDF.rar

[jo_2010]

منذ ساعه, kkhalifa1960 said:

تفضل استاذ @jo_2010 محاولتي (عدل الاسماء بجدول المرضى بعد التجارب) البرنامج  . للصور وملفات (PDF) ...ووافني بالرد.

DDAdd&DeletePDF.rar 54.53 kB · 4 downloads

الخبير الفاضل

بعد التحية

خالص الشكر على اهتمامك وتعبك من اجل تحقيق طلبى

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

كما بالصورة

 

 

ثانيا ظهرت معى مشكلة اختيار ملفات pdf 

فى الصورة الثانية

[kkhalifa1960]

تفضل استاذ @jo_2010 المرفق بعد التعديل ...ووافني بالرد.

DDAdd&DeletePDF.rar

[jo_2010]

6 ساعات مضت, kkhalifa1960 said:

تفضل استاذ @jo_2010 المرفق بعد التعديل ...ووافني بالرد.

DDAdd&DeletePDF.rar 54.21 kB · 6 downloads

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

[kkhalifa1960]

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

ولكن هناك بعض الملاحظات كما بالصورة

تفضل استاذ @jo_2010 المرفق بعد التعديل ( عند اضافة المجلد إذا موجود يعطيك ماسج المجلد موجود مسبقاً واذا غير منشأ يعطيك ماسج تم انشاء المجلد بنجاح ).

واذا حبيت تلغيهم أو تلغي احداهما .اذهب لمحرر الاكواد واعمل كما بالمسجات بالموديول التالي . اضافة (') قبل الماسج .

Sub CreateFolder()
On Error Resume Next
Dim folderPath As String
folderPath = Me.PatientName.Value
If Len(Dir(CurrentProject.Path & "/" & "My Programs/" & folderPath, vbDirectory)) = 0 Then
MkDir CurrentProject.Path & "/" & "My Programs/" & folderPath
'MsgBox ("تم انشاء المجلد بنجاح")
Else
'MsgBox ("المجلد موجود مسبقا")
End If
End Sub

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

DDAdd&DeletePDF.rar

تم تعديل يونيو 11 بواسطه kkhalifa1960

[jo_2010]

12 ساعات مضت, kkhalifa1960 said:

تفضل استاذ @jo_2010 المرفق بعد التعديل ( عند اضافة المجلد إذا موجود يعطيك ماسج المجلد موجود مسبقاً واذا غير منشأ يعطيك ماسج تم انشاء المجلد بنجاح ).

واذا حبيت تلغيهم أو تلغي احداهما .اذهب لمحرر الاكواد واعمل كما بالمسجات بالموديول التالي . اضافة (') قبل الماسج .

Sub CreateFolder()
On Error Resume Next
Dim folderPath As String
folderPath = Me.PatientName.Value
If Len(Dir(CurrentProject.Path & "/" & "My Programs/" & folderPath, vbDirectory)) = 0 Then
MkDir CurrentProject.Path & "/" & "My Programs/" & folderPath
'MsgBox ("تم انشاء المجلد بنجاح")
Else
'MsgBox ("المجلد موجود مسبقا")
End If
End Sub

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

DDAdd&DeletePDF.rar 703.3 kB · 8 downloads

الخبير الفاضل kkhalifa1960

تسلم ايدك لقد حققت حلمى ولكن اطمع فى المزيد انظر الصورة

 لو مريض لة اكثر من  ملف هل استطيع ادراجهم دون الضغط new اختيار اسم المريض فى كل مرة لاضافة الملفات الخاصة بة انظر الصورة 

 

اريد عدم اضهار رسالة فى كل مرة اضيف ملف جديد 

شكرا لك على الاهتمام والمساعدة

[kkhalifa1960]

في 12‏/6‏/2024 at 10:48, jo_2010 said:

لو مريض لة اكثر من  ملف هل استطيع ادراجهم دون الضغط new اختيار اسم المريض فى كل مرة لاضافة الملفات الخاصة بة انظر الصورة 

اريد عدم اضهار رسالة فى كل مرة اضيف ملف جديد 

1- لابد من الضغط new اختيار اسم المريض فى كل مرة لاضافة الملفات الخاصة .

2- اريد عدم اضهار رسالة فى كل مرة اضيف ملف جديد  تم عمل اللازم .

3- تفضل المرفق في ثوبه الجديد وتم التجريب من اضافة وحذف صورة وحذف مجلد بما فيه (اقرأ التعليمات) أعلى النموذج . ووافني بالرد . ولا تنسى أفضل اجابة اذا الامور مشيت تمام .

DDAdd&DeletePDF.rar

[kkhalifa1960]

تفضل استاذ @jo_2010 المرفق بعد تعديل بعض الاخطاء وعمل ترقيم الصور حسب اسم كل مريض .

DDAdd&DeletePDF.LAST.rar

[jo_2010]

4 ساعات مضت, kkhalifa1960 said:

تفضل استاذ @jo_2010 المرفق بعد تعديل بعض الاخطاء وعمل ترقيم الصور حسب اسم كل مريض .

DDAdd&DeletePDF.LAST.rar 65.79 kB · 1 download

الخبير الفاضل

كل عام وانتم بخير عيد اضحى سعيد

البرنامج شبة متوقف زر new غير مفعل  ولا استطيع اضافة مريض لا من خلال الضغط على new

انظر الصورة

[kkhalifa1960]

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

[jo_2010]

8 ساعات مضت, kkhalifa1960 said:

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

قرات المكتوب 

1- للإضافة اختار (NEW) ثم اسم المريض ثم زر الاضافة

2- لحذف مجلد  (Next) لتصل لاسم المريض المراد حذف مجلده ثم زر ازالة مجلد

3- لحذف صورة  (Next) لتصل لاسم المريض واسم الصورة  المراد حذفها ثم زر ازالة صورة

 زر new غير مفعل كيف افعلة لكى استطيع الاستمرار وتجربة البرنامج البرنامج 

اول ماتفتح البرنامج بيكون الزر غير مفعل اية

خطوة البداية لتفعيل الزر

[kkhalifa1960]

تفضل استاذ @jo_2010 المرفق بعد التعديل  .

DDAdd&DeletePDF.LAST.rar

[jo_2010]

14 ساعات مضت, kkhalifa1960 said:

تفضل استاذ @jo_2010 المرفق بعد التعديل  .

DDAdd&DeletePDF.LAST.rar 63.24 kB · 5 downloads

عيد اضحى سعيد اعادة الله على كل شعوب العالم بالخير والسعادة والبهجة

انطرالضورة يامعلمى الفاضل

[kkhalifa1960]

بالنسبة ل أولاً وحسب الصورة يوجد ماسج بالاعلى لابد من تنزيل اكروبات ريدر حسب الويندوز لديك (32 بت أو 64 بت) وهذا البرنامج متوفر  بالنت .

               ثانياً وثالثاً ايضاً من الصورة انت اضفت الصورة الاولى تمام وحبيت تضيف صوره اخرى لنفس المريض ولكن لم تضغط على اسم المريض مرة أخرى كي يتغير الترقيم ..

                             ( أنا عالجت ذلك بالمرفق التالي)

DDAdd&DeletePDF.LAST.rar

[jo_2010]

13 ساعات مضت, kkhalifa1960 said:

بالنسبة ل أولاً وحسب الصورة يوجد ماسج بالاعلى لابد من تنزيل اكروبات ريدر حسب الويندوز لديك (32 بت أو 64 بت) وهذا البرنامج متوفر  بالنت .

               ثانياً وثالثاً ايضاً من الصورة انت اضفت الصورة الاولى تمام وحبيت تضيف صوره اخرى لنفس المريض ولكن لم تضغط على اسم المريض مرة أخرى كي يتغير الترقيم ..

                             ( أنا عالجت ذلك بالمرفق التالي)

DDAdd&DeletePDF.LAST.rar 298.6 kB · 2 downloads

الخبير الفاضل 

اعرف انى اثقلت عليك بطلباتى الكثيرة اكرر اعتذارى

اولا عندى برنامج Foxit PhantomPDF PDF Document (.pdf)  بدلا من الاكروبات

ثانيا كلما اردت اضافة ملف تظهر رسالة  ادخل اسم المريض وانا ادخلتة بالفعل

[kkhalifa1960]

اعتذر لرفع ملف تجريبي . اليك المرفق بعد التجريب .

هل اشتغل معك ظهور ملفات PDF من قبل ؟ . اذا كان شغال يبقى المشكله كانت في الترقيم المتكرر . واحنا حليناها .

DDAdd&DeletePDF.LAST.rar

تم تعديل يونيو 17 بواسطه kkhalifa1960

[jo_2010]

منذ ساعه, kkhalifa1960 said:

اعتذر لرفع ملف تجريبي . اليك المرفق بعد التجريب .

هل اشتغل معك ظهور ملفات PDF من قبل ؟ . اذا كان شغال يبقى المشكله كانت في الترقيم المتكرر . واحنا حليناها .

DDAdd&DeletePDF.LAST.rar 325.25 kB · 1 download

معلمى الفاضل لازالت المشكلة قائمة ملفات pdf لاتطهر ونفس مشكلة ادخل اسم المريض ممكن نستخدم مستعرض الويب كما بالصورة

[kkhalifa1960]

 

                                                                                                      

تفضل المرفق وزي ماأنت شايف يعمل جيداً . حاول تحل المشكلة لديك . نزل أكروبات ريدر جديد .

DDAdd&DeletePDF.LAST.rar

[jo_2010]

لايسعنى غيرتقديم خالص الشكر على تعبك وسعة صدرك كتر خيرك