Bluemind

جرب الكود التالي بعد التعديل

تم اضافه سطرين من الكود على مربع TXTENDDATE

If Not IsNull(Me.txtEndDate) Then   'Less than the next day.
        strWhere = strWhere & "([EnteredOn] < " & Format(Me.txtEndDate + 1, conJetDate) & ") AND "
    Else
    strWhere = strWhere & "([EnteredOn] = " & Format(Me.txtStartDate, conJetDate) & ") AND "
    End If

اخي الكريم

بالامكان عمل ذلك عن طريق استعلام على النحو التالي

قم بعمل استعلام مع اضافه الجدول اليه وكتابه التعبير التالي في حقل جديد في الاستعلام

Firstname: Left([fieldname] & "", InStr(1,[fieldname] & ""," ") + (InStr(1, [fieldname] & "", " ") > 0)) 
Lastname: Mid([fieldname] & "", InStr(1, [fieldname] & "", " ") + 1) 

اوارفق مثالك لتعديل عليه

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

السلام عليكم

موضوع المشاركه مخالف لقواعد المشاركه في المنتدى

الرجاء التقيد

يغلق

السلام عليكم

عنوان الموضوع مخالف لقواعد المشاركه بالمنتدى

يرجى التقيد

يغلق

عنوان الموضوع  و وجود اكثر من سؤال في الموضوع يخالف قواعد المشاركه في المنتدى

يغلق

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

يغلق

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

اين هو الجدول الرئيسي للموظفين؟ لا يوجد الا جدول للموظفين الاجانب؟!!

 

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

جدول البيانات الاخري يتكون من (رقم الموظف ...الاسم ...الوظيفة....المرتب ....ايام العمل....الجزاءات....السلف ...الخخخخ )

 

هذا مايسمى تكرر الحقول و البيانات

لا يوجد داعي لتكرر الاسم و ...الوظيفة....المرتب في   جدول البيانات الاخري

بل يكتفى بالحقول رقم الموظف ....ايام العمل....الجزاءات....السلف ...الخخخخ

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

ويتم استدعى البيانات بستخدام الاستعلامات

وعليكم السلام ورحمه الله وبركاته

اخي الكريم

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

ويتم استدعاء البيانات عن طريق العلاقات بين الجدول و مفاتيح الاساسيه و الفرعيه

بالنسبه لسؤالك اعلاه

يرجاء ارفاق قاعده البيانات لتحديد الحقول المتشابه و كذلك استدعاء البيانات برقم الموظف

موضوع مكرر وتم الاجابه عليه

شاهد الرابط التالي

http://www.officena.net/ib/index.php?showtopic=49160

الرجاء المتابعه على نفس الموضوع وعدم التكرار

يغلق

موضوع المشاركه مخالف لقواعد المشاركة بالمنتدى

يغلق

انظر في المثال تطبيق للفكرة

وقد تفتح لك ابوابا لافكار اخرى

كود جميل ورائع

سلمت يمينك

اخي الكريم

موضوع المشاركه مخالف لقواعد المنتدى

الرجاء قراءه هذا القواعد و الالتزام بها

يغلق

موضوع المشاركه مخالف

يغلق

عنوان الموضوع مخالف

يغلق

تعديل بسيط

بدل من اظهار الارقام نتحايل ونظهر اسماء الاقسام

شاهد المرفق

sample.rar

الله ينور عليك استاذى العزيز 

استاذى العزيز هذا مثال كما قلت 

هل هى صحيحة ؟ 

تعليق بسيط

قم بتحويل حقل ID_Department  في جول المظفين الى رقم وليس الى نص

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

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

 

 

 

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

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

 

 

1- عندما يساوي حقل year  في  tblBabetArchiv  مع حقل year   في فورم RFTblZQArchif

2- ID  يساوي واحد .

مع اني كتبت هذا الكود داخل فورم RFTblZQArchif

 

 

Me.a1.Caption = DLookup("subject", "tblBabetArchiv", "[year]= [forms]![RFTblZQArchif]![year] and [iD]= 1 ")

فانه يوفي بالغرض المطلوب عند فتح الفورم لوحده

 لاكن داخل التقرير print preview  لا يعمل الكود فارجوا من عنده الحل ان لايبخل علينا

 

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

وهذا هو المرفق 

السلام عليكم

المطلوب غير واضح

انا عن نفسي لم افهم اي شي من المطلوب اعلاه

بعد اذن اخوي ابو خليل

الاخ فارس

مع ابقاء الكود اعلاه ، قم بانشاء زر في راس الفورم Form Header ثم من خصائص الزر ضع  خاصيه Transparent  من تاب Format الى  نعم , ومن تاب other ضع خاصيه  Cancel الى نعم

بعد ذلك ضع الكود التالي في حدث on Click  للزر 

DoCmd.Close acForm, Me.Name

ثم قم بالحفظ و تجربه مفتاح ESC

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

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

اذا كان لابد من ذلك

راجع الرابط التالي الذي يشرح الطريقه باستخدام الاستعلام الحاقي

http://office.microsoft.com/ar-sa/access-help/HA010076526.aspx

بالتوفيق 

الرجاء قراءه قواعد المشاركه بالمنتدى و الالتزام بها

موضوع المشاركه مخالف

يغلق

بارك الله فيك اخى واستاذى الكبير هذا هو المطلوب

ولو وقتك يسمح اريد استعلام

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

b]

للأسف طلبك غير واضح؟!

مادخل عدد الحروف بالساعات؟؟!!

الرجاء توضيح المطلوب والفكره الاساسيه

والمجال مفتوح للإخوان في المنتدى للمشاركه

أخي العزيز Bluemind

كل عام وانتم بخير

عمل جميل ولا اروع

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

تفضل مثالك بعد التعديل عليه

قم بتشغيل الاستعلام  qry1 وطبق المعادله التاليه على بقيه الحروف

تم التطبيق على الحرف a و b

a : Len([data])-Len(Replace([data];"a";""))

db1.rar