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

سلمت يداك استاذنا .. نعم اعتقد هذا الذي يريد وهذا مني تعديل بسيط على الشرط ، حتى نقفل عليه الباب 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

السلام عليكم 🙂 اذا عملنا برنامج على الاكسس 32بت ، وفيه مكتبات الوندوز الـ 32بت (لاحظ الرقم 32 في اسم المكتبة: comdlg32.dll) ، ثم شغلنا البرنامج على اكسس 64بت ، فنحصل على هذا الخطأ : . يوجد ملف في موقع مايكروسوف (مرفق نسخة Win32API_PtrSafe.zip) ، وفيه طريقة عمل مناداة النواتين : https://www.microsoft.com/en-us/download/details.aspx?id=9970 وتوجد مواقع مجهزة الكود للنواتين ، مثل (فقط ابحث عن الدالة ، واعمل نسخ/لصق للكود) : http://www.jkp-ads.com/articles/apideclarations.asp ------------------------------------------------------------------------------------------------------------------ ولكني هنا سأناقش كيف يمكننا تعديل المكتبة بدون الرجوع لهذه الروابط (للأسف ، سنضطر للرجوع لهذه الروابط لبعض المكتبات) !! والدوال التي استعملها هنا ، هي كأمثلة فقط ، والطريقة التي سنعمل بها هي ، ان نضع برنامج 32بت فيه الدالة ، ثم نفتح البرنامج بالاكسس 64بت ، ونبدأ نلاحق الاخطاء ونصلحها. وهناك 3 احتمالات فقط ، وسنناقشها جميعا ان شاء الله 🙂 الخطوة الاولى والاهم هي اضافة كلمة PtrSafe بعد كلمة Declare ، للنواتين 32بت و 64بت. أ. الدالة : Sleep نناديها بنواة 32بت هكذا : Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) وهنا مثال لعملها : 1.Sleep.32bits.accdb.zip عندنا الطرق التالية (وجميعها تعمل وصحيحة) لنبدا العمل لجعل المكتبة تعمل على النواتين 32بت و64بت (وستكون طريقة عملنا بأحد هذه الطرق لجميع المكتبات) : نلاحظ ان الفرق بين كود 32بت (اعلاه) ، واول كود 64بت (ادناه) هو اضافة كلمة PtrSafe بعد كلمة Declare ، والتي يقبلها نظام 32بت كذلك ، وفي الطرق الثلاثة التالية ، نستخدم نفس الكود رقم 1 ، ولكننا نغلفه بالامر IF# ، ولهذا المثال ، سوف استخدم الطريقة رقم 3 : '1 'Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) '2 '#If VBA7 Then ' Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) '#Else ' Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) '#End If '3 #If VBA7 And Win64 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If '4 '#If Win64 Then ' Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) '#Else ' Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) '#End If . ولكن ، لما نفتح الكود في الاكسس 64بت ، نلاحظ انه جعل كود 32بت باللون الاحمر : . على الرغم من البرنامج عمل لنا هذا السطر باللون الاحمر ، إلا ان الكود يعمل بطريقة صحيحة ، فلا تهتم به ، وبعد كل خطوة نعملها ، يجب ان نعمل Compile : حتى نعرف الخطأ التالي ، ونعدل عليه 🙂 ولما ما نحصل على خطأ ، فهنا نبدأ بتجربة البرنامج (على والاكسس 64بت ، والاكسس 32بت) ، حتى نتأكد بأنه يعمل بالطريقة الصحيحة ، والحمدلله ، هذه الدالة اصبحت جاهزة للعمل بالنواتين بهذا التغيير ، وتم تجربة الملف المرفق على النواتين🙂 وهذه النسخة بعد تحديثها للعمل على النواتين 32بت و64بت : 1.Sleep.64bits.accdb.zip ------------------------------------------------------------------------------------------------------ ب. الدوال: GetSystemDirectory ، GetWindowsDirectory ، GetTempDir نواة 32بت : Private Declare Function apiGetSystemDirectory& Lib "kernel32" _ Alias "GetSystemDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) Private Declare Function apiGetWindowsDirectory& Lib "kernel32" _ Alias "GetWindowsDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) Private Declare Function apiGetTempDir Lib "kernel32" _ Alias "GetTempPathA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long والبرنامج : 2.System_Directories.32bits.accdb.zip 64بت، خطوات التعديل ، بإضافة PtrSafe فقط: Private Declare PtrSafe Function apiGetSystemDirectory& Lib "kernel32" _ Alias "GetSystemDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) Private Declare PtrSafe Function apiGetWindowsDirectory& Lib "kernel32" _ Alias "GetWindowsDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) Private Declare PtrSafe Function apiGetTempDir Lib "kernel32" _ Alias "GetTempPathA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long وعمل البرنامج بشكل صحيح للنواتين : 2.System_Directories.64bits.accdb.zip ------------------------------------------------------------------------------------------------------ ج. الدالة: EnumFontFamilies عرض الخطوط fornts في مربع تحرير وسرد في الاكسس - قسم الأكسيس Access - أوفيسنا (officena.net) لأخونا @kanory 🙂 32بت : Private Declare Function EnumFontFamilies Lib "gdi32" Alias "EnumFontFamiliesA" (ByVal hdc As Long, ByVal lpszFamily As String, ByVal lpEnumFontFamProc As Long, lParam As Any) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare Function GetFocus Lib "user32" () As Long والبرنامج: 4.Kan_Fonts.32bits.accdb.zip 64بت، خطوات التعديل ، بإضافة PtrSafe فقط: Private Declare PtrSafe Function EnumFontFamilies Lib "gdi32" Alias "EnumFontFamiliesA" (ByVal hdc As Long, ByVal lpszFamily As String, ByVal lpEnumFontFamProc As Long, lParam As Any) As Long Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare PtrSafe Function GetFocus Lib "user32" () As Long - لما نعمل Compile نحصل على الخطأ في السطر التالي: . اذن الخطأ في المتغير الثالث من الدالة EnumFontFamilies ، والذي نوعه Long ، فيجب تغييره في الدالة الى LongPtr ، الخطوة الثانية تغيير النوع Long الى LongPtr في الدالة وطبعا اذا عملنا التغيير على السطر اعلاه، فالنواة 32بت ستعطيك خطأ هنا ، لذا يجب تغليف الدالة بالامر IF# ، هكذا : . وعند عمل Compile مرة اخرى ، لا نحصل على خطأ ، والبرنامج يعمل بطريقة صحيحة ، البرنامج يعمل بطريقة صحيحة : 4.Kan_Fonts.64bits.accdb.zip ------------------------------------------------------------------------------------------------------ د. دعوة لتجربة الاصدار الثالث من برنامج القران الكريم - صفحه 2 - قسم الأكسيس Access - أوفيسنا (officena.net) برنامج الذكر الحكيم لأخونا @ابا جودى 🙂 برنامج 32بت: 5.الذكر الحكيم V. 3.0.2.32bits.mdb.zip وقبل تشغيله على 64بت ، نضيف الامر PtrSafe الى جميع الدوال ، سواء لنواة 32بت او 64بت (ومنها تم عمله) ، ومنهم : Private Declare Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As Long, clr As Long) '---color Picer الى Private Declare PtrSafe Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As Long, clr As Long) '---color Picer والنتيجة تمام : 5.الذكر الحكيم V. 3.0.2.64bits.mdb.zip ------------------------------------------------------------------------------------------------------ هـ. عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 3 - قسم الأكسيس Access - أوفيسنا (officena.net) مع ان الوحدة النمطية Shell_n_Wait تم اخذها من هذا الموقع : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas والتي تم عملها للنواتين 32بت و64بت ، ولكن لايزال البرنامج يعطي اخطاء في بيئة 64بت ، فنفتحة في برنامج 64بت ، نضيف الامر PtrSafe الى جميع الدوال ، ونعمل Compile ، وجدنا خطأ ، ونلاحظ اننا ننادي الدالة MoveWindow والتي تعطي قيمتها الى المتغير retval : . والآن لنرى الدالة نفسها ، ولكن الدالة جاهزة من الاصل للنواة 64بت ، ولا تحتاج الى تعديل : . وبعد التمعن ، نرى ان الخطأ موجود في نوع المتغير retval ، حيث اننا اعلنا انه Long ، بينما في بيئة 64بت نلاحظ انه LongPtr ، فالحل يكون ، اما ان نعمل IF# في الكود الاول ، واما ان نوقف الاعلان في الكود الاول ، ونضيفه في الكود الثاني ، كل حسب نوعه ، وانا سأعمل المقترح الثاني: #If VBA7 Then Declare PtrSafe Function MoveWindow Lib "User32.dll" (ByVal HWnd As LongPtr, ByVal X As LongPtr, ByVal Y As LongPtr, ByVal nWidth As LongPtr, _ ByVal nHeight As LongPtr, ByVal bRepaint As LongPtr) As LongPtr Public retval As LongPtr #Else Declare Function MoveWindow Lib "User32.dll" (ByVal HWnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal bRepaint As Long) As Long Public retval As Long #End If . نعمل Compile مرة اخرى ، لنحصل على الخطأ التالي: . والدوال: . فالحل هو ان نغلف الدوال بالامر IF# ، ونجعل بيئة 64بت ان يكون LongPtr ، فقط للمتغير الاول لهذه الدالة ، . نعمل Compile مرة اخرى ، لنحصل على الخطأ التالي: . والتعديل : . وهكذا الى بقية الاخطاء المشابهة ..... الخطأ التالي ، والغير عن الاخطاء اعلاه : . بالبحث ، لا نجد له دالة ، وانما نجد انه تم الاعلان عنه: . فيجب حذفه من هذا الاعلان ، وإضافته الى التغليف IF# ، فيكون اعلاه للبيئة 32بت ، واما للنواة 64بت فيكون LongPtr ، وبعد جميع التعديلات ، تكون النسخة تعمل على النواتين ، كما في المرفق: عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 4 + عمل نسخ احتياطية - قسم الأكسيس Access - أوفيسنا (officena.net) ------------------------------------------------------------------------------------------------------ واخيرا: و. دالة فتح نافذة اختيار/حفظ الملف: GetOpenFileName و GetSaveFileName والتعديل على هذه الدوال لا يعتمد على التغليف IF# ، وجعل الاعلان عن المتغير فيه ، ونما نحتاج الى تغيير Len الى LenB ، ونحتاج الى تعديل هذه الجزئية كذلك: . وهذا الملف للنواتين: 9.Allow_ByPass_Key.64bits.mdb.zip بهذه الطرق ، نستطيع ان نحول برامجنا لتعمل على نواتي اكسس 32بت و64بت 🙂 الموضوع فني بحت ، وتحتاج ان يكون عندك نواتي اكسس ، حتى تعدل على النواتين ، ثم تجربهم الاثنين 🙂 ------------------------------------------------------ وهناك طريقة ثانية ، اعتقد بأنها اسهل واستعملها دائما : جعفر 1.Sleep.64bits.accdb.zip 1.Sleep.32bits.accdb.zip Win32API_PtrSafe.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

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

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

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

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

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

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

