ابوخليل

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

اعد المثال الى صيغته الاصلية mdb

يا سلام عليك صح الآن فهمت يعني لو اني كتبت الكود داخل برنامجي ثم عدلت خلاص تنتهي مهمته ولو احتجته مرة ثانية في برنامج آخر لازم اكتبه مرة خرى فانت عملت هذا لنا مساند ومساعد عند الحاجة فحسنا فعلت لاخوانك جزاك الله خيرا وشكرا لتعبك وجهدك

حبا وكرامة تفضلوا : على اعتبار اسم الحقل في جميع الجداول = id هذا الاول Dim dbs As Database Dim Table As TableDef 'On Error Resume Next Set dbs = CurrentDb DoCmd.SetWarnings False For Each Table In dbs.TableDefs If Not Table.Name Like "MSys*" Then DoCmd.RunSQL "ALTER TABLE " & Table.Name & " ALTER COLUMN id INTEGER" End If Next DoCmd.SetWarnings True Set dbs = Nothing MsgBox "تم" وهذا الثاني Dim rs As Recordset Dim strSQL As String Dim strTable As String strSQL = "SELECT MSysObjects.Name " & vbCrLf & _ "FROM MSysObjects " & vbCrLf & _ "WHERE (((MSysObjects.Type)=1) AND ((Left([name],4))<>""msys"")) " & vbCrLf & _ "ORDER BY MSysObjects.Name;" Set rs = CurrentDb.OpenRecordset(strSQL) DoCmd.SetWarnings False Do Until rs.EOF strTable = rs!Name DoCmd.RunSQL "ALTER TABLE " & strTable & " ALTER COLUMN id INTEGER" rs.MoveNext Loop DoCmd.SetWarnings True Set rs = Nothing MsgBox "تم" ولكنك قلت انك شغال على المطلوب وكنت مخلص يعني لاهنت نريد الحل الثالث حتى لو فيه توارد خواطر فلن نعدم فائدة

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

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

كيف تمنحه اجازة لسنة قادمة ؟ !! ايضا لا تضاف كاملة بدخول السنة الجديدة ، لانه لا يستحقها كاملة وانما يستحق اجازة مقابل الايام التي عملها خلال هذه السنة امل ان الفكرة واضحة لك كامل الاستحقاق يحتسب : من تاريخ بداية العقد الى تاريخ اليوم الحالي باعتبار استحقاقه الشهري من الايام هو ( 4.16 ) يوم فيصبح استحقاق السنة حوالي 50 يوما كما هو معمول به في بلدك بينما في بلدي الاستحقاق هو (3.75 ) يوم عن كل شهر فيستحق يوما اجازة مقابل 8 ايام عمل و 45 يوما خلال السنة

تفضل من هنا احببت فصله بموضوع وعنوان مستقل لتسهيل وسرعة الوصول عند البحث

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

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

اها هذه هي النقطة هذا يعني انه يجب الا يتم رصد 50 في اول السنة

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

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

والثانية كما ترى اعمل على 2003 اتوقع ليس للاصدار دخل في ذلك فالمستخدم دالات بسيطة

ولكنها تظهر عندي هذه صورة من المثال المرفق

المثال المعدل الاخير هو بالضبط مثل السابق تماما قل لي وما الذي تحتاجه ؟

دار لقمان ؟ ما دار لقمان ؟ لم افهم

معذور يابو محمد يوجد حقل مخفي في النموذج الفرعي وهو حقل اجمالي منه اخذته من الفرعي المحسوب ولصقته في الفرعي غير المحسوب ستجده الآن ظاهرا عند فتح التصميم حساب6.rar

وهذا كود لمن اراد فصل الارقام في حقل والحروف في حقل داخل النموذج Private Sub Command1_Click() Dim lets Dim i, r As Integer r = Len(Me.Text1) For i = 1 To r lets = Mid(Me.Text1, i, 1) If IsNumeric(lets) Then Me.Text3 = Me.Text3 & lets Else Me.Text2 = Me.Text2 & lets End If Next End Sub باعتبار Text1 هو الحقل المراد فصله و Text3 لاظهار الارقام Text2 لاظهار الحروف

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

تفضل ، جعلتها دالتين textNum و Numtext فصل الحروف عن الارقام دالة .rar

نعم هي تعمل في الاستعلام ساوافيك لا حقا بمثال على ذلك

وعليكم السلام تفضل هذه الدالة textNum عملتها لك يمكنك ان تفصل بها الحروف عن الارقام او العكس الآن هي مهيأة لفصل الارقم ، فقط مرر اسم الحقل اليها وحتى تعكس النتيجة يلزم تفعيل السطرين 3 ، 4 __ وحجب السطرين 1 ، 2 Public Function textNum(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then lets2 = lets2 & lets ' السطر1 خاص بالارقام Else 'lets3 = lets3 & lets ' السطر3 خاص بالحروف End If Next textNum = lets2 'السطر2خاص بالارقام 'textNum = lets3' السطر4 خاص بالحروف End Function

المسألة مستغربة !! كيف الاجازة لن تحسم من الرصيد ومع ذلك يلزم اظهار الرصيد المتبقي ؟ على كل حال الطرق متعددة التي يتعامل بها مع الاجازات ، وانت اخترت التصفية من خلال النموذج باستخدام الكود لهذا البيانات تكون خاصة بالنموذج المفتوح انظر المحاولة التالية من خلال المثال المرفق db02.rar

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