ناقل

منذ ساعه, sky5555 said:

ويوجد بعض الاعمدة والصفوف اقوم بادخال نفس الدرجة قد تصل عدد الخلايا المتتالية الي 100 او اكثر

هناك طرق عديدة لذلك حسب قاعدة البيانات لديك :::::: منها استخدم استعلام تحديث

منذ ساعه, Ahmed_J said:

انا اردت فقط  التاكد  كيف يمكن تدقيق العنوان والدرجة في النموذج من خلال  الجدول 

تحياتي لك استاذ

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

Test-1.accdb

2 ساعات مضت, Ahmed_J said:

استاذ @Foksh  يوجد الكثير من العناوين الوظيفية  انا اخترت القليل منها لسهولة الامر

الكود تبعك يعمل بصورة جيدة على الوظائف الهندسية ولايعمل على الوظائف الادارية

استاذ @ناقل يتم تميز ذلك من خلال كتاب التعيين  والشهادة الحاصل عليها

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

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

10 دقائق مضت, Ahmed_J said:

انا لدي بالاصل عناوين كثيرة والجدول كبير جدا 

ولا مانع من تغيير طريقة تصميم الجدول  لو وجد الحل

والعناوين كما في الجدول بجوار بعض ... صح 

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

39 دقائق مضت, Ahmed_J said:

لم يجد الا عنوان وظيفي واحد صحيح فقط

والكود لايوجد فيه  بحث في الجدول tp2

اريد المقارنة بين حقل العنوان الوظيفي في النموج والعناوين الوظيفية في الجدول tp2

هل الدرجة المقصودة هي المشار اليها في الصورة ....

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

29 دقائق مضت, Ahmed_J said:

لمطلوب: عند تغيير الدرجة الوظيفية في النموذج  واختيار عنوان وظيفي جديد من القائمة المنسدلة يجب ان يكون مطابق للعنوان الوظيفي والدرجة الموجودة

في الجدول tp2 واظهار رسالة بذلك

جرب هذا .....

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

28 دقائق مضت, Fmmm said:

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

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

مثلا عند تسجيل بيانات نستخدم 

معليش وحدة وحدة .....

1- انت تريد تحديث بيانات قاعدة من اخرى صحيح ؟؟؟

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

3- سوف نكمل الاحتمالات الاخرى لاحقا !!!!

4 ساعات مضت, Mhd304 said:

اريد ان اطبعا ملف pdf مباشرة من الاكسس ، عن انه الملف موجود في مربع نص

جرب هذا الكود ربما يفي بالمطلوب 

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

1 ساعه مضت, SAROOK said:

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

وان امكن ذلك هل يمكن ان يكون ذلك في نموذج بدلا من التقرير

تفضل ...............................

مستندات.accdb

31 دقائق مضت, gamal gamal said:

((اللهم سخر لى عبدك من عبادك الصالحين يذلل لى هذه المشكلة ))

الحمد لله رب العالمين .... واشكرك على هذه الدعوات التي نحتاجها ولك بمثل ما دعوت اخي الكريم

31 دقائق مضت, gamal gamal said:

فطلبى منك تكرما أن يكون منع التعديل والحذف والإضافة يسرى على النموذج بأكمله

قبل إضافة مستند :: كما هو الحال بعد إضافة المستند ..

هذا ما يحدث قي المرفق الموجود في الموضوع ..... انظر المرفق

18 ساعات مضت, gamal gamal said:

ملحوطة ::

((أيضا عند استخدامى لبرنامج لمنع الشفت لا يقبل اضافة صورة ))

اضفت كود بسيط لذلك انظر ان جاز لك استخدمه

Database1.accdb

ملاحظة ::::::

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

17 ساعات مضت, gamal gamal said:

وعندى حقل اسمه (الصور) أريده أن يكون مفتوح بإضافة صور فيه 

على فترات متباعده ...

جرب هذا .

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

55 دقائق مضت, ابوخليل said:

 

الايقونة هذي تمثل الاستاذ موسى وهو يزعق للاستاذ ناقل ... ههههه

وانا لا اؤيد هذه المنافسة ولا احكم فيها

هههههه ....

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

9 دقائق مضت, Moosak said:

الكود الحالي يخدم القضية الحالية بعينها 🙂 

أيضا ماذا لو كان مصدر الاستعلام جدولين أو أكثر ؟!!

وماذا لو كان هناك شروط في جملة الاستعلام where ؟!!

وماذا لو .... وماذا لو .... ؟؟؟؟؟

هناك احتمالات كثيرة .... 😁

