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

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

قام بنشر

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

بعد التحية 

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

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

قام بنشر
3 ساعات مضت, jo_2010 said:

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

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

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

DDAdd&DeletePDF.rar

قام بنشر
منذ ساعه, kkhalifa1960 said:

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

DDAdd&DeletePDF.rar 54.53 kB · 4 downloads

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

بعد التحية

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

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

كما بالصورة

 

 

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

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

Untitled.png

2.png

قام بنشر
6 ساعات مضت, kkhalifa1960 said:

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

DDAdd&DeletePDF.rar 54.21 kB · 6 downloads

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

Untitled.png

قام بنشر (معدل)
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

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

DDAdd&DeletePDF.rar

تم تعديل بواسطه kkhalifa1960
قام بنشر
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

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

DDAdd&DeletePDF.rar 703.3 kB · 8 downloads

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

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

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

 

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

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

Untitled.png

قام بنشر
في 12‏/6‏/2024 at 10:48, jo_2010 said:

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

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

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

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

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

DDAdd&DeletePDF.rar

قام بنشر
4 ساعات مضت, kkhalifa1960 said:

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

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

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

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

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

انظر الصورةUntitled.png.04c75abd1e17a01b8a0c8ac833504365.png

قام بنشر

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

قام بنشر
8 ساعات مضت, kkhalifa1960 said:

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

قرات المكتوب 

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

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

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

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

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

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

قام بنشر
14 ساعات مضت, kkhalifa1960 said:

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

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

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

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

Untitled.png

قام بنشر

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

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

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

DDAdd&DeletePDF.LAST.rar

قام بنشر
13 ساعات مضت, kkhalifa1960 said:

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

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

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

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

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

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

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

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

Untitled.png

قام بنشر (معدل)

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

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

DDAdd&DeletePDF.LAST.rar

تم تعديل بواسطه kkhalifa1960
  • Like 1
قام بنشر
منذ ساعه, kkhalifa1960 said:

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

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

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

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

Untitled.png

  • أفضل إجابة
قام بنشر

 

                                                                                                      image.gif.651005089ba0bf3a408429b098d15785.gif

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

DDAdd&DeletePDF.LAST.rar

قام بنشر

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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information