ناقل

طيب استاذي الفاضل انظر المرفق ربما يوحي لك الفكرة التى اردت ايصالها لك .... Test-1.accdb

لاحظ معي هل تنفعك هذه الطريقة ......

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

هل الدرجة المقصودة هي المشار اليها في الصورة .... ولماذا الاختيار اذا كانت هي الدرجة ؟؟؟؟ لماذا لاتجعلها تظهر العنوان الوظيفي تلقائيا عند تحديد الدرجة ؟؟

جرب هذا ..... Private Sub B_BeforeUpdate(Cancel As Integer) If DLookup("[العنوان الوظيفي]", "[TP1]", "[ID] =" & [Forms]![form1]![ID] & "") = [Forms]![form1]![B] Then MsgBox "نعم" Else MsgBox "لا" End If End Sub

معليش وحدة وحدة ..... 1- انت تريد تحديث بيانات قاعدة من اخرى صحيح ؟؟؟ 2- اذا كان النقطة 1 صحيحة لاحظ الصورة في الموظف ابراهيم لديه سجلان .... اي السجلات المطلوب نقل بياناتها للقاعدة الاخرى ؟؟؟ 3- سوف نكمل الاحتمالات الاخرى لاحقا !!!!

جرب هذا الكود ربما يفي بالمطلوب Sub PrintPDF() Dim AcroRd32ExePath As String Dim PDFFilePath As String Dim cmd As String ' تحديد مسار تطبيق Adobe Acrobat Reader AcroRd32ExePath = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" ' تحديد مسار الملف PDF الذي تريد طباعته ' هنا نأخذ القيمة من مربع النص TextBox1 PDFFilePath = TextBox1.Value ' إنشاء الأمر الذي سيتم تنفيذه cmd = AcroRd32ExePath & " /n /t " & PDFFilePath ' تنفيذ الأمر Shell cmd, vbHide End Sub

تفضل ............................... مستندات.accdb

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

جرب هذا . Private Sub مستندات_القضية_AfterUpdate() Me.AllowEdits = False Me.AllowDeletions = False Me.Requery End Sub Private Sub مستندات_القضية_DblClick(Cancel As Integer) Me.AllowEdits = True End Sub Private Sub مستندات_القضية_Exit(Cancel As Integer) Me.AllowEdits = False Me.AllowDeletions = False Me.Requery End Sub

هههههه .... بدأ جدنا @ابوخليل يتحركش بينا .. لا يهمك استاذ @Moosak ... دائم الاستاذ يزعق على الطالب

نعم صحيح ..... ⚘

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

جرب حسب فهمي للموضوع date12.mdb

طيب ... بارك الله فيك :::::: انظر الى الجدول tbl_Teachers تم ادراج البيانات المطلوبة مثل الوظيفة وفي جدول الحضور heures_effectuées_rapport حسب بياناتك اعتمدنا على الاسم تدوين اسم الموظف والتاريخ ( هل تريد حساب تأخر للموظف مستقبلا ام لا ...... ) لاني تركتها حسب التاريخ فقط === وهنا الخلاصة ( في الاستعلام ) تم استخراج اسم الموظف وتاريخ الحضور والوظيفة بدون تسجيلها في جدول الحضور وبهذا لم نكرر الوظيفة في جدول الحضور مرفق المثال ::: BASEM (2).accdb

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

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

انظر <<<<<<<<<<<<<<<<<<<< Me.fonction_encadreur = DLookup("[fonction]", "[tbl_Teachers]", "[TeacherName] ='" & [Forms]![fm_heure_effectue_raport]![nom_prenom] & "'")

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

وعليكم السلام طيب هل النموذجين مفتوحين في نفس الوقت؟؟؟؟ وهل النموذج المنقول لها الوظيفة يكون على نفس اسم الموظف في النموذج الاول المضاف لها الوظيف ؟؟؟؟

غير الحدث الموجود لديك بهذا .... Me.fonction_encadreur = Me.nom_prenom.Column(1)

لم اجربها ولكن اتبع هذه الخطوات ... https://support.microsoft.com/ar-sa/office/إضافة-حساب-gmail-إلى-outlook-70191667-9c52-4581-990e-e30318c2c081

الملف يعمل لدي بدون مشاكل لا يحتاج اي مكتبة

لا ... اجعله شفاف