وكل مشكلة ولها حل .. 🙂 

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

52 دقائق مضت, ابوخليل said:

كود الاستاذ موسى جاء بالمختصر المفيد وكود الاستاذ foksh  اخذ بالاحتياطات المحتملة

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

39 دقائق مضت, jo_2010 said:

هل بالامكان عرض كل محتويات ملف pdf بالكامل داخل نموذج اكسيس  واخفاء الشريط الراسى والافقى  بحجم يحتوى مربع العرض فقط

44 دقائق مضت, محمد احمد لطفى said:

و عندما يأتى يوم السبت القادم تتحدث الحقول بطريقة الية 

النموذج المرفق يعمل و لكن من الاثنين الى السبت و الاحد الاسبوع القادم ولا يتحدث تاريخ الايام الا يوم الاثنين القادم 

( حاولت تغيير الطريقة فى النموذج المرفق و كان أمس يوم السبت 11 و هكذا باقى ايام الاسبوع ثم لاحظت اليوم أن تم تغيير يوم السبت الى 12 وباقى الايام زادت يوم كذلك )

وجزاك الله كل خير 

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

date12.mdb

16 ساعات مضت, moho58 said:

إن أمكن شرح بسيط على المثال وبارك الله فيك أخي

طيب ... بارك الله فيك ::::::

انظر الى الجدول tbl_Teachers تم ادراج البيانات المطلوبة مثل الوظيفة

وفي جدول الحضور heures_effectuées_rapport حسب بياناتك اعتمدنا على الاسم  تدوين اسم الموظف والتاريخ ( هل تريد حساب تأخر للموظف مستقبلا ام لا ...... ) لاني تركتها حسب التاريخ فقط

=== وهنا الخلاصة ( في الاستعلام ) تم استخراج اسم الموظف وتاريخ الحضور والوظيفة بدون تسجيلها في جدول الحضور  وبهذا لم نكرر الوظيفة في جدول الحضور 

مرفق المثال :::

BASEM (2).accdb

44 دقائق مضت, moho58 said:

لأنه في التقارير عندما أطبعها لازمها تظهر الوظيفة مطوبة جدا

كنت متوقع هذه الاجابة ... لذلك سألت ...

اخي الكريم يمكن عمل ما تريد في التقرير عن طريق ربط جدول البيانات وجدول الحضور

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

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

43 دقائق مضت, moho58 said:

أنا نسيت أن أضع  حقل الوظيفة من الأول  والآن أضفته

مافي مشكلة ابدا ...

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

انظر <<<<<<<<<<<<<<<<<<<<

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

17 ساعات مضت, moho58 said:

النموذجين ليسوا مفتوحين في نفس الوقت

نعم نفيس الإسماء أخي

فعند إضافة أسم في النموذج المنقول  له الوظيفة أختار الاسم من بين الأسماء الموجودة في  النموذج الأول (الذي فيه الوظيفة)

و بارك الله فيك اخي

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

منذ ساعه, moho58 said:

السلام عليكم أخي

مشكور على الرد و المتابعة

ربما لا أجيد الشرح  هل فيه طريقة كما يلي: عند إضافة الوظيفة : مهندس  للإسم خالد في النموذج fm_info_encadreur  

تظهر مباشرة في النموذج fm_heure_effectue_raport  تلقائيا لوحده من دون أن أختار الاسم في النموذج fm_heure_effectue_raport    حتى تظهر الوظيفة

يعني تحديث وإضافة تلقائية للوظيفة

وعليكم السلام 

طيب هل النموذجين مفتوحين في نفس الوقت؟؟؟؟

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

20 دقائق مضت, moho58 said:

ريد في النموذج fm_heure_effectue_raport  عند اختيار الإسم: خالد تظهر تلقائيا الوظيفة: مهندس

غير الحدث الموجود لديك بهذا ....

Me.fonction_encadreur = Me.nom_prenom.Column(1)

لم اجربها ولكن اتبع هذه الخطوات ...

https://support.microsoft.com/ar-sa/office/إضافة-حساب-gmail-إلى-outlook-70191667-9c52-4581-990e-e30318c2c081

6 ساعات مضت, frqd said:

فظهر التقرير بدون تحديد للصفوف التي تحتوي البيانات
ثم قمت بتغيير الحدود الى لون ( شفاف )  ولم يتغير شيء

الملف يعمل لدي بدون مشاكل

6 ساعات مضت, frqd said:

هل الملف بحاجة لاضافة مكتبة معينة او ملف في الجهاز  ؟
هل المشكلة لدي فقط ؟؟

لا يحتاج اي مكتبة