نرجس الورد

السلام عليكم ورحمة الله وبركاته كل عام وأنتم وأسعد الله مساءكم وأيامكم أستاذي الفاضل محب العلم قمت بإنشاء قاموس خاص بي وعند عمل تقرير يستند إلى استعلام واجهتني مشكلة في البحث وبذلت جهد جهيد واكثر .. وللأسف كانت المشكلة في استخدام الحقل الثاني للغة العربية ( القسم / Department_Ar ) حيث أنها في جدول منفصل لمنع التكرار . . ولا يمكن البحث منه بهذه الطريقة !! ولتعرف مشكلتي أكثر أدرج لك قاعدة البيانات كاملة My_Dictionary.rar

شكرا جزيلا لك أخي الكريم محب العلم تم حل المشكلة جزاك الله خيرا ورزق حلالا

مرفق مثال لمشكلتي في هذا المثال حقل البحث بالاسم لا يعمل وفي بعض النماذج لدي يقوم بإظهار الرسالة السابقة ! مصدر البحث في الاسم هو حقل تجميعي في الاستعلام من نوع : كود FullName: [Name] & " " & [Father] & " " & [Family] Ser13.rar

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

كل عام وأنتم ونحن وجميع المسلمين وجميع أبناء آدم وحواء في جميع مناطق العالم بألف ألف خير

أرجو أن يكون هذا المطلوب ... أرجوالتأكد من تعبئة Certificate ID في حالة الإضافة السلام عليكم وكل عام وأنتم بألف خير أخي الكريم 'Dream_Works' شكرا لتواصلك كود النموذج الأول Emp1 : هذا الجزء يحتوي على تعريفات بالمتغيرات في الكود : Dim stDocName As String Dim stLinkCriteria As String Dim count As Integer وهذا الجزء من الكود يقوم بفتح النموذج الفرعي المطابق للسجل الأساس بالنموذج Emp1 : stDocName = "Emp2" stLinkCriteria = "[EmployeeID]=" & Me.EmployeeID إلى هنا ليس لدي أي مشكلة في طريقة فتح النموذج الفرعي بشرط تطابق السجلات أما هذا الجزء من الكود لم أعرف وظيفته : count = DCount("*", stDocName, stLinkCriteria) If count = 0 Then ' Employee ID is not found DoCmd.OpenForm stDocName, DataMode:=acFormAdd, OpenArgs:=Me.EmployeeID Else ' Employee ID is found DoCmd.OpenForm stDocName, , , stLinkCriteria End If في النموذج الفرعي Emp2 : في حدث عند الفتح : If Not IsNull(Me.OpenArgs) Then DoCmd.GoToRecord , , acNewRec Me.EmployeeID = Me.OpenArgs End If لم أعرف ما هو هذا : OpenArgs هل هو متغير أم ثابت أم ماذا ؟ اني في احراج من اتعابكم معي ونحن في أيام عيد الأضحى المبارك على كل حال حالياً يتبقى شيء واحد فقط كل ما هو مطلوب حالياً هو أن أجعل النموذج الفرعي لا يضيف أي سجل جديد إلا بنفس رقم السجل الأساس بالجدول الأول وأعتقد بأن له طريقتين وحسب ما تروه مناسباً الطريقة الأولى : جعل النموذج الفرعي يضيف رقم EmployeeID بشكل تلقائي من ذاته هذه الطريقة قام الأخ محب العلم بوضع كود لها ولكنه طوييل أو ربما لم أستطع استيعابه لأستفيد منه كما أن في المثال الذي أنشأه كان يعطي نتائج سلبية . . حيث يقوم الكود بتغيير في EmployeeID لسجلات أخرى الطريقة الثانية : جعل المستخدم هو من يختار رقم EmployeeID ولكن بوجود شرط لتطابقه مع EmployeeID في الجدول الأول مع شكرررررررررررري وتقديرررررررررري لكم جميعاااااااااااا

أخي الكريم أرجو الانتباااه فلاحظ أن الكود في النموذج emp4 يقوم بتغيير رقم EmployeeID من تلقاء نفسه !! .. أتمنى أن تلاحظ هذه المشكلة ! مع تقديري لك ولجهدك . .

