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