Hamdi Edlbi-khalf

شكراً لكم أستاذي، هذا من طيبكم.

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

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

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

السلام عليكم الكود يعمل على الفاير فوكس ويفتح النافذة نورمال XXX.accdb

السلام عليكم بما أنكم لم تحصلوا على الحل بعد إليك هذا الكود، لقد أثار سؤالكم فضولي وبعد البحث توصلت إلى الكود وقمت بتعديله على النحو الذي عمل لدي على جميع البرامج على حاسبي، مع ملاحظة أن ملفكم المرفق لم يعمل على جهازي. قم باستدعاء الأمر التالي بالأحداث: Public Sub MinimizeProgram() وذلك بعد وضع الكود الآتي في مودجال جديد، و الانتباه إلى المعايير والتي هي عبارة عن جزء من اسم التطبيق: criteria = "*CivilIdHtmlDemo*" الكود: Option Compare Database Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, _ ByVal param As Long) As Long Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ (ByVal hwnd As Long, _ ByVal lpString As String, _ ByVal cch As Long) As Long Public Declare Function fShowWindow Lib "user32.dll" Alias "ShowWindow" _ (ByVal lngHWND As Long, ByVal lngCommand As Long) As Long Dim lngHandle As Long Dim lngTemp As Long Public Const MAX_LEN = 260 ' you can use the Comment if you add (Microsoft Scripting Runtime) Library to the references. Public results 'As Dictionary Public criteria As String Public Sub MinimizeProgram() 'Edited By Hamdi-E 10/9/2020 'Officena Forums Khalf 'put a part Of the Targeted App Name criteria = "*CivilIdHtmlDemo*" Set results = CreateObject("Scripting.Dictionary") ' you can use the Comment if you add (Microsoft Scripting Runtime) Library to the references. ' Set results = New Dictionary Call EnumWindows(AddressOf EnumWindowCallback, &H0) Dim result As Variant For Each result In results.Keys lngTemp = fShowWindow(result, 1) ' the available values in the second parameter: 'vbHide 0 'vbMaximizedFocus 3 'vbMinimizedFocus 2 'vbMinimizedNoFocus 6 'vbNormalFocus 1 'vbNormalNoFocus 4 Next result End Sub Public Function EnumWindowCallback(ByVal hwnd As Long, ByVal param As Long) As Long Dim retValue As Long Dim buffer As String If IsWindowVisible(hwnd) Then buffer = Space$(MAX_LEN) retValue = GetWindowText(hwnd, buffer, Len(buffer)) If retValue Then If buffer Like criteria Then results.Add hwnd, Left$(buffer, retValue) End If End If End If EnumWindowCallback = 1 End Function الحمد لله الذي بنعمته تتم الصالحات، اللهم صلِ على سيدنا محمد وعلى آله وصحبه ومن ولاه وسلم تسليماً كثيراً.

السلام عليكم إن كان تاريخ الجهاز مضبوطاً بصورة صحيحة، فاحذف تاريخ التصفح من Internet Explorer ويفضل حذف الملفات المؤقتة من الجهاز. وإلم ينجح الأمر احذف النسخة الحالية وأعد تنصيب إصدار أحدث من المتصفح المذكور.

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

الحمد لله، وبارك الله بكم -أخي الفاضل-.

السلام عليكم إن كان الحاسب لم يظهر على بقية الحواسيب وقد فعلت عليه وعلى الحواسيب الأخرى الخواص التي وجدتها، ومن الغريب عدم upnp على الحواسيب الثلاثة. فجرب على حواسيبwin10 عند عدم تفعيل ويندوز ١٠، ستكون بعض الخيارات غير متاحة في واجهة المستخدم، مما يلجئ المسؤول إلى التلاعب بملفات الرجستيري، ولكن هذا لم يحصل معي مع الخدمة المذكورة المفقودة.

السلام عليكم أستاذd الفاضل: إلم تكن توصلت إلى طريقة لإظهار الجهاز على الشبكة، فهذا الخطوات قد تحمل الحل-إن شاء الله-: services >> Discovery : set the function to Automatic then start SSDP : set the function to Automatic then start upnp : set the function to Automatic then start على الأغلب هذه الخدمات كلها أو بعضها غير مفعلة في نسخة الويندوز في الحاسب الذي لا يظهر على الشبكة-بناء على تجرية سابقة لي-، وعلى أية حال قم بضبظها أوتماتيكياً على حاسبيّ ويندوز 10. هذا إن كانت إعدادات المشاركة المتقدمة قد ضبطت بالصورة المناسبة ولم تأتِ بالنتيجة المنشودة. بالتوفيق.

