ابو جودي

بعد اذن اساتذتى الكرام فى الكود غير السطر FiledName.ForeColor = vbRed الى FiledName.ForeColor = vbGrayText

اولا اسف ع التاخير ثانيا محتاج اشوف شئ وقت تكون اونلاين نظبطها سوا ان شاء الله

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

هذا الموضوع مخالف لقوانين المنتدي ×××××××× يغلق ×××××××× الإدارة نشر موضوع بدون اى جداوى لا يحتوى على اى اسئلة واستخدام عنوان كذلك بدون اى معنى برجاء الاهتمام والحفاظ على سياق النشر والمشاركة طبقا للقواعد المنظمة ولان حضرتك عضو جديد اهلا بكم معنا اولا فى المنتدى ... ويكتفى فقط بالتوضيح تكرار المخالفات يعرضك لحذفها تقبل تحياتى

بتحصل معايا هههههههه

طيب مبدئيا كده ركز فى الكود انت بدأت الكود بـ If IsNull(Me.cbAproved) Then وبعد كده عاوزة يجلب البيانات من App1 = Me.cbEmpNo.Column(1) ركز كده مع اللون الاحمر طب ايه اللى جاب القلعة جمب البحر Dim str As String If IsNull(Me.cbAproved) Then Me.App1 = "" Me.App2 = "" Me.App3 = "" Me.App4 = "" str = "Select * from QryforREP_ALL_EMP" Me.RecordSource = str Exit Sub Else App1 = Me.cbEmpNo.Column(1) App2 = Me.cbEmpNo.Column(2) App3 = Me.cbEmpNo.Column(3) App4 = Me.cbEmpNo.Column(4) str = "Select * from QryforREP_ALL_EMP where [Emp_No]=" & Me.cbAproved.Column(0) Me.RecordSource = str End If الكود الصحيح يكون كالاتى ... وياريت نركز شوية واحنا شغالين ماشى Dim str1 As String If IsNull(Me.cbAproved) Then Me.App1 = "" Me.App2 = "" Me.App3 = "" Me.App4 = "" str1 = "Select * from QQQQ" Me.RecordSource = str1 Exit Sub Else App1 = Me.cbAproved.Column(1) App2 = Me.cbAproved.Column(2) App3 = Me.cbAproved.Column(3) App4 = Me.cbAproved.Column(4) str1 = "Select * from QQQQ where [Emp_No]=" & Me.cbAproved.Column(0) Me.RecordSource = str1 End If وهذا ملفك بعد التعديل test1001 -Update.accdb

طيب المثال من عندى والشرح من عندك ♥ Menu.mdb

ان شاء الله خيــــــــر بشراكم

وعليكم السلام ههههههههه شوق ولا تدوق

ممكن المرفق

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

هأعمل تصوير لحضرتك حالا من جهازى

شوف انا نفذت لك العمل اكثر من مرة وانت ما اعطتنى اى شئ اتعامل من خلالة تسهيلا على وعليك وفى الاخر صار الان كل اللى انا عملته هو والعدم سواء يا اخى الله يرضى عليك المنتدى هنا لنشر العلم يعنى تسأل سؤال وتجد الجواب ومع ذلك وبدون اى ادوات اعمل عليها قدمت لك العمل كاملا باجتهادى الشخصى وبالبحث هنا وهناك فانت لم تقدم حتى معلمونة تساعد على اتمام العمل وانت باجابة طلبتك سوف تعود من جديد تطلب تعديلات وعلى الرغم من ان ذلك مخالف لقواعد المنتدى لم اقصر معك لاهمية العمل وما يقدمه من خير يعلم الله تعبت جدا جدا فى تنفيذ العمل الذى تم بدون اى شرح او تقديم اى ادوات تعين على اتمامه والذى صار الان هو والعدم سواء فرفقا بى الله يرضى عليك ورجاء اقل شئ تعاون معى قدم كل الادوات وان شاء الله يتم العمل بها لتلبى احتياجاتك لننهى الموضوع دون ان يضيع وقتى وجهدى بلا فائدة