السلام عليكم أخي الفاضل المكافح محب العلم الله يرزقك مثل طيب نواياك إن لم يخب ضني فأعتقد انك وضعت أكواد زائدة وشتت الأكواد التي أحتاجها لهذه العملية أعتقد هناك كود أربكني في معرفة الأكواد الأساسية .. فلا أريد إدخال كود يجعل الزر في حالة ضغط حتى يتم إغلاق النموذج الفرعي كما أن هناك شيء آخر . . أريد النموذج الفرعي عمودي وليس جدولي ومن ثم نبدا بوضع الأكواد المناسبة أولاً : الكود الخاص بفتح النموذج الفرعي بناءً على رقم السجل الحالي في النموذج الاساس ثانياً : الكود الخاص بوضع رقم السجل الحالي للنموذج الأساس في سجل جديد في النموذج الفرعي عندما نرغب بالأضافة فقط أعرف بوجود هذين الكودين في مثالك أخي الفاضل .. ولكن لم أستطع فهمها واستنباطها لأستفيد منها !!! أعرف أني أثقلت عليكم ساعدكم الله وزادكم صبراً وعلما

شكراااا لك أخي الفاضل محب العلم ولكن ماهو التعديل الذي قمت به ؟ هل قمت بتغيير نوع المربع إلى مربع تحرير وسرد ؟ ثم قمت بتحديد المصدر ؟ أم فعلت شيء آخر أيضاً ؟ والطريقة التي أستخدمها هي وضع الأكواد لكل مربع بحث في حدث : بعد التحديث وجميع هذه المربعات تعمل معي في البحث ما عدا مربع البحث بالاسم عندما أجعله مربع تحرير وسرد تفشل عملية البحث منه ؟

السلام عليكم كل عام وأنتم بخير أخي المشرف الفاضل منذر عساج في البحث عن الاسم وضعت مربع نص عادي ماذا لو أردنا جعل مصدر لهذا المربع فجعلنا مصدره هو "اسم الموظف" من جدول الموظفين لقد قمت بعمل هذا المثال ولم ينجح معي ؟ كما أنه يظهر رسالة : لا يمكن تحديد قيمة لهذا الكائن ؟ أرجو افادتي بالحل لهذه المشكلة Ser12.rar

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

شكرا على تجاوبك أخي الكريم محب العلم الحل سليم ولكني أريد اظهاره بشكل مباشر بدون معلمة أي بدون شرط .. فأريد الحقل العربي بجانبه الحقل الإنجليزي وأرجو أن يتم شرح طريقة التحكم في هذه المعلمة التي أدخلتها ولتكن بطرقة سهلة لأني لا أعرف للـ SQL بارك الله فيك وجعلك الله ذخراً للعلم

السلام عليكم فكرة رائعة أخي الكريم شكرا لك وكتب لك النجاح في حياتك كيف يمكننا التحكم في زيادة سرعة حركة الفتح والظهور ؟؟

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

أرجو مساعدتي . . مع تقديري لظروفكم جميعاً أني أتسائل .. هل بالإمكان عمل مثل هذه الطريقة أو لا يمكن ؟ مع خالص شكري وبالتوفيق لكم جميعاً وكل عام وأنتم بخيــــــــــر

للرفع . . مع التحية

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

السلام عليكم شكرا لك أخي الكريم مهند 1000 على موضوعك .. وشكرا لمشرفنا الفاضل منذر عساج في هذا الجزء (رقم 1) من كل كود : كود If Not IsNull(Me.txtFilterMainName) Then تقوم باستبدال : txtFilterMainName باسم المربع الذي تريده للبحث وفي الجزء التالي (رقم 2) من كل كود : كود strWhere = strWhere & "([اسم الموظف] Like ""*" & Me.txtFilterMainName & "*"") AND " تقوم باستبدال : اسم الموظف .. باسم الحقل الذي تريد البحث فيه في الجدول الأصلي وفي نفس الجزء تقوم باستبدال : txtFilterMainName بنفس مربع البحث الذي تريده للبحث .. أي سيتكرر هذا الاسم في هذا الجزء مع الاسم في الجزء الأعلى (رقم 1) . . أما بالنسبة للعلامة : ""*" .. فهي للبحث بجزء من الاسم وقد عملت مثال بنفسي لأتعرف على هذه الطريقة .. ولكن واجهتني مشكلة في الجزء الأخير من الكوود فلم أستطع فهمه أو حله : كود lngLen = Len(strWhere) - 5 If lngLen <= 0 Then MsgBox "&iacute;&Igrave;&Egrave; &Ecirc;&Iacute;&Iuml;&iacute;&Iuml; &Atilde;&Iacute;&Iuml; &Ccedil;&aacute;&Icirc;&iacute;&Ccedil;&Ntilde;&Ccedil;&Ecirc; ", vbInformation, "&Icirc;&iacute;&Ccedil;&Ntilde;&Ccedil;&Ecirc; &Ccedil;&aacute;&Egrave;&Iacute;&Euml; &Yacute;&Ccedil;&Ntilde;&Ucirc;&Eacute;." Else strWhere = Left$(strWhere, lngLen) Me.Filter = strWhere Me.FilterOn = True End If وللدقة فالجزء الذي واجهتني المشكلة فيه هو كود lngLen = Len(strWhere) - 5 If lngLen <= 0 Then أرجو أن يتحفنا الأخ منذر عساج بمزيد من علمه وبحر معلوماته وشكراااااااااا لكم جميعااااااا Ser11.rar

