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

سلمت يداك استاذنا .. نعم اعتقد هذا الذي يريد وهذا مني تعديل بسيط على الشرط ، حتى نقفل عليه الباب Private Sub TIME_DEFULT_OUT_ARA_LostFocus() Dim Result As Double Dim Status As String Result = (Me.TIME_DEFULT_OUT_ARA - Me.TIME_ACTIVE_OUT_ARA) * 24 Me.TIME_DELAY_OUT_ARA = Result If Result < 0 Then Status = "لايوجد تاخير" ElseIf Result = 0 Then Status = "الوقت ممتاز جدا" ElseIf Result > 0 And Result <= 1 Then Status = "تاخير مسموح به" ElseIf Result > 1 Then Status = "تاخير غير مسموح به" End If Me.BECAUSE_DELAY_OUT_ARA = Status '-------------------------------- Me.txtDiffTime = IIf(Result < 0, "-", "") & Format(Abs(Result / 24), "hh:mm") End Sub

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

رأيك ورأيي واخينا @biskra تمثل وجهة نظر جديرة بالاحترام ويتبناها العديد من الاداريين ولكل مدرسة ادارية فلسفتها . اما بشأن عقلية المسئول فاحد انجح المسئولين بالمملكة امر بايقاف نظام الحضور والانصراف بالكامل في ادارته واتاح للموظف الذي عمله لا يتطلب مقابلة الجمهور الحضور في اي وقت خلال اليوم ولكن قيد الامر بانجاز عدد محدد من المعاملات وكانت فترت ادارته نقله نوعية لتلك الجهة وبدلا انجاز المعاملة في اسبوع اصبحت تنجز المعاملة خلال يوم واحد وجهة ادارية اخرى " معهد الادارة العامة " اثناء رئاسة د. محمد الطويل لم يكن هناك نظام حضور وانصراف مع ذلك المعهد من انجح الادارات الحكومية و حاليا في نظام تقييم الموظفين المحافظة على وقت الدوام لا تمثل اكثر من 2% من الدرجة الكلية للتقييم للموظف التنفيذي ولا تزيد عن 2.6% للموظف القيادي 70% للاهداف التي حققها الموظف التنفيذي والتي يتم الاتفاق عليها مع الموظف في بداية دورة الاداء السنوية و50% للوظائف القيادية 30% للجدارات للتنفيذي وعددها 18 منها المحافظة على وقت الدوام و50% للوظائف القيادية وعددها 22 مع ملاحظة ان عدم الالتزام بوقت الدوام يأثر سلبا على مقدرة الموظف على تحقيق الاهداف المطلوبة منه وحتى لو استطاع تحقيقها فان عدم الالتزام يأثر على بقية الجدارات لكون الامر مرتبط حس المسؤولية بعناصرها الثلاث التعاون بعناصره الاربعة التواصل بعنصريه التوجه بالنتائج بعناصره الثلاثة تطوير الافراد بعنصريه الارتباط المهني بعناصرة الاربعة ووللوظائف القيادية هناك جدارة القيادة وعدد عناصرها 4 اعتذر على الاطالة اخي الهاوي ولكن اردت ايضاح الامر من وجهة نظر ادارية اخرى مع اطيب تحياتي

ارجو ان المثل القائل : " على نياتكم ترزقون " ينطبق علي كان قصدي تلطيف الجو

واجابة على هامش الموضوع نقول "الوقت ممتاز" من وجهة نظري الحضور في الوقت المحدد والخروج في الوقت المحدد مع ذلك حضور الموظف وانتظامه في العمل يمثل عنصر واحد من ضمن 18 عنصر تمثل الجدارات الاساسية لقياس اداء الموظف التنفيذي وعنصر واحد من ضمن 22 عنصر تمثل الجدارات الاساسية للوظائف القيادية المتوسطة والعليا

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

عليكم السلام والرحمة استاذ ازهر عبد العزيز تفضل هذه المحاولة حسب فهمي لطلبك XY.rar

