ابوخليل

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

هل هذا سؤال ؟

وهو طريقة رصد ساعات الاستئذان فمعذرة اخي الحبيب

صحيح كان الاولى التجربة حتى نختصر الوقت والجهد تفضل اخي الحبيب Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = CLng(Mid(DMax("ID", "tbl1"), 2, 2)) xLast = CLng(Right(DMax("ID", "tbl1", prtTxt = prtyr), 5)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!ID = "S" & prtyr & Format(xNext, "00000") End Sub ترقيم مع السنة وزيادة حرف.rar

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

وعليكم السلام تفضل على اعتبار ان قاعدة البيانات B موجودة بجانب القاعدة A واسم الزر في القاعدة A هو openDB Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub openDB_Click() ShellExecute Me.hwnd, "open", CurrentProject.Path & "\" & "B.mdb", "", "", 1 End Sub

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

معذرة اخي محمد لم انتبه ان المسألة بحاجة الى تعديل آخر لاحظ السطر هذا الموجود في الكود xNext = Val(Mid(xLast, 3, 5)) + 1 فيه حاجة لازم تتغير في السطر اعلاه ، لأننا اضفنا حرفا الى الترقيم الذي هو حرف s فالرقم 3 يعني اننا سنبدأ العد من اليسار ابتداء من الحرف الثالث الى السابع ، ثم نضيف اليه واحد ولكن الحرف الثالث من اليسار في الكود الأصلي هو الرقم الذي يأتي بعد السنة ( التي هي رقمين ) ولكننا اضفنا حرف s قبل رقمي السنة لذا يجب ان نعدل الـرقم 3 الى 4 لكي نبدأ من الحرف ( او الرقم ) الرابع لذا يجب ان نعدل السطر المذكور ليصبح xNext = Val(Mid(xLast, 4, 5)) + 1 اعلم انه يكفيك الاشارة الى مكان الخلل ولكني تبسطت بالشرح لمن يأتي لاحقا

تفضل ترقيم تلقائي في الاستعلام2.rar

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

نعم يمكن استخدم الكود التالي وغير ما يلزم outonum: DCount("ID";"tbl1";"ID <=" & [ID]) باعتبار نوع الحقل المشروط رقميا

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

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

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

جزاك الله خيرا وزادك جمالا في قلبك وبدنك هلا اخي محمد .. الحل قريب منك جدا ... واقول جزاك الله خيرا على اثراء الموضوع آخر سطر في الكود اعلاه سيصبح : Me!ID = "S" & prtyr & Format(xNext, "00000") ولا تنسى ان تبدل نوع الحقل ID الى نصي

وعليكم السلام ما تطلبه ممكن ويسير بعد تيسير الله فقط ارفق الجدولين والاستعلام في مثال على صيغة mdb حتى نتمكن من مساعدتك او احفظ عملك المرفق على الاصدار 2003 ثم ارفعه

السلام عليكم وبعد اذن اخي صالح لم افتح المرفق ولكني اعتقد ان الكود سيكون شبيه بهذا DSum("[CN]", "VA", "Sap = SA and Format(Date1,"mmyyyy")= Format(Da,"mmyyyy")")

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

تفضل هنا ما تبحث عنه

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

السلام عليكم اسمحو لي بالمداخلة لوجود التباس طريقة السؤال توحي ان المسألة جمع وطرح والمطلوب حقيقة اعداد ما عدا الاجازات استخدم الدالة DCount بدلا من DSum واستبدل id في الاكواد اعلاه الذي تفضل بها اخونا الوزير استبدلها بالقسم

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

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

اذا كان مصدر التقرير استعلام فالمسألة يسيرة جدا ففي حقل جديد في الاستعلام تكتب هذا الكود باعتبار ان الحقل الذي يحمل القيمة -1 اسمه fld1 expr1:iif ([fld1]=-1;"غ";"") لاحظ انك ستجعل الحقل expr1 هو مصدر الـــ غ في التقرير

حسب توضيحك يكون الكود الصحيح هكذا : =[Forms]![user3]![user_name] جرب وضع هذا الكود في القيمة الافتراضية للحقل المقصود انا متأكد انها ستعمل اما الوحدة النمطية فامرها يسير اذا لم يعمل السطر السابق : يجب ان تعطيني الكود المسؤول عن ظهور اسم المستخدم في الشاشة الافتتاحية وعليه سنبني قيمة المتغير