هات ملفات الصوت تبعك كلها 😡 عد كام مرة اطلب منك الطلب ده

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لقد فكرت بوضع الحل بتلك الالية ولكن ترددت لانه لابد من تنصيب الـ Acrobat Reader على الجهاز والا لن يتم استعراض الملف فبدلا من ذلك سوف يتم تحميل الملف

الحل الاول Application.FollowHyperlink CurrentProject.Path & "\" & List1.Column(1) & ".pdf" الحل الثانى Dim OpnPdf As Variant OpnPdf = Shell("explorer.exe " & CurrentProject.Path & "\" & List1.Column(1) & ".pdf", vbNormalFocus) ------------------------ لتلافى الخطأ فى حالة عدم وجود ملف الـ PDF اضافة الروتين الاتى Function IsFile(ByVal fName As String) As Boolean On Error Resume Next IsFile = ((GetAttr(fName) And 16) <> 16) End Function وفى حدث عند النقر على الـ ListBox ضع الكود الاتى Dim pdfPath As String pdfPath = CurrentProject.Path & "\" & List1.Column(1) & ".pdf" If IsFile(pdfPath) Then Dim OpnPdf As Variant OpnPdf = Shell("explorer.exe " & pdfPath, vbNormalFocus) Else MsgBox "File Not found " End If وهذا ملفك بعد التعديل pdf.zip

من عيونى الشرح هنا فى موضوع مستقل

السلام عليكم ورحمة الله تعالى وبركاته الشرح الاتى لا يخص الأكسس بصفة خاصة ولكن لحماية حذف القاعدة او اى ملف داخل مجلد او المجلد الذى يحتوى قاعدة البيانات بالخطأ اولا نقوم بعمل مجلد جديد ونعطيه الاسم الذى نريد على سبيل المثال نضع مجلد جديد داخل القطاع D ونعطى المجلد اسم BackDB نقوم بتحديد المسار ونقوم بنسخه فيكون D:\Test\BackDB ولو كان اسم المجلد من مقطعين مثل Back DB سوف يكون المسار نسخ المسار الى ملف نصى ونقوم بتعديله ليكون D:\Test\Back_DB بعد ذلك نقوم بفتح موجه الاومر DOS ونقوم بكتابة او لصق الامر الاتى cacls D:\Test\BackDB /P everyone:n ولو اسم المجلد من مقطعين يكون cacls D:\Test\Back_DB /P everyone:n ثم نضغط على المقتاح Enter من لوحة المقاتيح ثم نضغط على المفتاح Y من لوحة المفاتيح كما هو موضح فى الصورة بعد ذلك نغلق موجه الاوامر DOS ونذهب الى المجلد ونقوم بالضغط عليه كليك يمين ونختار Properties تظهر لنا النافذة الاتية نحدد التبويب Security ثم نضغط بعد ذلك على Advanced كما هو موضع بالصورة ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالتحديد اولا كما هو فى الخطوة رقم 1 بالصورة ثم بعد ذلك كما هو بالخطوة رقم 2 نقوم بالضغط على Edit ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالضعط على Show Advanced Permissions ثم بعد ذلك تظهر لنا النافذة الاتية 1- فى الـ Type نختار Allow 2- فى اختيارات الـ Permissions نقوم بإزالة التأشير من على الاتى Delete Delete Subfolders and files لتصبح الاعدادت كما بالشكل الاتى ثم نضغط OK الان انسخ قاعدة البيانات داخل المجلد او اى ملفات تخاف من فقدانها جرب حذف الملفات لن يتم حذفها حاول حذف القاعدة كذلك لن يتم حذفها كذلك اقتح القاعدة واضف اليها بيانات او عدل او احذف منها اى بيانات سوف تعمل القاعدة بشكل طبيعى جدا لو اردت حذف المجلد او اى شئ بداخلة فقط استخدم الامر الاتى فى موجه اوامر الـ DOS cacls D:\Test\BackDB /P everyone:f وبعد حذف ما تريد يمكنك اعادة الخطوات ان اردت ارجاع الحماية مرة اخرى انتهى الشرح دمتم فى امان الله...

اانا فعلا بحثت عن عمل ذلك بالاكسس ولم اوفق فى شئ وخطر على بالى تلك الفكرة يا دكتور

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