السلام عليكم تفضل المرفق الأعمدة F:H أعمدة مساعدة وقد أخفيتها ، تستطيع إظهارها قيمة التذاكر.xlsx

تنقيذ مني "عمياني" حرفيا كما طلبت. test time4.rar

اخوي ابو ابراهيم 🙂 انزلت المرفق قبل ان اضع مشاركتي السابقة ، وفي الواقع كنت مستغرب ليش انك عملت جدولين ، مع اني شفت ان بياناتهم مختلفة ، ولكن وبعد تعليقك عن النظر في شفرتك ، قررت ان استورد الملف عن طريق الاكسس تلقائيا ، والذي اكتشف ان الفاصل بين الحقول هو Tab ، ولكني تفاجأت بأن المرفق عبارة عن جدولين مدمجين في ملف واحد ، او كما اسميته انت Header ثم تحته بياناته الخاصة به (مما يجعلني اعتقد بأن صاحب الموضوع لم يصدّر الجداول ، وانما قام بتصدير التقارير) ، فعليه القيت النظر على شفرتك بالتفصيل ، وكانت جدا واضحة وجدا مختصرة (وليست مختزلة فهذا تخصص اخونا @رمهان) ، كعهدنا بعملك 🙂 جعفر

Import Data from oracle Report.zip

السلام عليكم 🙂 برامج الاكسس ممكن ان يصيبها العطب corruption لعدة اسباب ، وبرامج تصليح العطب يجب ان تكون من ضمن مكتبة برامج المبرمج 🙂 يُعتبر برنامج DataNumen Access Repair من احد البرامج المهمة في اصلاح ملفات الاكسس المعطوبة ، والآن الشركة تعطي النسخة الاحدث 2.9 للإستعمال الشخصي الغير تجاري ، مجانا ، من موقعهم : https://www.datanumen.com/access-repair/ انزلته وجربته ، بس لاحظت ان البرنامج بطيء بالمقارنة مع بعض البرنامج الاخرى ، ولكن لا تنسى أنها نسخة مجانية (للإستعمال الشخصي الغير تجاري) 🙂 جعفر رجاء استعمل رابط الشركة حتى تنزل آخر نسخة هناك ، بينما ارفق هنا النسخة 3 (احتياطا ، اذا غيرت الشركة رأيها لاحقا والغت النسخة المجانية ، فتكون عندنا هنا النسخة المجانية 🙂 ) daccr.zip

وعليكم السلام اخى ابومحمد وفيك بارك الله ورحم الله والديك وجميع اخوانى واساتذتى جزاهم الله عنا كل خير بالنسبه لسؤالك فانت تدخل التاريخ فقط لان علامه اكبر من مكتوبه بالكود فالسطر التالى If rs("DAT") > dDate Then بالتوفيق

نعم استاذ جعفر .. هذا لا تنتطح فيه عنزان اما الحقل المصنوع لا ادري تبعاته مستقبلا .. حيث تبادر الى ذهني وقتها التصدير والإلحاق

السلام عليكم اخى @ابو محمد 316 مشاركه مع اخوانى واساتذتى الافاضل @ابا جودى و @ابوخليل جزاهم الله كل خير وتاكيدا على كلامهم فهم السؤال نصف الاجابه وكان يجب عليك التوضيح اكثر من البدايه اتفضل حاجه على قد حالى ربما تكون ما تريد Function updateData(num As Integer, dDate As Date) On Error GoTo HandleError Dim db As DAO.Database Dim rs As DAO.Recordset ' Dim dDate As Date ' Dim num As Integer strSQL = "SELECT Tbl1.N, Tbl1.ID, Tbl1.DAT FROM Tbl1;" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) ' num = 4 ' dDate = #1/1/2010# If DCount("[ID]", "Tbl1") > num Then MsgBox "ÚÏÏ ÇáÓÌáÇÊ ÃßÈÑ ãä " & num Do While Not rs.NoMatch If rs("DAT") > dDate Then rs.Edit rs!id = Replace(rs!id, "111", "3") rs.Update End If rs.MoveNext Loop End If rs.Close Set rs = Nothing HandleExit: Exit Function HandleError: ' MsgBox Err.Description Resume HandleExit End Function بالتوفيق Database66.accdb

