ابوخليل

عليكم السلام Dim i As Byte i = Day(Date) If i = 1 Or i = 2 Or i = 3 Or i = 4 Then MsgBox "ضع ما تريد توضيحه هنا" End If Day(Date) يرجع رقم اليوم من التاريخ الافتراضي يمكنك استبدال Date باسم حقل التاريخ عندك واضبط الحدث عند تحميل النموذج مثلا او اي حدث تراه مناسبا

دخل فين ؟ هل تقصد تسجيل حضور ؟ اذا هكذا يمكنك استخدام قاعدة if فيما يشبه هذا : if txtTime => # 11:59:59 # then anything="غداء" else anything="" end if

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

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

الف مبروك اخوي وتستاهل اكثر اعانك الله ووفقك

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

تفضل If Not (rst.BOF And rst.EOF) Then Do Until rst.EOF If rst.Fields(2).Value = 1 Then Me.Txt_namcity.AddItem (rst.Fields(0).Value & ";" & rst.Fields(1).Value) End If rst.MoveNext Loop End If combo5.rar

التغيير سيكون في هذا السطر عملته لك حسب طلبك ويمكنك صنع متغير رقمي وجعله مكان الرقم 1 rst.Open "Select * from tbl_city WHERE txt1 = 1", con, adopenDynamic, adLockBatchOptimistic combo4.rar

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

تفضل. If Not rs.EOF And Not rs.BOF Then Do Me.Txt_namcity.AddItem (rs.Fields(0).Value & ";" & rs.Fields(1).Value) rs.MoveNext Loop Until rs.EOF End If combo2.rar

عليكم السلام هذا يغلق جميع النماذج المفتوحة عند الضغط على زر Esc Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Then Do While Forms.Count > 0 DoCmd.Close acForm, Forms(0).Name Loop End If End Sub

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

المشكلة التي ظهرت سببها واضح وهو الرقم المعرف .. فلما نختار طالب رقمه 1 فالمعيار سيجلب اي طالب لديه رقم 1 ضمن رقمه اي سيظهر 11 و 12 و 417 وهكذا الحل : ان يكون المعيار حسب رقم الهوية دعني ارى اذا يوجد حل من غير تغيير في الجدول تفضل غياب_مهذب2.rar

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

السلام عليكم يسرني المشاركة مع التحية لاخي العزيز احمد وخبيرنا الغالي وأستاذنا في التواضع والأدب الجم وحدات ابي هادي النمطية والوظائف الخاصة بتقويم ام القرى والتي تحاكي وظائف التاريخ الميلادي في فيجوال .. نكتب التاريخ فيها في حقول نصية ، حيث لو جعلنا نوع الحقل تاريخ فلا بد ان يحدث تعارض في اكسس .. مثلا لن يقبل تاريخ 29/2 ولا 30/2 وهذه مشكلة كبيرة لمن يعتمد التاريخ الهجري خاصة في الامور المالية والعقود . زيادة في الإيضاح : في اكسس عندما نحول التاريخ من اعدادات العميل في قاعدة البيانات من الميلادي الى الهجري فان اكسس يقوم بعملية رياضية (طرح 622 سنة ومقسوم على 0,97 ) .. والا فان التاريخ ما زال ميلادي .. اي ان اكسس ينظر اليه كميلادي قبل 622 سنة ... أمل ان الفكرة اتضحت طيب سيقول القائل لا بأس نعتمد الحقول النصية ولكن ستظهر المشكلة عند التصفية فلا يمكن البحث بين تاريخين .. هنا يوجد حل وهو تحويل النص الى تاريخ باحدى دالات التحويل ثم نجري عملياتنا . بالنسبة لمثال الأخ السائل فيمكن عمل التصفية في الاستعلام مصدر التقرير مباشرة ولكن ضع في علمك انك يوما ما ستواجه مشكلة لن تعرف سببها عند تسجيل غياب يوم لا يعترف به أكسس Between [forms]![غياب]![from_Date] And [forms]![غياب]![to_Date] تم تغييير اسمي حقلي البحث لأن واحد حروف عربية والثاني كلمة to محجوزة غياب2.rar

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

تفضل تصفية واختصار بعض الحقول محمد غياض شبعا2.rar

تفضل .. اتمنى هو مطلوبك تم تصفية النموذج الفرعي الثاني بناء على الرقم الاساسي في الفرعي الأول 1_2.rar

جرب تم التعديل على نموذج الحركة : تعطيل خيار المناقلة فقط واضافة حقل مخفي لمعرف المستفيد iduser في النموذج الفرعي من اجل جعله كمعيار آخر في تقرير الاستلام (زيادة ضبط) تم التعديل على مصدري التقريرين ( الاستعلام الداخلي) devicesdb16.rar

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

اضافة مميزة الى مكتبة المنتدى جزاك الله خيرا

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

الامر يسير جدا تنسيق مثل التنسيقات في وورد formattext2.accdb

نسيت ان اذكر شيىئا ، وهو انه لا يمكن الدخول لنموذج الحركة الا رسميا من خلال فورم الدخول