بس فعلا انا فى العمل قاعدة البيانات تم حذفها بالخطا ذات مرة وبقليل من البحث توصلت لتعديل اعدادت امان المجلد ليصبح قابل للقراءة والتعديل فقط دون الحذف وبذلك لا يتم حذف القاعدة الا ان قمت بتعديل اعدادات الامان مرة اخرة وبعدين يا سيدى هزر براحتك على قلبى زى العسل ولو عاوز تعمل مجلد لا يتم حذف ما بداخلة ابدا بكل سهولة اذهب لموجه اوامر الدوس اكتب لامر الاتى cacls D:\Moh3ssam /P everyone:n مع تعديل D:\Moh3ssam بمسار المجلد وان كان اسم المجلد يتكون من اكثر من مقطع تعامل معه مثل ما تتعامل مع الاسماؤ فى محرر الاكواد يعمى لو عندنا مجلد على القطاع D باسم Amr Ashraf يكتب الامر فى موجه اوامر الدوس بهذا الشكل cacls D:\ Amr_Ashraf /P everyone:n ثم اضغط من لوحة المقاتيح على زر الـ Enter تأتى لك رسالة تخبرك ان اردت الاستمرار اضغط على حرف الـ y من لوحة المفاتيح وان اردت عدم الاستمرار اظغط على حرف الـ N وبمجرد الضغط على حرف الـ Y يتم تعديل اعداد الامان للمجلد لن تستطيع حذف او اضافة اى شئ اليه ولفتح الاعدادت مرة اخرى للمجلد ليقبل الكتابة او الحذف cacls D:\ Amr_Ashraf /P everyone:f انا مجلد البرامج بأقوم بعمل تلك الخطوة للحفاظ عليها من الحذف او التعديل عليها من قبل الفيروسات

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

طيب هو الكلام كان واضح من العنوان تأمين السجلات من تعديل او حذف البيانات بالخطأ لم اقصد حذف السجل نفسه ولكن البيانات داخل احد العناصر فى النموذج للسجل الحالى ولكن على كل حال زيادة فى الخير ومن اجل عيون صاحب السؤال الحل كالاتى .AllowDeletions = عند التأمين = False فلا يتم حذف السجل وعند الغاء التامين وفى وضع التعديل تكون = True Securing records(2).accdb

السلام عليكم ورحمة الله تعالى وبركاته وردنى السؤال الآتى عند فتح نموذج او تصفح بيانات من استعراض السجلات من خلال نموذج فى حالة التركيز على عنصر تحكم ما قد يتم اضاقة شئ بالخطأ الى البيانات او حذف شئ من البيانات هل ممكن تأمين جميع الحقول بحيث لا يمكن التعديل او حذف او اضافة بيانات بالخطأ الاجابة نعم ممكن ذلك بكل سهولة من خلال الفكرة الاتية بترتيب الخطوات إنشاء زر امر ونسمى زر الامر cmdEdit نقوم بتسمية زر الامر بـ Edit نضع الكود الاتى فى حدث الحالى للنموذج If Me.NewRecord Then With Me .cmdEdit.Caption = "Edit" .cmdEdit.ForeColor = 0 .cmdEdit.FontBold = False .AllowEdits = True .cmdEdit.Enabled = False End With Else With Me .AllowEdits = False .cmdEdit.Caption = "Edit" .cmdEdit.ForeColor = 0 .cmdEdit.FontBold = False .cmdEdit.Enabled = True End With End If نضع الكود الاتى فى حدث عند النقر لزر الامر Select Case Me.cmdEdit.Caption Case "Edit" With Me .AllowEdits = True .cmdEdit.Caption = "Lock" .cmdEdit.ForeColor = 255 .cmdEdit.FontBold = True .Refresh End With Case "Lock" With Me .AllowEdits = False .cmdEdit.Caption = "Edit" .cmdEdit.ForeColor = 0 .cmdEdit.FontBold = False .Refresh End With End Select المرفق Securing records.accdb

هو مش عارف انت مين واللا ايه علشان يقول لك كده المرفق اهون ياسيدى ToolTip.mdb