hesham eltohamy

لا اقصد  ملف تنفيذى exe

اقصد عمل القاعدة كبرنامج يتم تنصيبه بالطريقة اليدوية . مثل برامج الصيدليات والمتاجر ومعامل التحاليل الطبية

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

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

هل عندكم كيف يتم ذلك..... ارجو الاستفادة  من ارائكم وخبرتكم

اعزائي الكرام السلام عليكم

قمت بعمل قاعدة بيانات باكسيس 2010

وتعنل علي جهازي بكفاءة عالية

وعندتشغيلها علي جهاز اخر لم تعمل 

وتعطي اخطاء اكواد

وبالمعالجة وجدت ان اسماء النماذج والاستعلام بلغة غير مفهومة

اذا كانت تلك المشكلة فا الحل 

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء 

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

ما هي الخطوات اللازمة لذلك 

ارجو من الاساتذة الكرام وضع رؤية مبدئية لاجراء هذا العمل ومع الحوار نثمن الفكرة وعممها لان لدي العديد من الاسئلة في هذا الموضوع 

مع جزيل الشكر

السلام عليكم 

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

المطلوب هل من طريقة لتجميع القواعد الواردة من المدارس في قاعدة البيانات الاساسية 

مشكور اخي 

اتمني لو اعرف أعمل مثل هذه الاكواد 

يعني ما هو المطلوب معرفته كحد ادني لتركيب كود 

لو في عندك اي مرجعية او كتاب مفصل علي الفجوال بيسك

عاوز اعرف كل الاحداث والطرق والخاصية 

مشكور جدا

طيب لو الملف عبارة عن صورة ما بيفتح  

يعني الصورة تفتح بواسطة window photo viewer

مشكورين اعزائي تم حل المشكلة باضافة امتداد الملف docx

السلام عليكم

حصلت علي كود لفتح ملف اكسيل وكان كالاتي

Private Sub Command6_Click()
Dim strExl As String
strExl = "D:\2017\" + Me.pass
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlApp.Workbooks.Open strExl, True, False
Set xlApp = Nothing
End Sub

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

Private Sub Command8_Click()
Dim strwrd As String
strwrd = Me.word
Dim DocApp As word.Application

Set DocApp = CreateObject("Word.Application")

DocApp.Visible = True
DocApp.Documents.Open strwrd

Set DocApp = Nothing

End Sub

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

قمت بتغيير صيغة الملف الي ورد 2003 فتم الفتح

اريد معرفة المشكلة في الورد 2010 علما بان الاكسيل كان ايضا 2010

ولكم جزيل الشكر

ملحوظة تم اضافة مكتبة الاكسيل والورد

Database4.rar

اليك التجربة 

Database31.rar

سلمت يداك

اضافة بسيطة (نقطة في بحر علمكم الواسع)

يمكن تغيير صيغة الملف بحيث يطبع كل الامتدادات ويصبح الكود 

