نجوم المشاركات

شكر واجب للعضو المتمير kaser906 على المجهودات الرائعة

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

تفضل txtdate2= DateAdd("m";"-8";[txtdate1])

استبدل الكود السابق بهذا الكود Dim x x = DLookup("[tozeh]", "tbl", "Auto_id =[المعرف]") If x = 0 Then Me![جهة التوزيع].Locked = True Me![جهة التوزيع].Enabled = False ElseIf x = -1 Then Me![جهة التوزيع].Locked = False Me![جهة التوزيع].Enabled = True End If ::بالتوفيق::

إخوتي الفضلاء أقدم من مكتبتي تطبيق التقويم لتثبييت المواعيد والأحداث ، وقد إستخدمت الفكرة و أجزاء من التطبيق في كثير من التطبيقات الخاصة وهو منظومة للتقويم ولتثبيت المواعيد و الأحداث ، ويمكن إظهار التقويم كنموذج لليوم و / أو الأسبوع و / أو شهر ويحاكي التصميم المستخدم في MS OUTLOOK آملاً عموم الفائدة والله من وراء القصد وهو حسبي ............ NA_Calendar.rar

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

يواسطة الدالة Vlookup لا ضرورة لادراج 8 معادلات يكفي معادلة في C16 واحدة وسحبها يساراٌ =VLOOKUP($F$13,'قاعدة البيانات'!$B$7:$I$500,COLUMNS($A$1:A1),0)

السلام عليكم هذا المرجع غير موجود عندي فاحضرته من الانترنت ولكن اكسس لم يقبل اضافته كمرجع بسبب امتداد الملف فهل من حل

الله يجزيك خير ورحم الله والديك أخي الكريم وجدت بالمرفقالسابق خلل في كود مصدر الحقل بالتقرير اليك المرفق التالي تم الاستغناء عن الاستعلامات وحذفهم تم انشاء حقل بالنموذج لتجميع المصاريف اليومية حسب التاريخ المدخل بالنموذج ::بالتوفيق:: Eadh2.rar

السلام عليكم اخي الكريم استخدم هذا الكود في حدث بعد التحديث لمربع النص تاريخ البداية me.newcol = year(me.firstDate) او من خصائص مربع النص الذي سيعرض العام فقط 2018 اكتب هذا التعبير =year([firstDate]) بحيث ان newcol هو اسم مربع النص الذي سيظهر السنة فقط 2018 و firstDate هو اسم مربع نص تاريخ البداية

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

تفضل تم تغير أسم المصروف في جدول مصروفات يومية وتغير نوعه الى حقل عملة ::بالتوفيق:: Eadh.rar

في النموذج أجعل الحقل الجديد = حقل تاريخ بداية التأمين وفي حقل التنسيق ضع yyyy ::بالتوفيق::

أشكرك أخي الكريم وهذا واجب علينا رد بعض الجميل لهذا الصرح الشامخ اشكرك أخي الكريم ابو زاهر

بسم الله الرحمن الرحيم اخواني في الله نظرا لان منتدى اوفيسنا من افضل المنتديات وهو يعتبر كنزا لرواد العلم .. حفظ الله اهله وصاحب هذا المنتدى .. يارب فقد آثرت ان اجمع درر الاعمال واضعها هنا لعل ذلك ينفع احدا ... فنشارك في الاجر والثواب من الله ===== ج90 المصفوفات array بحث بين تاريخين استعلام بيانات شخص .. فلترة بيانات اكسل vba للمتألقه ساجده العزاوي وهذا هو باب الكنز https://www.youtube.com/channel/UCSEHgnsy257rL_Wca02Tx_w/videos?disable_polymer=1 وعلى الله قصد السبيل

