ابوخليل

ترميز ASCII للحروف العربية يختلف عن ترميز الحروف الانجليزية وبالرغم من ان الرقم 201 يقابل التاء المربوطة والرقم 202 يقابل التاء المفتوحة الا ان مخرجات الارقام من 200 الى 204 متشابهة الى حد ما ولزيادة التوضيح انظر هنا http://www.barcoderesource.com/barcodeasciicharacters.shtml والحل ؟ في الطريقة المعروضة في المثال بحيث تتم التصفية مباشرة من العمود المستهدف بواسطة معيار محدد فحسب علمي القاصر لا يوجد حل للاسباب التي ذكرتها اعلاه مع ان هناك امكانية التصفية بطرق أخرى مثلا : بالتحايل واستخدام حقل آخر وسيط يوضع به المعيار سأنتظر قبل ان اطرح مثالي بالحل الاخير برجاء ايجاد حل حسب الطريقة الاولى من احد الاخوة الكرام

وإياك اخي الحبيب في وحدة نمطية عامة نلصق الجملة البرمجية التالية : Public Function qsplit(FullName As String, i As Integer) On Error Resume Next qsplit = Split(FullName, " ")(i) End Function لاحظ اننا انشأنا دالة جديدة بناء على الدالة الاصلية وجعلنا لها اسما قريبا من الدالة الاصلية حتى يتم التعرف عليها وعلى عملها من اول نظرة ولاحظ ايضا ما حدث لوسائط الدالة الاصلية وترتيبها حيث سيتم توظيف الدالة الجديدة داخل الاستعلام على النحو التالي : name1 : qsplit(FullName; 0) name2 : qsplit(FullName; 1) name3 : qsplit(FullName; 2) name4 : qsplit(FullName; 3) وفي المثال تطبيق للشرح والمقال : تجزئة النص.rar

السلام عليكم ورحمة الله وبركاته اخواني الاكارم تحية طيبة وبعد : الدالة Split هي المسؤلة عن تقسيم السلسلة النصية ويمكننا من خلالها ارجاع أو حذف الجزء الذي نحدده ويتم توظيفها في النماذج والتقارير داخل محرر الفيجوال على النحو التالي : name1 = Split(FullName, " ")(0) name2 = Split(FullName, " ")(1) name3 = Split(FullName, " ")(2) name4 = Split(FullName, " ")(4) - باعتبار FullName هو حقل الاسم الكامل علما انه يمكن كتابة الاسم داخل الكود بين علامتي تنصيص مزدوجتين وستقوم الدالة بارجاع الجزء المحدد - وما بين علامتي التنصيص " " الفاصلة التي على اساسها يتم تجزئة النص وهي هنا مسافة فارغة - اما الارقام (0) ، (1) ، (2) ... فهي ترمز الى مكان الجزء داخل النص الى هنا كل شيء يسير على ما يرام ولكن حين نريد استخدامها داخل الاستعلام نفاجأ بأنها لا تعمل وتظهر رسالة من الاستعلام بأن هذه الدالة غير معروفة والحل : ان نعقد بين الدالة والاستعلام صفقة عمل و تعارف ولن يتم لنا ذلك حتى نوجد للدالة مكان اقامة دائم في قاعدة البيانات الحالية وللدرس بقية : تعريف الدالة + التطبيق ان شاء الله

برنامج صغير الحجم عظيم الفائدة سهل التعامل لتحويل اكثر من صيغة الى امتداد ico ويمكنك ايضا من خلاله تحويل ico الى png الصق مجلد البرنامج في اي مكان على جهازك افتح المجلد ثم انقر على ايقونة البرنامج اذهب الى سطح المكنب تجد برنامجنا مفتوحا على شكل صندوق اصفر مفتوح اسحب الصورة وافلتها داخل الصندوق هذا كل شيء ... للتعديل على خصائص البرنامج والتحويل من والى انقر على الصندوق بزر الفأرة الأيمن ToYcon.rar

المسألة ترجع الى المستخدم فالبعض يحب التعامل مع واجهة واحدة ويرى انها افضل من توزيع المهام على اكثر من نموذج يعني هي مسألة ذوق لا اكثر . وفي مسألتك ان اردت الضم يمكنك توظيف مربع تحرير للبحث داخل نموذج hsmyat ويكون مصدره جدول الموظفين وفي حدث بعد التحديث تكتب DoCmd.GoToRecord , , acNewRec لفتح سجل جديد و Emp_No = combo لادراج رقم الموظف اما لو كان رقم الموظف معلوما فلست بحاجة الى البحث . فقط يكفي فتح سجل جديد ثم ادراج الرقم

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

تم التعديل حسب التعامل مع البيانات منطقيا كالتالي : 1- القائمة ومربع التحرير يجب ان يكون مصدر بياناتهما هو جدول الحسميات لا جدول الموظفين لاننا سنبحث عن اشخاص للتعديل على الحسومات 2- ولادراج موظف جديد والحسم عليه انقر زر جديد ثم ادرج رقم الموظف وبيانات الحسم ثم حفظ 3- بمجرد نقر زر الحفظ ستجد الموظف اندرج ضمن القائمتين 4- يمكنك البحث بالقائمتين في الوقت نفسه لان النتيجة واحدة taadel2.rar

