بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
كل الانشطه
- Yesterday
-
رياض البرعي started following جلب تسميه توضيحه بدل الاسم البرمجي للكائن في msgbox
-
السلام عليكم و رحمه الله و بركاته بعد الاطلاع على موضوع (عدم الحفظ عندما يكون الحقل فارغاً) و كان الكود للأخ @jjafferr مناسب جداً لتطبيقي ولكن تظهر الرسالة وقد جلبت الاسم البرمجي للكائن و كذلك اي كائن نصي مخفي لاي غرض يقوم الكود باظهار انه حقل مطلوب تعبئته و المطلوب : اظهار التسميه التوضيحة بدل الاسم البرمجي للكائن . و كذلك عدم اظهار اي اسم لكائن مخفي في النموذج . ولكم جــــــزيل الشكر user.accdb
-
وعليكم السلام ورحمه الله وبركاته - حدد العمود الذي يحتوي على التواريخ في الجدول. - انقر بزر الماوس الأيمن داخل العمود المحدد. - اختر "تنسيق الخلية" من القائمة المنسدلة. - في نافذة "تنسيق الخلية", انتقل إلى علامة التبويب "عدد". - اختر "تاريخ" من القائمة على اليسار. - اختر التنسيق المطلوب للتواريخ أو قم بإنشاء تنسيق مخصص إذا لزم الأمر. - انقر على "موافق" لتطبيق التغييرات. بهذا، سيتم تطبيق التنسيق الجديد على جميع الخلايا في العمود الذي تم تحديده والذي يحتوي على التواريخ. جرب الخطوات دي وشوف إن شاءالله هتظبط معاك ولو مظبطتش لا قدر الله تفيدنا بالمرفق وإن شاء الله تتعمل علطول زي محضرتك عايز
-
طلب دالة ذكية للبحث عن رقم معين بعد نص معين
Abo-Abd Allah replied to nssj's topic in قسم الأكسيس Access
السلام عليكم ورحمه الله وبركاته انا حاولت اعمل الي حضرتك عايزه واتمني ان تجد المطلوب فى المديول الموجود وطبعا لانى معرفش مدى صحه الارقام اللي حضرتك كاتبه فعملت دالتين فى المديول هتلاقي كل ماكرو يشغل واحده منهم شوف ايه الانسب ليك عشان انت تقدر تراجع بياناتك بدقه عنى Smart_Search_function.accdb -
mansour hakmai joined the community
-
زر لحفظ بيانات النموذج ولا يمكن التعديل عليه وزر للتعديل عليه
الحلبي replied to الحلبي's topic in قسم الأكسيس Access
استاذى قرأت هذا الموضوع سابقا ورايت فيه فعلا روعة فى الاكواد والوحدات النمطية حضرتك ذكرت فى الشرح استخدام كلمة المرور لمليون نموذج سوف استفيد من هذه المعومة واستعيرها حتما فى بعض النماذج جزاك الله كل خير -
الإخوة الكرام .. السلام عليكم ورحمة الله وبركاته عندي جدول (BOOKS) فيه أحاديث كلها موجودة في الجدول الرئيسي (TAB) وأريد معرفة أماكنها في الجدول الرئيسي وربطها به عبر المفتاح الأساسي (MNO) وأريد دالة ذكية تسهل هذه المهمة إن أمكن والجيد في الأمر أنه ليس المطلوب هو البحث التقليدي: اختيار كلمة أو أكثر من الحديث في الجدول (BOOKS) والبحث عنها في الجدول الرئيسي (TAB) الأمر بحمد الله أسهل .. على الأقل في تصوري المطلوب من الدالة أن تبحث عن رقم معين بعد نص معين * مثلا: في هذا الحديث من جدول (BOOKS) : المطلوب من الدالة أن تبحث في حقل (NASS) من الجدول الرئيسي (TAB) عن الحديث الذي فيه اسم الكتاب "مصنفات الحمامي" يليه الرقم (116)، واسم الكتاب من حقل (BookName)، والرقم من حقل (B_Hno) والحديث المطلوب هو في الجدول الرئيسي (TAB) ثم وضع الرقم (MNO) في جدول (BOOKS) وقد قمت أنا بوضع الأرقام الصحيحة المطلوبة في حقل (MNOX) * وغالبا ما يكون الرقم بعد اسم الكتاب مباشرة، ولكن قد يتأخر عنه في بعض المواضع، مثلا هذا الحديث في الجدول الرئيسي (TAB) فهذا الحديث موجود في جدول (BOOKS) في تسعة مواضع والدالة ستبحث انطلاقا من جدول (BOOKS) تبحث في حقل (NASS) من الجدول الرئيسي (TAB) عن الحديث الذي فيه اسم الكتاب "فوائد تمام" يليه رقم (168) وتضع رقمه، ثم تبحث مرة أخرى عن "فوائد تمام" يليه رقم (169) .. وهكذا * مع ملاحظة البحث عن الرقم كاملا، حتى لا يحصل خلط بين: فوائد تمام (312) // فوائد تمام (1312) أرجو أن أكون قد وفقت في شرح المطلوب ثم أرجو أن يكون بالإمكان عمل ذلك في أكسس لأن ذلك سيوفر لي الكثير من الوقت Smart_Search.accdb
-
اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته محتاح اجمع الوان المواد بناء علي شرط النوع ( اللون1 - اللون2 - اللون3 - اللون4 - اللون5 - اللون6 - اللون 7 )mas_s.rar ملف العمل
-
زر لحفظ بيانات النموذج ولا يمكن التعديل عليه وزر للتعديل عليه
ابو جودي replied to الحلبي's topic in قسم الأكسيس Access
على سبيل المثال يا دكتور @الحلبي فى هذا الموضوع شوف المرفق الأول لا يعتمد على الوحدات نمطية بينما قمت بعمل المرفق الثانى والذى يعتمد على وحدات نمطية انظر الفرق فى الاكواد داخل النموذج وكيفية استدعاء الوظائف بسهولة وانظر الى روعة لو اردت تنفيذ نقس الوظيفة فى اكثر من نموذج بدلا من اعادة نسخ الاكواد لكل نموذج فقط سطر يستدعى الدوال ولو لمليون نموذج -
زر لحفظ بيانات النموذج ولا يمكن التعديل عليه وزر للتعديل عليه
ابو جودي replied to الحلبي's topic in قسم الأكسيس Access
اولا اذا حضر الماء بطل التيمم من انا ليتم ذكر اسمى مع وبجوار اساتذتى العظماء الذين اتعلم وانهل من بحور علمهم واهيم فى ربوع افكارهم بارك الله لنا فيهم ورزقهم البركة فى العمر والعلم والعمل والاهل والولد انا عن نفسي افضل التعب في بلورة الأفكار حتى وان اخذت معي وقت وجهد كبيرين لانه لو تلاحظ احاول جاهدا وابدا ان تكون حلولى فى دوال و وظائف عامة حتى وان كان الكود معقد او كبير المهم ان التعب لن يكون الا فى المرة الاولى تخيل انه لا اريد حذف اى سجل او طباعة او فتح اى تقرير مهم الا بكلمة مرور فى كل مرة اكتب الاكود كلما احتجت عمل ذلك بينما الان فقط انقل نموذج كلمة المرور والوحدة النمطية وانفذ كل ما اريد بسطر واحد فى مليون تطبيق ومليون نموذج تحت أمر حضرتك طبعا تأمر وتتدلل -
ازاى اتحكم فى هوامش التقرير عن طريق وضع قيم فى فورم الاعدادات
hanan_ms replied to safaa salem5's topic in قسم الأكسيس Access
🌹 @ابو جودي مرفقك رائع استاذي 🥰 @Moosak اعتذر اضفة نموذج صاحب المكتبة العامرة ولكن ما لقية بمكتبتة مثل مرفقك 😂 -
زر لحفظ بيانات النموذج ولا يمكن التعديل عليه وزر للتعديل عليه
الحلبي replied to الحلبي's topic in قسم الأكسيس Access
الله عليك يااستاذ محمد عصام ونعم الشرح والتوضيح وسوف يأخذ فى الاعتبار الملحوظة الثغنونةـ وبهذا الشرح المتقن لا يكون عندى اى عذر فى اطبق هذا الشرح على جميع اعمالى واسمح لى استاذ محمد (فكرتنى بايام المذاكرة) هذ الشرح يحتاج منى وقفة ودراسة لهذا الشرح وكما تعودت لا اترك كلمة والا قد فهمتها واذا توقف معى شئ سوف ارجع لك الان اصبح لدى ثلاث حلول حل الاستاذ @AlwaZeeR وحل شيخنا الجليل @ابوخليل وحل باشمهندسنا @ابو جودي جزاكم الله خيرا جميعا وزادكم الله علما نافعا واشكركم من كل قلبى واسمحوا لى اشكر الاستاذ/ محمد عصام ابو جودى على تعبه وهذا الشرح الذى سوف ياخذ منى وقت كبير بارك الله فيكم جميعا -
ازاى اتحكم فى هوامش التقرير عن طريق وضع قيم فى فورم الاعدادات
ابو جودي replied to safaa salem5's topic in قسم الأكسيس Access
ما شاء الله بجد يا باش مهندسة @hanan_ms روعة تسلم ايدك وأفكار قمة في الابداع -
kkhalifa1960 started following كيف يمكن تحديث قيمة ل عدد من السجلات المفلترة
-
كيف يمكن تحديث قيمة ل عدد من السجلات المفلترة
kkhalifa1960 replied to أبو محمد سعيد's topic in قسم الأكسيس Access
استاذ @أبو محمد سعيد وحشتنا . حسب مافهمت تفضل طلبك بالمرفق ووافني بالرد . DDTestFilter-Update.rar -
ازاى اتحكم فى هوامش التقرير عن طريق وضع قيم فى فورم الاعدادات
ابو جودي replied to safaa salem5's topic in قسم الأكسيس Access
با نهار ابيض وجالك قلب تعدلى مرفقى بسهولة كده انتى بتهزرى يا باش مهندسة لا وبتقوليها فى وشى كمان تسلم ايدك بجد .. طبعا بهزر كل نرفقاتى ملك لاخوانى واخواتى الا شخص واحد الاستاذ @Moosak صاحب المكتبة العامرة جزاكم الله خيـــــــــرا وشرف لى يا باش مهندسة مشاركة حضرتك بجد والله -
ازاى اتحكم فى هوامش التقرير عن طريق وضع قيم فى فورم الاعدادات
hanan_ms replied to safaa salem5's topic in قسم الأكسيس Access
🌹🌹 عدلة مرفقك كان الخطأ عند\ تغير هوامش تغير حجم عرض الحقل في آخر اليمين فقط كود تحريك الحقول ان كان صفر فتتحرك سنتيمتر 8.2 واذا كانت 1 او 2 تقل سنتيمتر عرض التقريك بتحرك الحقل ليصل الى 7 او 6 او 5 فقط وتم اضافة الاطار لكل التقارير واماكنية تحجيم الاطار والغاء واضافة قائمة بكج التقارير ==================================================== هل يوجد دالة لتحجم آخر حقل لكل تقرير من الرأس الى تذليل الصفحة آخر اليمين ؟ (لتشغيل هوامش التقرير) في الوضع الحالي سأستخدم تقرير محجم بوضع التصميم للتشغيل الهوامش وتختلف التوسع بالحقل اذا كان التقرير بوضع الطولي او العرض (افقي ) @ابو جودي اشكر كثيرا استاذي 🌹❤️ Full Control Of Print Report التحكم في الطابعة وخصائصها طباعة التقارير.rar -
شكرا استاذنا Saleh Ahmed Rabie على تفاعلكم سلمت يداك
-
ظهور رسالة تخبر المستخدم أن جهاز الاسكانر غير موصل
qathi replied to qathi's topic in قسم الأكسيس Access
للرفع .. ارجو المساعدة للأهمية بارك الله فيكم -
ظهور رسالة تخبر المستخدم أن جهاز الاسكانر غير موصل
qathi replied to qathi's topic in قسم الأكسيس Access
استاذنا @Foksh متبقي ضهور المعالج الاسكانر في حالة انه موصل كما اخبرتك سابقاً -
فصل الجملة في الخلية الواحدة الى عدة خلايا
حسونة حسين replied to kkfhvvv's topic in منتدى الاكسيل Excel
وجزاكم مثله اخى الحمد لله الذي بنعمته تتم الصالحات -
فصل الجملة في الخلية الواحدة الى عدة خلايا
kkfhvvv replied to kkfhvvv's topic in منتدى الاكسيل Excel
جزيت خيرا زادتك الله من فضله -
زر لحفظ بيانات النموذج ولا يمكن التعديل عليه وزر للتعديل عليه
ابو جودي replied to الحلبي's topic in قسم الأكسيس Access
على بركة الله وبسم الله ولكن انا سوف اشرح ما تم عمله طبقا للمرفق وبعد ذلك سوف اخبركم برأى فى الاخر اولا الموديول باسم : basFormControlStatus الاكواد بداخلة كالتالى Option Compare Database Option Explicit ' Enum: RecordStatusEnum ' Description: Defines possible control statuses for record status. Public Enum RecordStatusEnum LockedStatus NewRecordStatus EditRecordStatus CurrentRecordStatus SaveRecordStatus End Enum ' Sub: SetRecordStatus ' Description: Sets the status of records in a form. Public Sub SetRecordStatus(frm As Form, status As RecordStatusEnum) ' Disable all editable controls by default SetControlsEnabled frm, False ' Enable or disable controls based on the specified status Select Case status Case NewRecordStatus ' Enable editable controls and move to a new record if applicable SetControlsEnabled frm, True If frm.Recordset.RecordCount > 0 Then DoCmd.GoToRecord , , acNewRec End If Case CurrentRecordStatus ' Enable editable controls if there are no records or it's a new record If frm.Recordset.RecordCount = 0 Or frm.NewRecord Then SetControlsEnabled frm, True Else DoCmd.RunCommand acCmdSaveRecord End If Case EditRecordStatus ' Enable editable controls for editing SetControlsEnabled frm, True Case SaveRecordStatus ' Save the record and disable editable controls DoCmd.RunCommand acCmdSaveRecord End Select End Sub ' Function: SetControlsEnabled ' Description: Enables or disables all editable controls in the form. Private Sub SetControlsEnabled(frm As Form, isEnabled As Boolean) Dim control As control For Each control In frm.Controls If IsEditableControl(control) Then control.Enabled = isEnabled On Error Resume Next ' Ignore errors if control doesn't support Locked property If isEnabled Then control.Locked = False Else control.Locked = True End If On Error GoTo 0 ' Reset error handling End If Next control End Sub ' Function: IsEditableControl ' Description: Determines if a control is editable. Private Function IsEditableControl(ctrl As control) As Boolean Select Case ctrl.ControlType Case acTextBox, acComboBox, acCheckBox, acOptionGroup, acOptionButton, acToggleButton IsEditableControl = True Case Else IsEditableControl = False End Select End Function Option Compare Database: تحدد كيفية مقارنة السلاسل النصية. في هذا الحالة، المقارنة ستكون باستخدام إعدادات قاعدة البيانات Option Explicit: تفرض التصريح الصريح عن المتغيرات قبل استخدامها، مما يساعد على تجنب الأخطاء النحوية في الكود تعريف التعداد (Enum) RecordStatusEnum: تعداد يمثل الحالات المختلفة لسجلات النموذج الحالات هي: LockedStatus: السجل مقفل ولا يمكن تحريره NewRecordStatus: إضافة سجل جديد EditRecordStatus: تعديل سجل موجود CurrentRecordStatus: حالة السجل الحالي، والتي قد تكون جديدة أو قائمة SaveRecordStatus: حفظ السجل ببساطة وبدون تعقيد تمثل الاختيارات المتاحة للمصمم اثناء استدعاء الدالة وكأنها مربع تحرير وسرد الدالة الاولى إعداد حالة السجل (SetRecordStatus) SetRecordStatus: دالة لضبط حالة السجلات في النموذج تقوم بتعطيل جميع عناصر التحكم القابلة للتحرير افتراضيا ثم تمكن أو تعطل عناصر التحكم بناء على الحالة المحددة وفى رأس الدالة يتم التعامل مع براميترات من خلال المتغيرات الاتية frm As Form : لتعريف الدالة عند استدعائها على النموذج الذى سوق يتم التعامل من خلاله status As RecordStatusEnum حالة السجلات بناء على الحالات التى تم كتابتها فى التعداد Enum تم استدعاء دالة فرعية نأتى اليها لاحقا SetControlsEnabled frm, False يتم التعامل مع الحلات كما نريد من خلال الاكواد حسب الرغبة وهنا كانت الرغبة فى عمل الاتى لكل حالة من خلال Select Case NewRecordStatus: تمكين عناصر التحكم القابلة للتحرير الانتقال إلى سجل جديد إذا كانت هناك سجلات موجودة CurrentRecordStatus: تمكين عناصر التحكم إذا لم يكن هناك سجلات أو إذا كان السجل جديدا أو حفظ السجل إذا كان موجودا EditRecordStatus: تمكين عناصر التحكم لتحرير السجل SaveRecordStatus: حفظ السجل وتعطيل عناصر التحكم القابلة للتحرير ---------------------------------------- الان أتى للدالة SetControlsEnabled والتى تم استدعائها فى الدالة السابقة وظيفتها تمكين أو تعطيل جميع عناصر التحكم القابلة للتحرير في النموذج فى هذه الدالة تم عمل حلقة تكرارية للدوران على العناصر لتأمينها ان لم تكن مأمنه ونلاحظ انها تعتمد على دالة اخرى IsEditableControl حيث تقوم بالدوران على كل عنصر تحكم في النموذج وإذا كان عنصر التحكم قابلا للتحرير (بناء على نتيجة دالة IsEditableControl) فإنه يتم تمكينه أو تعطيله حسب الحالة المحددة ---------------------------------------- وهنا ننتقل الى دالة تحديد عناصر التحكم القابلة للتحرير (IsEditableControl) وهى دالة تقوم بتحديد ما إذا كان عنصر التحكم قابلا للتحرير بناء على نوعه فأنها تعيد القيمة True إذا كان نوع عنصر التحكم هو TextBox أو ComboBox أو CheckBox أو OptionGroup أو OptionButton أو ToggleButton وتعيد False لبقية الأنواع الأخرى طبعا تم اختيار العناصر فقط TextBox أو ComboBox أو CheckBox أو OptionGroup أو OptionButton أو ToggleButton دون غيرها لانها هى العناصر المستخدمة فى ادخال البيانات افتراضيا ويمكن للمصمم طبعا تغير ما يريرد وفق اهوائه الان طريقة الاستدعاء SetRecordStatus ثم me لتعريفها على النموذج الحالى , ثم اختيار الحالة وهنا تظهر روعة التعداد (Enum) حيث ان القيم الموجودة فيه تظهر ليتمكن المبرمج بسهولة من اختيار الحالة ------------- ومن تلقاء نفسي قمت باضافة الوحدة النمطية باسم : basPasswordPrompt واكواد هذه الوحدة Option Compare Database Option Explicit Public strPasswordPrompt As String Public boolPasswordPrompt As Boolean ' Enum for different password statuses Public Enum EnumPassword PasswordNull PasswordIncorrect PasswordCancelled Confirmation UnsupportedAction End Enum ' Enum for different actions that can be executed Public Enum RequiredAction OpenForm OpenQuery OpenReport PrintReport DeleteRecords RunSQL CallFunction CallFunctionByForm ' New case for calling functions from the current form End Enum ' Subroutine to execute actions based on input parameters ' Parameters: ' frm - Reference to the current form ' actionType - Type of action to be executed ' itemName - Name of the item (form, query, report, function) to be executed ' CORRECT_PASSWORD - The correct password to validate (optional) Public Sub ExecuteAction(ByVal actionType As RequiredAction, ByVal itemName As String, Optional ByVal CORRECT_PASSWORD As String = "", Optional ByVal frm As Access.Form) ' Loop until password prompt is resolved Do ' Open password prompt form DoCmd.OpenForm "frmPasswordPrompt", , , , , acDialog ' Check if password prompt is entered ' Determine action based on password prompt Select Case True Case boolPasswordPrompt Select Case True Case Nz(strPasswordPrompt, "") = "" MsgPasswordPrompt (PasswordNull) Case strPasswordPrompt <> CORRECT_PASSWORD MsgPasswordPrompt (PasswordIncorrect) Case Else ' Perform selected action based on the action type Select Case actionType Case RequiredAction.OpenForm DoCmd.OpenForm itemName Case RequiredAction.OpenQuery DoCmd.OpenQuery itemName Case RequiredAction.OpenReport DoCmd.OpenReport itemName, acViewNormal Case RequiredAction.PrintReport DoCmd.OpenReport itemName, acViewNormal ' Open report in preview mode DoCmd.PrintOut ' Print report Case RequiredAction.DeleteRecords DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM " & itemName DoCmd.SetWarnings True Case RequiredAction.RunSQL DoCmd.SetWarnings False DoCmd.RunSQL itemName DoCmd.SetWarnings True Case RequiredAction.CallFunction ' Call the function specified in itemName using Application.Run Application.Run itemName Case RequiredAction.CallFunctionByForm ' Call the function specified in itemName using CallByName CallByName frm, itemName, VbMethod Case Else MsgPasswordPrompt (UnsupportedAction) End Select Exit Do End Select Case Else MsgPasswordPrompt (PasswordCancelled) Exit Do End Select Loop Exit Sub ErrorHandler: ' Display error message if any MsgBox "Error: " & Err.Number & vbCrLf & "Description: " & Err.Description, vbCritical Debug.Print Err.Number & vbCrLf & "Description: " & Err.Description On Error GoTo 0 End Sub '' Function to show a message based on password prompt status '' Parameters: '' status - The password status to display the message for 'Public Sub MsgPasswordPrompt(status As EnumPassword) ' Select Case status ' Case PasswordNull ' MsgBox "Password cannot be empty.", vbExclamation ' Case PasswordIncorrect ' MsgBox "Incorrect password.", vbExclamation ' Case PasswordCancelled ' MsgBox "Password entry cancelled.", vbInformation ' Case Confirmation ' MsgBox "Password confirmed.", vbInformation ' Case UnsupportedAction ' MsgBox "Unsupported action type.", vbExclamation ' End Select 'End Sub ' Function to display password prompt messages based on status Sub MsgPasswordPrompt(Optional ByVal ConfirmationStatus As EnumPassword = Confirmation) ' Password prompt messages Dim MSG_ENTER_PASSWORD As String ' "Please enter your password." MSG_ENTER_PASSWORD = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1580") & ChrW("1575") & ChrW("1569") & ChrW("32") & ChrW("1573") & ChrW("1583") & ChrW("1582") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1603") & ChrW("1604") & ChrW("1605") & ChrW("1577") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1585") & ChrW("32") & ChrW("1604") & ChrW("1604") & ChrW("1605") & ChrW("1578") & ChrW("1575") & ChrW("1576") & ChrW("1593") & ChrW("1577") Dim MSG_INCORRECT_PASSWORD As String ' "Incorrect password. Please try again." MSG_INCORRECT_PASSWORD = ChrW("1603") & ChrW("1604") & ChrW("1605") & ChrW("1577") & ChrW("32") & ChrW("1587") & ChrW("1585") & ChrW("32") & ChrW("1582") & ChrW("1575") & ChrW("1591") & ChrW("1574") & ChrW("1577") & ChrW("46") & ChrW("32") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1571") & ChrW("1604") & ChrW("1594") & ChrW("1575") & ChrW("1569") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1580") & ChrW("1585") & ChrW("1575") & ChrW("1569") Dim MSG_OPERATION_CANCELED As String ' "Operation canceled" MSG_OPERATION_CANCELED = ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1573") & ChrW("1604") & ChrW("1594") & ChrW("1575") & ChrW("1569") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1580") & ChrW("1585") & ChrW("1575") & ChrW("1569") Dim UNSUPPORTED_ACTION As String ' "Unsupported action type" UNSUPPORTED_ACTION = ChrW("1573") & ChrW("1580") & ChrW("1585") & ChrW("1575") & ChrW("1569") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1583") & ChrW("1593") & ChrW("1608") & ChrW("1605") ' "Password Prompt" Dim MSG_TITLE As String MSG_TITLE = ChrW("1605") & ChrW("1591") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1577") & ChrW("32") & ChrW("1603") & ChrW("1604") & ChrW("1605") & ChrW("1577") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1585") ' Display appropriate message based on status Select Case Nz(ConfirmationStatus, "") Case Is = "": MsgBox MSG_ENTER_PASSWORD, vbExclamation, MSG_TITLE Case EnumPassword.PasswordNull: MsgBox MSG_ENTER_PASSWORD, vbMsgBoxRight + vbExclamation, MSG_TITLE Case EnumPassword.PasswordIncorrect: MsgBox MSG_INCORRECT_PASSWORD, vbMsgBoxRight + vbCritical, MSG_TITLE Case EnumPassword.PasswordCancelled: MsgBox MSG_OPERATION_CANCELED, vbMsgBoxRight, MSG_TITLE Case EnumPassword.UnsupportedAction: MsgBox UNSUPPORTED_ACTION, vbMsgBoxRight + vbExclamation, MSG_TITLE End Select End Sub تعريف المتغ رات العامة strPasswordPrompt: سلسلة نصية لتخزين كلمة المرور المدخلة boolPasswordPrompt: متغير منطقي (Boolean) لتحديد ما إذا تم إدخال كلمة المرور أم لا تعريف التعدادات (Enums) اولا : Enum Password: تعداد يمثل الحالات المختلفة لكلمة المرور PasswordNull: كلمة المرور غير مدخلة PasswordIncorrect: كلمة المرور غير صحيحة PasswordCancelled: تم إلغاء إدخال كلمة المرور Confirmation: تأكيد كلمة المرور UnsupportedAction: الإجراء غير مدعوم ثانيا : Enum RequiredAction: تعداد يمثل الإجراءات المختلفة التي يمكن تنفيذها OpenForm: فتح نموذج OpenQuery: فتح استعلام OpenReport: فتح تقرير PrintReport: طباعة تقرير DeleteRecords: حذف سجلات RunSQL: تنفيذ استعلام SQL CallFunction: استدعاء دالة عامة من موديول ( وحدة نمطية ) CallFunctionByForm: استدعاء دالة من النموذج الحالي الدالة الرئيسية تنفيذ الإجراءا (ExecuteAction) هى دالة تقوم بتنفيذ الإجراءات بناء على نوع الإجراء طبقا للتعداد ( Enum RequiredAction ) المدخل وكلمة المرور الصحيحة تقوم بفتح نموذج إدخال كلمة المرور (frmPasswordPrompt) بناء على إدخال كلمة المرور يتم التحقق من كلمة المرور المدخلة طبقا للتعداد ( Enum EnumPassword ) إذا كانت الكلمة فارغة تعرض رسالة بأن كلمة المرور غير مدخلة إذا كانت الكلمة غير صحيحة تعرض رسالة بأن كلمة المرور غير صحيحة إذا كانت الكلمة صحيحة يتم تنفيذ الإجراء المحدد بناء على نوعه في حالة أي خطأ تعرض رسالة خطأ نلاخظ انه تم استخدام وظيفية الاختيار Optional ByVal CORRECT_PASSWORD As String = "" فى راس الدالة وذلك حتى لا يتم استخدام كلمة مرور واحدة ووحيدة وثابته بذلك يكون هناك مرونة فى استخدام كلمات مرور مختلفة والاستدعاء تتم بالطريقة التالية : 1. فتح نموذج: ExecuteAction RequiredAction.OpenForm, "FormName", "YourPassword" 2. فتح استعلام: ExecuteAction RequiredAction.OpenQuery, "QueryName", "YourPassword" 3. فتح تقرير: ExecuteAction RequiredAction.OpenReport, "ReportName", "YourPassword" 4. طباعة تقرير: ExecuteAction RequiredAction.PrintReport, "ReportName", "YourPassword" 5. حذف سجلات: ExecuteAction RequiredAction.DeleteRecords, "TableName", "YourPassword" 6. تنفيذ استعلام SQL: ExecuteAction RequiredAction.RunSQL, "SQLStatement", "YourPassword" 7. استدعاء دالة عامة من وحدة نمطية: استبدل "FunctionName" باسم الدالة التي تريد استدعاءها ExecuteAction RequiredAction.CallFunction, "FunctionName", "YourPassword" 8. استدعاء دالة او حدث من النموذج الحالي: استبدل "FunctionNameInForm" باسم الدالة التي تريد استدعاءها ExecuteAction RequiredAction.CallFunctionByForm, "FunctionNameInForm", "YourPassword", Me وطبعا مع جميع ما سبق استبدل "YourPassword" بكلمة المرور التى تريد ممكن مثلا تستدعى الدالة لاكثر من نمورذج بالشكل التالى ExecuteAction RequiredAction.OpenForm, "frmA", "123" ExecuteAction RequiredAction.OpenForm, "frmB", "000" ExecuteAction RequiredAction.OpenForm, "frmC", "789" من خلال دالة واحدة تستطيع استكمال اجراء من خلال كلمات مرور مختلفة وليس كلمة واحدة مثل قتح اكثر من نموذج وكل واحد يحتاج الى كلمة مرور غير كلمة المرور المستخدمه مع غيره ملحوظة ثغنونه اثناء الشرح قمت بتعديل دالة كلمة المرور -
فصل الجملة في الخلية الواحدة الى عدة خلايا
حسونة حسين replied to kkfhvvv's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته تفضل فصل الاسماء التي تحتوي على فاصل بينهم.xlsx -
السلام عليكم ممكن معادلة لفصل الجملة في الخلية الواحدة الى عدة خلايا كما في المثال المرفق جزيتم خيرا فصل الاسماء التي تحتوي على فاصل بينهم.xlsx
-
زر لحفظ بيانات النموذج ولا يمكن التعديل عليه وزر للتعديل عليه
الحلبي replied to الحلبي's topic in قسم الأكسيس Access
انا والله العظيم نفسى ربنا يجزيك كل خير ومش عارف اقولك ايه على حرصك الشديد بان يكون العمل كامل لا يابشمهندس انا منتظر الشرح -
نظرا للطلبات الحالية اظن انه يجب علينا التعديل على اكثر من كود للحصول على النتائج المتوقعة والتعديل كالاتي : Private Sub UserForm_Initialize() 'Code''''''''' '''''''''''''' ' 4اسم المخزن 'Code'''''''''' rw = d.keys ' Sort Combobox 1 Colmun "اسم المخزن" (5) tri rw, LBound(rw), UBound(rw) Me.ComboBox1.List = rw: Me.ComboBox1.ListIndex = 0 'Code'''''''''' 'Sort listbox2 Colmun "الكود" (1) 'القيمة (OneRng, 1) 'ترمز الى رقم العمود الهدف قم بتعديلها بما يناسبك P OneRng, 1, LBound(OneRng), UBound(OneRng) End Sub '******************************** Private Sub ComboBox1_AfterUpdate() 'Code'''''''' Next i rw = j.keys tri rw, LBound(rw), UBound(rw) 'Sort Me.ComboBox2.List = rw Set j = Nothing End Sub '************************************** Sub Filtre() 'Code''''''''''''''''' f.[R2] = Cpt1: f.[S2] = Cpt2 Me.TextBox2 = Format(CStr(f.[X2]), "#,##0.00") Me.TextBox1.Text = f.[t2] If f.[v2] = 0 Then Me.stocktr = f.[u2]: Me.TextBox1.value = f.[w2] Else _ Me.stocktr = f.[v2]: Me.TextBox1.value = f.[t2] 'Code''''''''''''''''' If Me.ComboBox1 = "*" And _ Me.CB_Pièce = "*" Then _ Me.ListBox2.Clear: SubTotal = "": PriceTotal = "": LabelCont = "": TextBox1 = "" End Sub مع نسخ هده الاكواد داخل اليوزرفورم Sub tri(a, gauc, droi) 'Combobox (1-2) ترتيب تصاعدي réf = a((gauc + droi) \ 2) g = gauc: d = droi Do Do While a(g) < réf: g = g + 1: Loop Do While réf < a(d): d = d - 1: Loop If g <= d Then temp = a(g): a(g) = a(d): a(d) = temp g = g + 1: d = d - 1 End If Loop While g <= d If g < droi Then Call tri(a, g, droi) If gauc < d Then Call tri(a, gauc, d) End Sub '********************** Sub P(a, V, gauc, droi) 'ترتيب البيانات على الليست بوكس بشرط رقم الكود réf = a((gauc + droi) \ 2, V) g = gauc: d = droi Do Do While a(g, V) < réf: g = g + 1: Loop Do While réf < a(d, V): d = d - 1: Loop If g <= d Then For k = LBound(a, 2) To UBound(a, 2) temp = a(g, k): a(g, k) = a(d, k): a(d, k) = temp Next k g = g + 1: d = d - 1 End If Loop While g <= d If g < droi Then Call P(a, V, g, droi) If gauc < d Then Call P(a, V, gauc, d) End Sub اظن اننا استطعنا تنفيد طلبك خطوة بخطوة وهدا افضل بكثير من التعديل على اكواد تم انشاءها مسبقا او طلب اكثر من طلب دفعة واحدة لتستطيع فهم طريقة اشتغال ملفك ويسهل عليك التعديل عليه عند الحاجة مستقبلا sell-the-first-quantity- V7.xlsm
-
زر لحفظ بيانات النموذج ولا يمكن التعديل عليه وزر للتعديل عليه
ابو جودي replied to الحلبي's topic in قسم الأكسيس Access
دكتور انا قمت بإضافة من تلقاء نفسي بما انك تريد اغلاق التعديل لابد من انك تريد حماية البيانات من التعديل عن طريق الخطأ وطبعا زر التعديل لن يقوم بهذه الوظيفة ان تم النقر عليه عن طريق الخطأ ومن اجل ذلك اضفت لكم هدية صغيرة والتي أتمني ان تلقي استحسانكم ورضاكم وتم التغلب على لون الحقول بل انتم الاجمل والاروع جزاكم الله خيـرا على دعواتكم الطيبة اهم شئ هل المرفق الان يلبى كل احتياجاتكم وتطلعاتكم كما اردتم يا دكتور حتى اقوم بالشرخ ام هناك فى نفسك حاجة ما تريد اضافتها او تعديلها ؟!