ممكن تجرب اخي الحل الي موجود في الدعم الخاص بمايكروسوفت كما هو موضح ادناه الرساله "يتعذر ازاحه الكائنات خارج ورقه العمل" عند محاوله ادراج صفوف او اعمده في ورقه عمل، و# الخيار تحديد اي شيء (اخفاء الكائنات) تحت ل# الكائنات، اظهار القسم في خيارات Excel. هذا خطا معروفه في بعض اصدارات Excel. علي الرغم من انه لم يتم تحديد هذا الخيار ب# شكل افتراضي، ف# من الممكن تعيين عن طريق الخطا عن طريق الضغط علي اختصار لوحه مفاتيح معينه (CTRL + 6). ل# حل الخطا، يجب تغيير الاعداد من لا شيء (اخفاء الكائنات) ل# كافه. يتم اسرع طريقه ل# تنفيذ هذا الاجراء ب# الضغط علي CTRL + 6. بدلا من ذلك، يمكنك تغيير الاعداد الموجود في خيارات Excel. ل# القيام ب# ذلك، انقر فوق ملف > خيارات > خيارات متقدمة. ملاحظة: في Excel 2007، انقر فوق زر Microsoft Office ، و# من ثم انقر فوق خيارات Excel. علي علامه التبويب خيارات متقدمه، قم ب# التمرير الي اعدادات خيارات عرض هذا المصنف. ضمن ل# الكائنات، اظهار، حدد الكل بدلا من لا شيء (اخفاء الكائنات). قد يكون طريقه مقصوده اخفاء الكائنات في المصنف الخاص بك. علي سبيل المثال، اذا كان لديك عدد كبير من الكائنات في المصنف الخاص بك، الانسحاب ل# اخفاء هذه الكائنات قد جعل المصنف اكثر استجابه. اذا كان الامر كذلك، يمكنك استخدام اختصار لوحه المفاتيح (CTRL + 6) ل# التبديل بين اظهار الكائنات و# اخفائها. يتعذر ادراجها او اخفاء الاعمده اذا كانت الرساله "يتعذر ازاحه الكائنات خارج ورقه العمل" (او رساله وورديد ب# طريقه مماثله) يستمر حتي بعد تطبيق الدقه السابقه، ف# قد يكون سبب وجود كائنات مثل تعليقات او الصور او المخططات في الخلايا من اتجاه نهايه شبكه ورقه العمل. مقدار اعمده يمكنك اخفاء او ادراج يقتصر علي عدد الاعمده بين الحافه اليسري ل# الكائن و# العمود الاخير في ورقه العمل (عمود XFD ). اذا كانت اكبر من هذا الرقم عدد الاعمده الذي تريده ل# اخفاء او ادراج في اي مكان اخر في ورقه العمل، سيتم نقل الكائن خارج ورقه العمل، و# ستري الرساله. ب# شكل عام، يمكنك اصلاح هذه المشكله عن طريق البحث عن الكائن التالفه عن و# اما حذفه او نقل بعد ذلك بعيدا عن نهايه ورقه العمل. فيما يلي بعض التلميحات ل# البحث عن الكائنات: ل# ب# سرعه الانتقال الي الخليه الاخيره في صف او عمود، اضغط علي انهاء، و# ثم اضغط علي مفتاح "السهم ل# الاسفل" او سهم ل# اليمين. ل# الانتقال الي اخر خليه علي ورقه العمل التي تحتوي علي بيانات او تنسيق، انقر فوق CTRL + END. ل# البحث عن و# ازاله التعليقات، اضغط علي F5. في مربع الحوار الانتقال الي، انقر فوق خاص. حدد التعليقات، و# من ثم انقر فوق موافق. ل# حذف التعليق، انقر نقرا مزدوجا فوق الخليه التي تحتوي علي التعليق، و# من ثم انقر فوق حذف التعليق. ل# العثور ب# سرعه علي الكائنات الرسوميه، ب# ما في ذلك المخططات و# الازرار، اضغط علي F5. في مربع الحوار الانتقال الي، انقر فوق خاص. تحديد كائنات، و# من ثم انقر فوق موافق. بعد العثور علي الكائن، يمكنك حذف او نقلها. ملاحظة: تحدث هذه المشكله عاده عند ادراج او اخفاء الاعمده. يمكن ان تحدث المشكله نفسها ل# الصفوف، و# علي الرغم من انه لن يكون شائعه سبب حد الصف كبيره في Excel 2007، مما يؤدي الي اقل من المحتمل ان يكون لديك وضع الكائنات في النهايه الخاصه ب# ورقه العمل. ل# الحصول علي مزيد من المعلومات و# الحصول علي تلميحات اضافيه حول استكشاف الاخطاء و# اصلاحها، راجع رساله خطا عند محاوله اخفاء الاعمده في Excel: "يتعذر ازاحه الكائنات خارج الورقه". اذا لم ينفع هذا الحل تكرم اخي مشكورا بإرفاق الملف الخاص بالمشكلة للإطلاع عليه و حل المشكلة

are you using any code in the excel sheet. my keyboard is not writing in Arabic sorry ,

الله يعطيه الصحه والعافيه ما يقصر

بارك الله لك وجزيت خيرا شكرا استاذ :kaser906 هو المطلوب فعلا والشكر موصول للاستاذ ابو ياسين المشولي ................................................................. لي استفسار بسيط اذا تكرمتم هل بالامكان عند قفل الحقل ان يتم تخطي الحقل المقفول وكأنه غير موجود فينتقل الي الحقل التالي

