Hamdi Edlbi-khalf

أحسن الله إليك لقد كنت أبحث عن مثل هذه المعادلة تتجاوز المكررات عند الترتيب كون Rank لا تحقق ذلك بل تحدد الموضع في الأسطر

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

Sub AddFontShadow() Dim shad As Word.ShadowFormat Set shad = Selection.Font.TextShadow With shad Debug.Print "Blur: " & .Blur, _ "ForeColor: " & .ForeColor, _ "Obscured: " & .Obscured, _ "OffsetX: " & .OffsetX, _ "OffsetY: " & .OffsetY, _ "Style: " & .style, _ "Transparency: " & .Transparency, _ "Type: " & .Type End With End Sub كل الشكر لمن قدم الكود من موقع Stackoverflow

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

السلام عليكم أحتاج إلى أمر / كود فيجوال يمكنني من إضافة ظل إلى نص . خلال عملي لـ template في الوورد احتجت إلى هذا الأول و قد بحثت و لم أجد إجابة واضحة فلم أحصل على الطريقة الملائمة للاستفادة من الخاصية .FONT.shadow بانتظار إسهاماتكم بارك الله بكم .

السلام عليكم ريثما تحصل على الجواب من الأستاذ جعفر انظر إلى المرفق ... مع أني حتى اللحظة لم أعرف ما فائدة زر التصفية 660.2.Test2006.mdb

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

السلام عليكم أستاذي ألا يمكن ضم الحقول كلها في جدول واحد ثم جعل النموذج الخاص بكل نوع من الحركات يعرض الحقول للخاصة بها دون غيرها ؟

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

شكراً أستاذي لقد وجدت هذا في الرابط التالي https://stackoverflow.com/questions/16454621/what-does-a-percentage-symbol-mean-as-part-of-a-variable-name إلا أنه كان عن vb.net و أردت التأكد إن كان هذا ينطبق على vba & : Long % : Integer '# : Double ! : Single @ : Decimal ( currency ) $ : String جزاك الله كل خير

السلام عليكم كثيراً ما أشاهد في أكواد الأستاذ @سليم حاصبيا هذه الإشارة و لم أعرف ما هي وظيفتها شكراً لكم .

شكراً جزيلاً أستاذ @رمهان جزاك الله كل خير

السلام عليكم هذا الرسالة تظهر عندما يكون هناك اسم غير موجود في الجدول أو متغير في دالة بلا المحددات المناسبة . للأسف لن أتمكن اليوم من مشاهدة مرفقاتك.

أخي @Shivan Rekany لقد حاولت أن أجعل المجموع لكامل نطاق التحديد حيث يتم جمع الحقول المقابلة للأعمدة المحددة ثم يتم جمع النواتج بين السجلات . أحس أنني على الطريق الصحيح . و لكن لم أصل إلى الحل النهائي .

بقد وضعت في الاستعلام اسم لحقل غير موجود .

السلام عليكم هل جربت تبديل المستخدم في ويندوز ؟ فالمشكلة لها عدة أسباب منها وجود مراجع VBA مفقودة . إعدادات الأمان . على أي حال جرب الرابط التالي : https://www.kb.blackbaud.com/articles/Article/104311 استخدم الكود التالي : Public Sub Sendkeys(text as variant, Optional wait As Boolean = False) Dim WshShell As Object Set WshShell = CreateObject("wscript.shell") WshShell.Sendkeys cstr(text), wait Set WshShell = Nothing End Sub بناء على الرابط ضع هذا الأمر تحت نطاق إعلان الأحداث في كودك . لا تنفذ الكود على البرنامج بل على نسخة منه .

ما هو إصدار الويندوز لديك : https://www.kb.blackbaud.com/articles/Article/44890 هذا للويندوز ٧ رسالة الخطأ تظهر بسبب إعدادات الأمان للمستخدم .

DATEADD("YYYY";1;[الحقل الذي ترغب بزيادة قيمته])

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

السلام عليكم أستاذ @Shivan Rekany لقد قمت بعمل ما يشابه الكود الذي قمت به و لكن بطريقة أبسط عندما نرغب بجمع عامود بالكامل نحدده فقط شريطة أن يكون هذا العمود NUMERIC أما عندما نرغب بجمع بعض السجلات في العمود فإننا نحدد العمود ثم نحدد بعده السجلات التي نرغب بجمعها لتنفيذ الطريقة يجب إضافة مربعي نص غير منضمين غير مربعي العدد و المجموع الكود المستخدم Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single) On Error Resume Next Forms![table1]![Text6] = Me.SelHeight Forms![table1]![Text13] = Me.SelTop If IsNumeric(Me.ActiveControl.Value) Then Forms![table1]![Text19] = Me.ActiveControl.Name Forms![table1]![Text15] = DSum(Forms![table1]![Text19], "table2", "[iD] between Forms![table1]![Text13] and Forms![table1]![Text6]+Forms![table1]![Text13]-1 ") ElseIf Forms![table1]![Text19] = "num1" Then Forms![table1]![Text15] = DSum("[num1]", "table2", "[iD] between Forms![table1]![Text13] and Forms![table1]![Text6]+Forms![table1]![Text13]-1 ") ElseIf Forms![table1]![Text19] = "Name2" Then Forms![table1]![Text15] = DSum("[Name2]", "table2", "[iD] between Forms![table1]![Text13] and Forms![table1]![Text6]+Forms![table1]![Text13]-1 ") End If End Sub حقل يعد و يجمع السجلات المحدة في نموذج فرعي2.accdb

أخي @Shivan Rekany فعلاً طريقة رائعة و ربما لها الكثير جداً من التطبيقات . سلمت يداك و شكراً لصاحب السؤال على هذا السؤال الرائع

الطريقة كانت ثلاث مربعات غير منضمة و استخدام هذا الأمر ... Forms![table1]![Text6] = Me.SelHeight Forms![table1]![Text13] = Me.SelTop Forms![table1]![Text15] = DSum("name2", "table2", "[iD] between Forms![table1]![Text13] and Forms![table1]![Text6]+Forms![table1]![Text13]-1 ") يوضع في حدث MOUSEUP في نموذج الفرعي قبل إضافته إلى النموذج الرئيس حيث ستكون طريقة العرض داتاشيت حقل يعد و يجمع السجلات المحدة في نموذج فرعي1.accdb

السلام عليكم هذه تجربة و محاولة لقد أدت المطلوب لكن ربما للأساتذة رأي أكثر احترافية .. خاصة أني أرى أستاذي @Shivan Rekany و هو من هو و كم له من معلومة قيمة استفدتها منه بارك الله به و بالأساتذة الكرام . تعديل :و ضعت المرفق في المشاركة التالية

السلام عليكم مصدر الكود هو : https://bytes.com/topic/access/answers/940764-count-selected-record-datasheet قمت بالتعديل عليه و إضافته إلى نموذج من نوع داتاشيت و إضافته كنموذج فرعي عندي قمت بمباشرة العمل فور مُشاهدتي لسؤالك لذا لم يتح لي رؤية الردود و المرفق الكود بعد التعديل : ' في حدث mouseup من النموذج بصيغة داتا شيت الذي سنأخذ منه النموذج الفرعي الذي سنضمه FORMS![النموذج الرئيسي]![counter] = me.selheight