انا اخبركم مشكلتكم ، والوسيلة التي قد استخدمها اخوي أبو إبراهيم (انظر للصورة ادناه) : اذا فتحت ملف txt مباشرة عن طريق برنامج Notepad ، فستجد بيانات غير مرتبه ، بينما اذا استعملت برنامج متخصص لقراءة نصوص البرمجة ، مثل البرنامج المجاني ++Notepad ، فسترى انه يعطيك المعلومات المطلوبة 🙂 . والسؤال هنا ، ولإثراء الموضوع ، يا ترى اي برنامج استعمل اخونا أبو إيراهيم لفك هذا الطلسم 🙂 جعفر

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

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

إليكم أيها الزملاء برنامج كنترول Control2021pro لكنترول هذا العام البرنامج للمرحلتين الابتدائية و الاعدادية: البرنامج سهل وبسيط ويشمل على : للترمين- لكشوف للنتيجة بعد انهاء الرصد للترمين - شهادات للترمين - كشوف الجان بالاضافة إلى سرعة عالية جدا فى اداء العمليات الحسابية والمعالجات المختلفة و يمكن التحكم فى كل وظائف البرنامج بواسطة لوحة التحكم ارجو منكم تجربته وأنتظر تعليقاتكم ... تـــم رفع أخر تعديلات للبرنامج هنا 161502775899311.rar

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

اخر اعمالي في الاكسس، برنامج ادارة المختبرات الطبية. علما انها responsive اي انها تتحجم تبعاً لاختلاف حجم الشاشات

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

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

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

السلام على جميع الاخوة الافاضل اما بعد : بعد المعلومات الكثيرة التي استفدت منها من خلال هذا الموقع الذي اصبحت مدمنا عليه ولا استطيع مفارقته افادني الاساتذة الى ضرورة عدم الاكثار من ادراج يوزرفورم في الملف حتى لا يأخذ حجم كبير و يكون خفيف نوعا ما لذلك هناك العديد من الاخوة و انا واحد منهم من يفضل عمل فورم واحدة لتقوم بمختلف العمليات وحتى استغني عن فورم ادراج رقم سري للدخول الى الملف وجدت العديد من الملفات التي حملتها من بعض المواقع الاجنبية يفضلون استعمال 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

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

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

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