مرحبا اخوي محمد هل تريد العملية عبارة عن ادراج سجلات بالنموذج المستمر ؟ وهل هو ادراج جديد ام تعديل ؟ لانه لو افترضنا ان السجلات مدخلة من اول وتم تعديل الخيارات من الكمبو ؟ حسب تصوري : لديك جدول table3 وهو مصدر للكمبو ز ايش رايك يستند النموذج المستمر على الجدول هذا وعند الفتح يتم فلترة السجلات التي باكمبو فقط! ام تريد السجلات المحددة ومن خلال الكمبو تكون سجلات مدرجة بالجدول table2 ويضل الجدول table3 هو فقط مصدر للكمبو؟ وعلى فكرة موضوع الملتي فاليو جديد على المنتديات العربية ولحسن حظك ان عملت عليها زمان في لغة الدلفي تحياتي

السلام عليكم، تعرفنا في الدرس السابق على طريقة تصميم زخرفة بواسطة برنامج البوربوينت: تصميم زخرفة بسيطة بواسطة برنامج البوربوينت وشاهدنا الخطوات اللازمة لذلك.. ولكن ماذا بعد؟! هل سنكتفي بوضع هذا التصميم داخل العرض التقديمي فقط؟ طبعًا يمكن وضعه كمقدمة لعرض ما مثل هذا. أو زر لبداية العرض مثل هذا. أو حتى قصها ووضعها على الأطراف مثل هذا. الخيارات كثيرة كما نشاهد، ولكن ألا يمكن الاستفادة منه خارج البوربوينت بشكل منفصل؟ طبعًا وبشكل سهل جدًا، فكل ما علينا فعله هو تحديد الزخرفة، والضغط بزر الفأرة الأيمن والاختيار من القائمة الحفظ كصورة (Save as Picture…). حيث سيظهر مربع حوار الحفظ، سنجد الاسم الافتراضي للصورة (Picture1)، طبعًا نستطيع تغييره كما نريد، نحدد مكان الحفظ ثم نضغط حفظ (Save). وبهذا تتم عملية الحفظ. نهاية الدرس

السلام عليكم يمكن إعادة ضبط الطابعة الافتراضية لأكسس برمجيا على النحو التالي Function UF_REPORT_PROCESS(Optional REPORT_VIEW As AcView) Dim CUR_PRINTER As Printer '-- GET CURRENT DEFAULT PRINTER Set CUR_PRINTER = Application.Printer '-- SET NEW DEFAULT PRINTER Application.Printer = Application.Printers(Me.CMB_PRINTER_LIST.Value) '-- PRINT REPORT DoCmd.OpenReport Me.LST_REPORT_LIST, REPORT_VIEW '-- RETURN TO SYSTEM DEFAULT PRINTER Application.Printer = CUR_PRINTER End Function وهذا مثال مبسط: SET DEFAULT PRINTER.zip

سهل ممتنع والاهم هو الاسلوب المختلف في اختيار المواضيع المطروحة .... اعجبني هذا الدرس كثيرا تلمس وبشدة مايريده الطلاب المبتدئون وانا منهم جزاك الله عنا خيرا

واليك طريق اخر او غير كود الكومبوبوكس من هذا Private Sub ID_AfterUpdate() Me.time1 = Time() Me.Date1 = Date() End Sub الى هذا Private Sub ID_AfterUpdate() Me.time1 = Time() Me.Date1 = Format(Date, "yyyy/mm/dd") End Sub سيتم الحل ان شاء الله بدون الطريقة السابقة

غير هذا السطر من الكود الى " And [التاريخ] = #" & Format(Me.Date1, "YYYY,MM,DD") & "#") احيانا يصير المشاكل مع التواريخ لانه ما نحدد اي تاريخ مانريد اليك ملفك بعد تعديل منع تكرار التسجيل.rar

اتفضل جرب ووافيني بالنتيجة انا استخدمت هذا الكود Dim nTikrar As Integer nTikrar = DCount("[رقم الموظف]", "حضور", _ "[رقم الموظف]=" & Me.ID & _ " And [التاريخ] = #" & Date1 & "#") If nTikrar > 0 Then MsgBox ("هذا الاسم مسجلة اليوم") Exit Sub Else Me.idh = Me.ID Me.timeh = Me.time1 Me.dateh = Me.Date1 Refresh DoCmd.GoToRecord , , acNewRec End If منع تكرار التسجيل.rar

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