جزاكم الله كل خير.

السلام عليكم موضوع مثير وكبير، كنت أود تحضير منشور له، ولم يتح لي. معادلات إكسل الفريدة وتتسيقات خلاياه السهلة مما يفتقد وبشدة مع الأكسس، وكما تفضل الأستاذ @محمد أبوعبدالله باختصار هناك طريقتان لاستخدام معادلات إكسل في الأكسس الأولى من خلال : Creatobject وذلك ببناء كود فيجوال بيزك يستخدم صيغ إكسل. هذا رابط يقريب الفكرة مع الأسف لم يسعفني البحث بإيجاد رابط قديم واضح في هذا المجال. https://sfmagazine.com/post-entry/april-2018-access-using-excels-pmt-function-in-access/ أو بإضافة مكتبات إكسل كمرجع من محرر أوامر VBA هذا رابط لتقريب الفكرة. https://stackoverflow.com/questions/1776001/ceiling-function-in-access الطريقة الثانية باستخدام VBA بعمل ورقة إكسل ونسخ البيانات إلى هذه الورقة لتقوم بالعملية الحسابية المطلوبة ثم إعادة نسخهاللأكسس وقد استخدمتها لتحويل التاريخ من ميلادي إلى هجري مستفيداً من تنسيقات إكسل الفريدة. واستفدت من مكتبات إكسل بدوال التقريب مميزة كما تفضل الأستاذ محمد. وغيرها الكثير... بالتوفيق.

السلام عليكم من التجربة فأنت تستخدم أوفيس ٢٠١٦ في جهاز ليس به قارئ بي دي إف، الحل هو تنصيب قارئ بي دي إف أو استخدام أوفيس ٢٠١٠ مع ويندوز٧ كون هذه المشكلة لا تظهر عندها حتى مع عدم وجود قارئ بي دي إف.

السلام عليكم لقد حُلت المشكلة بتنصيب قارئ بي دي إف، فكي تظهر ملفات البي دي إف في عنصر المتصفح في إصدار أوفيس ٢٠١٦ يجب أن يُنصّب قارئ بي دي إف بينما لا حاجة لذلك مع أوفيس ٢٠١٠ وويندوز ٧، بناء على التجربة .

ألف مبارك.

بالتوفيق أخي

السلام عليكم الكود يعمل ، ولكن الحالة التي لم يؤثر بها -ضمن السجلات الخمسة في مثالكم -كانت بسبب كتابة القاهرة مرة بتاء مربوطة ومرة بالهاء. لماذا dfirst? يمكن استخدام dlookup وستكون النتيجة صحيحة. لو استخدمنا dlast فهذا يعني أن آخر سجل هو الذي ستُجلب البيانات منه وكما هو معلوم سيكون فارغاً. والهدف بطبيعة الحال هو عدم تكرار الإدخال ، فاللازم استدعاء البيانات من السجل الأول الذي سجلنا به البيانات.

غداً إن شاء أرسل المثال لكم أو يتفضل أحد الأخوة بالتعديل المطلوب

فقط ازل الأصفار من الكود وسيعمل إن شاء الله فقد وضعتها لضبط التنسيق كوني أكتب من الجوال .

If typ.defaultvalue = ""y"" then typ.defaultvalue = ""x""0 else typ.defaultvalue = ""y""0 End if ضعه تحت زر case في حدث عند النقر

السلام عليكم ضع هذا الكود تحت الزر Me.DefaultValue = """y"""

السلام عليكم TestEdit.mdb

السلام عليكم أرجو أن يلبي المرفق طلبك TestEdit.accdb

السلام عليكم هناك عدة طرق لعمل ذلك و الأفضل استخدام إحدى الطريقتين في المرفق: الأولى بجلب البيانات بالدالة Dlookup من جدول الأصناف بناء على مربع السرد و الحوار الخاص برقم الصنف . الثانية بنسخ قيمة الأعمدة من مربع السرد الحوار إلى الحقول المطلوبة. هاتان الطريقتان تسمحان بالتعديل على البيانات مثل تغيير سعر الوحدة من البضاعة في مثالنا، دون تغيير القيمة الافتراضية كما هو في طريقة ربط جدولين. BringValuesFrom-A-TableToAnother.accdb