تعجز الكلمات عن الشكر استاد حفظك الله ورعاك من كل مكروه شكرا جزيلا لكن لو سمحت هل بالامكان جعل الازرار لاتحتفي فقط المسميات تتغيير

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

سؤال على الهامش: هل من يحضر على الوقت تماما أفضل من الذي يحضر قبل الدوام بساعة .. فكروا فيها وغير مطلوب الرد عليه. فأيهما يستحق أن نقول له "الوقت ممتاز" وأيهما نقول له "لا يوجد تأخير"؟!

هذا كل اللي عملته: Option Compare Database Dim web As Object ' Private Sub Form_Current() If Len(Me.txtPath & "") = 0 Then web.Navigate "about:blank" Else web.Navigate Me.txtPath End If End Sub Private Sub Form_Open(Cancel As Integer) Set web = Me.WebBrowser28.Object End Sub جعفر 1360.نسخ الملفات.accdb.zip

أسعد الله أوقاتك أخي الحبيب أبو عاصم، وبعد: 1- من قائمة (إزالة) اختر (حذف المسافات الزائدة بداية الفقرات) وستتم عملية المسح، إلا إذا كنت تقصد شيئاً آخر فليتك توضح بمثال. 2- في الجدول يوجد صفوف وأعمدة، فماذا تقصد بالكلمة الأولى؟ أضف أنه يوجد خيار لتحديد العمود الأول أو الصف الأول، فما المطلوب تحديداً؟ 3- في الفهرسة الآلية، فهرسة القصائد والأبيات الشعرية، يتم عمل شيء شبيه بذلك بعد إدراج الفهرس، وهنا شرح فيديو:

الاستاذ الكبير ابو خليل السلام عليكم ... جزاك الله خير على (قفل الباب عليه) وكانك قراءت افكاري ...حفظك الله واطال بعمرك بخير وصحة وعافية وليس لي ملاذ اطرح به اي فكره او مشكلة تعترضني الا في هذا الموقع الرائع فاتمنى ان يسع صدركم لي . حفظكم الله وجزاكم خيرا .

الاخ Hawiii ... جزاك الله خيرا وبارك فيك واعطاك من فيض علمه .... هذا الموقع هو الوحيد الذي ارتاده كلما عرضت لي مشكلة وهو صاحب الفضل في تطور مستواي ولذا اعتدت ان اجد الحلول هنا ولم يخيب ظني يوما ، ولذا ادعو لهم بالتوفيق دائما فنعم الاساتذه والاخوة فجزاهم الله خير الجزاء ... ارجو ان لاتكون قد انزعجت مني واعتذر ان بدرت مني عبارة مسيئة او تصرف غير مقصود ... حفظك الله وسلمك واسالكم الدعاء لي ولعائلتي بالشفاء من وباء كورونا .

هذه الطريقة افضل كثيرا شكرا شكرا استاذ سليم لا اجد الكلمات المناسبة لشكرك .

طريقة اخرى اكثر تفصيلاً الصفحة ALL_In One من هذا الملف Salwa_1.xlsm