جزاك الله ألف خير أخي الفاضل يوسف هذا ممتاز ويحقق نصف المطلب حيث أنه في كل مرة عند فتح النموذج الفرعي سيقوم هذا الكود بفتح سجل جديد . . والذي أريده أن لا يفتح سجل جديد في حالة وجود سجل سابق بنفس رقم الموظف (ُُُُEmployee ID) طبعاً مع امكانية اضافة أكثر من سجل لنفس الموظف ولكن عند رغبتنا فقط أعتقد أني أخطأت باعتقادي أن هذه الطريقة قد تكون أفضل . . لأنها ربما تحتاج لكود أكبر ربما لو رجعنا للطريقة الأولى : وهي وضع رسالة تحذير في حالة عدم تساوي رقم (ُُُُEmployee ID) في النموذج الفرعي مع النموذج الأساسي قد يكون لهذه الطريقة كود أخف من السابق . أرجو أن لا أكون أثقلت عليكم فهذا الموضوع هام بالنسبة لقاعدة بياناتي مع استحيائي وشكرررررررري لكم

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

السلام عليكم بعد عناء ليس بقصير توصلت للحل بفضل الأخت زهرة حيث وجدت لها مثال في الفريق العربي ولتعذرنا بنقل وتغيير بسيط في مثالها الرائع موصول لها الشكر الجزيل المثال الأول هو الأصل بدون تعديل والمثال الثاني نفسه ولكن قمت بتغيير العدد (0.5) في الوحدة النمطية إلى العدد (0.49) واستطعت الحصول على ما أريده جزاكم الله جميعاً ألف خير وحقق لكم أحلامكم Round_UP_Down.rar Round_UP_Down2.rar

السلام عليكم أخواني الكرام لقد لاحظت مشكلة خطييييييييررررررة في دوال الجبر فحوالي منذ ثلاث ساعات جالسة على الكمبوتر اراجع الدوال ولم أحصل على دالة جبر تعمل بشكل سليم وصحيح مشكلة الدالة Cint أنها تقوم بجبر الكسور للأعلى عندما يكون الرقم العشري يساوي أو يتعدى العدد ( 0.50 ) وذلك للأرقام الصحيحة الفردية فقط دون الزوجية !!!! فإذا كان الرقم الصحيح زوجي فإنها لا تجبر الكسر ( 0.50 ) بل تضع الرقم الصحيح الزوجي نفسه !! بينما الدالة Int صحيح تقوم بجبر الكسر ( 0.50 ) وسواء كانت الأرقام الصحيحة فردية أو زوجية لا تفرق لكنها في نفس الوقت تجبر جميع الكسور حتى تلك التي أقل من ( 0.50 ) !! وتقريباً أغلب من يبحث عن دوال جبرية لا يريدها ان تجبر الأقل من ( 0.50 ) فهل بالإمكان تجاوز مشاكل هذه الدوال ؟ ملاحظة لمشرفي أوفيسنا : يا حبذا لو يتم تجميع مواضيع الدوال في موضوع فهرسي ولكم جزيل الشكر Cint___Fix___Int.rar

ممتااااز جداااااااااااااا شكرا لمساهمتك الممتااازة

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

السلام عليكم ورحمة الله وبركاته شكرا لمجهودك الطيب أخي الكريم Dream_Works بالنسبة للخطأ في علاقة الجداول قمت بتصحيحهاا أما بالنسبة لطريقة النماذج فالذي أريده هو نموذج فرعي مستقل وليس ضمن النموذج الرئيسي مرفق بالمثال التعديل مع توضيح جديد للمطلووب مع خالص شكرري _______________________3.rar