اضبط اعدادات اللغة في الجهاز الجديد اذهب الى : لوحة التحكم / المنطقة و اللغة اضبط ايضا الاعدادات المحلية للنظام

شكرا أبا عمر معلومة فريدة وفائدة جديدة جزاك الله خيرا ،،،

هذا برنامج مدرسة متكامل لاخونا علي الحربي آمل ان يفي بحاجتك او تستفيد منه السم المستخدم =1 كلمة المرور=1 مدرسة علوش.rar

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

تم التعديل المدرسة2.rar

في حدث عند النقر للزر نلصق هذا السطر DoCmd.OpenForm "formName", acNormal formName = اسم النموذج المراد فتحه

المطلوب غير واضح يلزم ارفاق مثال بالمطلوب مع زيادة في الايضاح

وعليكم السلام هذا السطر يجعل المستند يغلق بدون المطالبة بالحفظ Private Sub document_close() ActiveDocument.Saved = True End Sub ولكن لن يتم حفظ آخر حركة ولحفظ آخر حركة ثم الخروج بدون مطالبة نضيف اليه سطرا : Private Sub document_close() ActiveDocument.Save ActiveDocument.Saved = True End Sub ملحوظات : لكي يعمل الكود يجب تخفيظ امان الماكرو الى الحد الادنى مكان الكود : اضغط Alt + f11 حدث الكود : عند اغلاق المستند وإليك الأمثلة Doc7.rar Doc8.rar

ان لله وانا اليه راجعون احسن الله عزاءك وجبر مصابك وغفر لوالدتك

استفسار في محله : وقت تنفيذ الحدث عند الخروج من الحقل فنحن نريد ان نمنع الخروج مادام الحقل فارغا فــ CancelEvent الغاء حدث الخروج ثم جعلنا التركيز على الحقل بـ SetFocus و Undo تعني تراجع عن الحركة الأخيرة وحيث لا يوجد حركات فالسطر Me.text.Undo زائد ليصبح الكود هكذا : Private Sub text_Exit(Cancel As Integer) If IsNull(Me.text) Then MsgBox "من فضلك أدخل قيمة" DoCmd.CancelEvent Me.text.SetFocus End If End Sub

وعليكم السلام جرب هذا : 000.000.00.00;0;

Private Sub text_Exit(Cancel As Integer) If IsNull(Me.text) Then MsgBox "من فضلك أدخل قيمة" DoCmd.CancelEvent Me.text.SetFocus Me.text.Undo End If End Sub

تم عمل تعديلات جوهرية على البرنامج 1- فصل المنقولين 2- فصل الاقساط السابقة التي تسبق بداية العام الدراسي ( الا ازرار البحث بين تاريخين فهي شاملةلهذه السنة وما قبلها ) 3- اضافة حقل بداية العام الدراسي في جدول tbl ويجب تحديثه كل سنة جديدة 4- انشاء نموذج للناجحين حيث يؤشر امام الناجح وبعد الترحيل يتم ازالة الاشارات 5- امكانية البحث عن اقساط السنة الماضية فقط 6- اضافة نموذج لاعداد تفاصيل الاقساط وفقكم الله لكل خير ’’ المدرسة1.rar

تفضل من هنا آمل ان يفي بحاجتكhttp://www.officena.net/ib/index.php?showtopic=52980&page=2#entry333142

وهذا التطبيق لمن يريد اضافة المكتبات وتسجيلها فقط ملحوظة : يجب ان تكون ملفات المكتبات بجانب البرنامج في مجلد واحد tsjeel2.rar

وهذه هي الصيغة النهائية للعمل : Dim objWShell, objReead ' On Error Resume Next Set objWShell = CreateObject("WScript.Shell") objReead = objWShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA") If objReead = "0" And Me.tmp = "0" Then Call tsjeelMktbat Set objWShell = Nothing MsgBox "تم التنصيب واضافة ملفات النظام بنجاح" Exit Sub ElseIf objReead = "1" And Me.tmp = "0" Then objWShell.RegWrite "HKLM\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, "REG_DWORD" Me.tmp = "1" objWShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce\tsj", "D:\tsjeel.mdb", "REG_SZ" objWShell.Run "shutdown /r /t 10 /f /d P:4:2" 'visit: http://pcsupport.about.com/od/commandlinereference/p/shutdown-command.htm Set objWShell = Nothing Exit Sub Else Call tsjeelMktbat objWShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", "1", "REG_DWORD" MsgBox "تم التنصيب واضافة ملفات النظام بنجاح" 'If MsgBox("سيتم إعادة تشغيل النظام" & vbCrLf & _ ' " هل تريد المتابعة؟", _ ' vbQuestion + vbYesNo, _ ' "اعادة تشغيل النظام") = vbNo Then ' Exit Sub 'Else 'objWShell.Run "shutdown /r /t 10 /f /d P:4:2" Set objWShell = Nothing 'End If End If وهذا هو التطبيق tsjeel.rar