السلام عليكم و رحمة الله تعالى و بركاته بعد أن أنهينا الشطر الأول الخاص بالتعامل مع الويب من الأكسس بإستخدام أداة WebBrowser و هذا رابط الموضوع: نبدأ الآن بحول الله تعالى في الشطر الثاني و هو التعامل مع صفحات الويب بدون إستخدام أداة WebBrowser سوف نستخدم في هذا الموضوع طريقتين الأولى التعامل المباشر مع المتصفح Internet Explorer و الثانية بإستخدام سرفر معين الجزء الأول: التعامل المباشر مع المتصفح Internet Explorer في هذا الجزء إن شاء الله سوف نقوم بفتح نسخة من المتصفح Internet Explorer و نرسل لها بيانات أو نستقبل منها. سوف نستخدم مثال الأخ @ابوآمنة للتطبيق عليه بإرسال بيانات لنموذج غوغل من خلال متصفح خارجي: هذا هو الكود: Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = False Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.Document HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2 HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click Do ' Wait till the Browser is loaded Loop Until oBrowser.LocationURL <> sURL oBrowser.Quit MsgBox "لقد تم إرسال البيانات بنجاح" Me.n1 = "" Me.n2 = "" Err_Clear: If Err <> 0 Then Err.Clear Resume Next End If شرح الكود: Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String هنا قمنا بتعريف المتغيرات التي نحتاجها sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform" هذا رابط الموقع Set oBrowser = New InternetExplorer إسناد نسخة من جديدة من Internet Explorer للمتغير oBrowser oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = False السطر الأول هو إيقاف ظهور رسائل الأخطاء من المتصفح السطر الثاني تصفح الرابط sURL السطر الثالث التحكم في إظهاء أو إخفاء المتصفح أثناء العمل عليه Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE الإنتظار إلى حين تحميل الصفحة HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2 إرسال قيم للمربع الأول و الثاني HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click الضغط على زر إرسال Do ' Wait till the Browser is loaded Loop Until oBrowser.LocationURL <> sURL إجراء حلقة دورانية لا يخرج منها إلا عند تغير رابط الصفحة و ذلك عند الضغط على زر الإرسال oBrowser.Quit إغلاق المتصفح بعد إرسال البيانات للتجربة افتح المرفق و ادخل بيانات في المربع الأول و المربع الثاني و اضغط على زر الإرسال و لاحظ ماذا يحدث و للإطلاع على ظهور النتائج ادخل على هذا الرابط: https://docs.google.com/spreadsheets/d/e/2PACX-1vSi73gAAIE9Rv8Ux43jjcvq9SSpzdVzs3M3ZEtehWqqP0pW4NLFLnkX3Iqoc9dYm_cx8vPz9S1465zd/pubhtml ارسال بيانات لنماذج غوغل.rar

بما ان المرفق واضح ، ولكي تستفيد وتعرف مكان الخطأ في كودك ، رجاء ارفاق ما عملته 🙂 جعفر

العامود الأخضر من هذا الملف Abd_Date.xlsx

وعليكم السلام 🙂 الجواب هنا جعفر

جرب هذا الملف (صفحة Repport) فقط اضغط على الزر RUN Salwa.xlsm

قصدك للحقل الذي له مصدر بيانات في الجدول 🙂 جعفر

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

وعليكم السلام مرحبا ابا انس آخر سطر في الوحدة النمطية يوجد رقم 100 استبدله بالرقم 250

نعم أ. جعفر .. توقعك صحيح! فعلا استخدمت ++NotePad لتحليل البيانات.. هل أطمح في أن تمتعنا بتحلبل الشفرة؟ فأنا أتوق لذلك!

بارك الله فيك أستاذ محي كود ممتاز ويعمل بكفاءة هادي أحمد الكود تمام وشوف بنفسك يعمل بكل كفاءة

أعتذر عن هذا الخطأ Import Data from oracle Report.zip

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

أهلا بك.. أنت تريد استيراد البيانات بطريقة منسقة كما في الجدول! الملف النصي عبارة عن مسردات أوامر صرف.. وبناءً عليه: هناك بيانات رأسية تمثل بيانات أمر الصرف، وهناك بيانات تفصيلية تمثل بنود أمر الصرف.. على هذا الأساس قمت بإنشاء جدول جديد لأوامر الصرف يدعم جدول البيانات التفصيلة المرفق بمثالك حتى لا تتكرر البيانات في جدول واحد.. أرجو أن يكون هذا التحسين مرضيا لك؟ وإلا أرجعت لك البيانات في جدول واحد.. Import Data from oracle Report.zip

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