Shell ("cmd /c mspaint /p " & "D:\2017\pic\" & Me.Code_ID & ".*")

اود لوتكرمتم توضيح عمل هذا الكود 

يعني وظيفة ال shell 

هل استدعاء برنامج الرسام ثم طباعة هذا المسار 

صورة لروشتة طبيب

السلام عليكم

اريد كود لزر امر يقوم بطباعة ملف مرتبط بكود العميل او باسم العميل

بمعني اسم الملف يساوي كود العميل او اسمه

مع جزيل الشكر

السلام عليكم 

اشكركم اخواني علي التفاعل معي وردودكم المثمرة

الحمد لله بالبحث والتنقيب وجدت دالة لتمكين / عدم تمكين زر الشفت 

ومرفق مثال لهذه القاعدة 

الطريقة 

اضغط علي اسم النموذج  product

كليك واحدة يعطل الشفت

دبل كليك يفعل الشفت 

منتظر اراكم ان وجدت اي ثغرة في المثال 

كما اتطلع لبعض الاضافات 

وشكرا 

Shift Key.rar

21 دقائق مضت, kanory said:

بالنسبة للمثال .... نضع هذا الكود في حدث عند الفتح للنموذج الاساسي المحمي بوسائل الحماية المختارة عند المبرمج وهي كثيرة مثلا زراعة ملف في الجهازأو المدة أو عدد السجلات أو رقم الهارد أو الريجستري وغيره الكثير ويمكن تطبيق أكثر من طريقه ثم نضيف هذا الكود للنموذج الاساسي بعد جعله منبثق :

If CurrentProject.AllForms("Chek_It").IsLoaded = False Then
    MsgBox "معذرة اخي الكريم لا يمكن فتح النموذج بهذه الطريقة ... يجب تشغيل البرنامج بالطريقة الصحيحة ", vbCritical, "تنبيه"
    DoCmd.CancelEvent
End If
 

 

المثال جيد تم تجربته بالضغط علي الشفت وما زال النموذج نشط 

جاري تجربته علي قاعدتي 

مشكور  اخي

لكن عندي بعض التساؤلات ( اخاف ان اجهدكم ) حيث ان تجاربي قليلة في الاكسيس 

1- كييف التحويل الي mde

2-  كيف يمكن قفل الوحدات النمطية برقم سري

3- كيف يمكن تشفير محتوى الجداول

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

9 ساعات مضت, jjafferr said:

 

وعليكم السلام

 

1. انا ما عندي مانع من قيامك بهذا العمل ، سواء هذا الموضوع او اي موضوع آخر يخصني ، وبارك الله فيك ،

ولكن يجب ان تذكر في الشرح ان البرنامج لي ، وتذكر رابطه في هذا المنتدى ، وترفق لنا رابط الشرح

2. انا لا استطيع ان اتكلم عن بقية الاعضاء وبرامجهم.

 

شكرا

جعفر

لك هذا  ...... تم ذكر اسمكم الكريم ولم يتم ذركر الرابط للمنتدي

اما رابط الشرح ( مع طريقة تشغيل البرنامج حسب فهمي )

https://youtu.be/zAUXmXZKd1M

وسوف يتم تلافي هذه النقاط في المرة القادمة ان شاء الله 

اخي العزيز/ جعفر

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

واسئذنكم بتكرار عمل هذه الشروحات لمواضيع المنتدي المحترم

السلام عليكم

كيف يمكنني تحويل القاعدة المفتوحة الي مغلقة

مع الشكر

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

اخي الكريم هنالك برامج كثيرة تعمل على قفل الشيفت لكن للأسف فان نفس البرامج تمكنك ايضا من تفعيل الشفت 

لذلك انت مبدئياً استعمل البرنامج المرفق لقفل الشيفت واعتبره كخط دفاعي اول ولا تعول عليه كثيراً (يعني كأنك حاط جندي واحد في الخط الامامي ليواجه جيش لوحده ههههه) 

تحياتي

فتح أو إلغاء الشفت.zip

مشكور اخي 

لكن كل قواعد البيانات الي عندي كلها accdb 

بالاضافة اني قد بحثت في مشاركات المنتدي ما وجدت غير مشاركة واحدة 

وكان الحل هو تحويل القاعدة الي  mdeما متاكد من هذا الحل 

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

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

مشكور اخي بسي يا ريت مثال 

السلام عليكم 

هذه اول مشاركة لي في القسم من المنتدي

وقد تابعت القيل من مشاركتم العظيمة 

ومنها طرق حماية قاعدة البيانات باستخدام رقم الهارد يسك وكانت قيمة

لكن سؤالي قد يكون بسيطا 

عند فتح اي قاعدة محمية مع الضغط علي زر Shift  

تفتح القاعدة بدون المرور علي نموذج الدخول 

ما حو الحل عند الاساتذة الافاضل

الرجاء الاهتمام