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

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


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

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

بعد التحية 

اريد برنامج لادراج  ملفات 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

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

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