السلام عليكم أولا وضعت لك كود بالفورم لاستيراد البيانات من ملف التكست بالمرفق ولكن لم يعمل بشكل جيد لوجود مشكلة بملف التكست ربما تم استيراده من اراكل بشكل خاطئ حاول استيراده من أوراكل من الجدول أو الاستعلام مباشرة - فصيغت ملف التكست توحي بأنه تم استيراده من تقرير أو شئ مشابه فلا علم لي بأوراكل ملاحظة: لكي يتم استيراد البيانات من ملف التكست بشكل صحيح يجب أن تكون البيانات مكتوبة بشكل صحيح ويفصل بين الأعمدة بـ Tab هذا المرفق بعد التعديل لعله يفيدك بشئ ما Microsoft Access قاعدة بيانات جديد.accdb

جزاكم الله خيرا اخوانى واساتذتى د حسنين ممكن نطمع فى شرح لهذه النقطه فى موضوع مستقل منك

وعليكم السلام ورحمة الله وبركاته 🙂 شكرا لك اخي صالح على الشرح وبالتفصيل لهذه المواضيح المهمة 🙂 من تجربتي ، فالتصفح من داخل الاكسس عن طريق webbrowser ، والذي يستعمل ieFrame.dll ، والذي هو جزء من الانترنت اكسبلورر Internet Explorer ، لا يحتوي على جميع خواص Internet Explorer الكامل ، فهذا الموضوع سيكون اشمل و أعم 🙂 فانا هنا من المتابعين كذلك ان شاء الله ، وبصمت 🙂 جعفر

http://www.real-statistics.com/ موقع مميز للاحصاء من خلال الاكسيل

على فكرة انا مش عارف افهم اى شئ وللاسف فهم السؤال نصف الاجابة

جرب ووافنى بالنتيجة لو تكرمت Database6 (1).accdb

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

السلام على جميع الاخوة الافاضل اما بعد : بعد المعلومات الكثيرة التي استفدت منها من خلال هذا الموقع الذي اصبحت مدمنا عليه ولا استطيع مفارقته افادني الاساتذة الى ضرورة عدم الاكثار من ادراج يوزرفورم في الملف حتى لا يأخذ حجم كبير و يكون خفيف نوعا ما لذلك هناك العديد من الاخوة و انا واحد منهم من يفضل عمل فورم واحدة لتقوم بمختلف العمليات وحتى استغني عن فورم ادراج رقم سري للدخول الى الملف وجدت العديد من الملفات التي حملتها من بعض المواقع الاجنبية يفضلون استعمال input box بدلا من استعمال فورم . بدون اطالة اليكم اخوتي الكود التالي ربما يفيد بعض المبتدئين امثالي ولكم مني خالص عبارات الشكر. 'يوضع هذا الكود في this workbook Sub Auto_Open() Application.Visible = False Dim UserName As String UserName = InputBox("Please Enter Your USER NAME.") If UserName = "123456" Then ' اكتب هناالرقم السري للدخول MsgBox "Correct" UserForm1.Show 'هنا اذا كان لديك يوزر فورم اما اذا لم يكن لديك فورم يمكن مسح هذا السطر Exit Sub Else MsgBox "Incorrect" End If ActiveWorkbook.Save Application.Quit End Sub

الاستاذ ياسر اخي علي لديه طريقة وهي ان لا يعطيك كل شئ جاهز ولكن يعطيك 99%من الحل و الباقي هو ان تتعلم بنفسك قراءة الاكواد و كيفية ادراجها و هذه طريق اعتقد انها فعالة للمبتدئين امثالنا ...اليك ملف مرفق فيه الكود 'اذا كان لديك يوزرفورم تظهر بمجرد فتح الملف اضف التالي MsgBox "Correct" userform1.show mot de passe.rar

بارك الله فيك استاذ ياسر على مرورك الطيب وملاحظتك التي اعتز بها شكرا لك

بارك الله فيك أخي العزيز زيادة فكرة جميلة وبسيطة وأفضل من وجهة نظري من الفورم إذ أن المهم الأداء العملي والفعلي للملف ..لا مجرد جماليات وفارغ من المضمون

شكرا لك يالخيال