كل الانشطه

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

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

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

السلام عليكم ورحمة الله وبركاته اخواني المتابعين اضع بين ايديكم شرح لعمل فلتر متقدم احترافي اكسل https://web.facebook.com/share/v/1D1gV8MEei/

اعتقد انه يقضد (شكراً لك أخي) ولكنه لم يراجع ماكتب قبل الارسال .

تفضل استاذ @بلال اليامين الشرح والمرفق . ووافني بالرد . البرنامج1.rar

تفضل استاذ @اكتيف طلبك حسب مافهمت بالاستعلام الحقل (BB) وباقي الحقول سويها بالمثل مثلاً (([اسم الحقل])AA:RoundCustom). ووافني بالرد . Database1-1.rar

تفضل استاذ @figo82eg طلبك حسب ما فهمت . ووافني بالرد . الرقم القومى-1.rar

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

جرب Round((([درجة1]+[درجة2]+[درجة3]+[درجة4])/4)*2)/2 لو فى استعلام AvgRounded:Round(((Nz([Exam1],0)+Nz([Exam2],0)+Nz([Exam3],0)+Nz([Exam4],0))/4)*2)/2 بالتوفيق

تفضل بالتوفيق البرنامج1_2.accdb

تفضل بالتوفيق الرقم القومى.rar

مساء الخير لو سمحت انا عندى مشكلة في العلامه العشرية فى الاكسيس بمعنى انا عندى الطفل له 4 امتحانات هجمعهم واقسم على 4 يعنى مثلا مروان درجاته 10 و 7.5 و 9.5 و 9.5 كدا المجموع 36.5 المفروض اقسم على 4 هيطلع 9.125 انا مش عاوز كدا عاوز يعمل تقريب يعنى الرقم دا يبقي 9.5 وكمان لو الطفل درجته 9.5 تبقي زى ما هي ولو درجته 9.6 تتقرب الى 10 Database1.accdb

ارجو المساعدة

يا جماعه جهازي تعطل وانتهى غيرت جهاز لينفو ثانكستيشن حديث وجيت ينزل وندوز7 لأن معي برامج تشتغل عليه فقط المهم عند ضهور واجهة التنصيب أول شي عند اختيار اللغه وكذا الماوس و الكيبورد ما تشتغل وكأنها ما مركبه دورت في النت وجدت ان المشكله تعريف الUSB ارجوكم اي حد عنده فكره كيف اضيف التعاريف او حل للمشكله يسعفني بالله ولكم جزيل الشكر

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

لدى قاعدة بيانات يتم تسجيل هوية العميل : 1 رقم قومى 2 جواز سفر 3 وثيقة اقامة 4 بطاقة ورقية وعند اختيار نوع الهوية : الرقم القومى وبعد كتابة الرقم القومى المكون من 14 رقم يتم تسجيل تاريخ الميلاد ومحافظة الميلاد والنوع تلقائى ما اريده هو عند اختيار اى نوع أخر من الهوية غير الرقم القومى يتم السماح لى بالتسجل اى ارقام وحرف فى نفس الحقل الرقم القومى.rar

بناءً على طلب أخي يوسف ، تم تحويل الكود إلى وحدة نمطية عامة ، بحيث يتم الاستدعاء من أي مكان وأي نموذج . بحيث تصبح :- Public Function GenerateSalary(yearInput As Integer) Dim db As DAO.Database Dim tDef As DAO.TableDef Dim fld As DAO.Field Dim rs As DAO.Recordset Dim startDate As Date, endDate As Date, d As Date Dim monthName As String Dim monthCode As Integer Dim shiftValue As Double Dim startDateTime As Date Dim endDateTime As Date Dim monthEndDate As Date Dim monthEndWorkDate As Date Dim m As Integer, y As Integer startDate = DateSerial(yearInput - 1, 12, 21) endDate = DateSerial(yearInput, 12, 20) On Error Resume Next DoCmd.DeleteObject acTable, "Salary" On Error GoTo 0 Set db = CurrentDb db.Execute "CREATE TABLE Salary (" & _ "ID AUTOINCREMENT PRIMARY KEY, " & _ "WorkDate DATE, " & _ "DayName TEXT(20), " & _ "MonthName TEXT(20), " & _ "monthCode LONG, " & _ "shift CURRENCY, " & _ "startDay DATE, " & _ "endDay DATE)" Set tDef = db.TableDefs("Salary") Set fld = tDef.Fields("shift") On Error Resume Next fld.Properties("Format") = "#,##0.00" If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("Format", dbText, "#,##0.00") End If fld.Properties("DecimalPlaces") = 2 If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("DecimalPlaces", dbInteger, 2) End If Set fld = tDef.Fields("startDay") On Error Resume Next fld.Properties("Format") = "hh:nn AM/PM" If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("Format", dbText, "hh:nn AM/PM") End If Set fld = tDef.Fields("endDay") On Error Resume Next fld.Properties("Format") = "hh:nn AM/PM" If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("Format", dbText, "hh:nn AM/PM") End If On Error GoTo 0 Set fld = Nothing Set tDef = Nothing Set rs = db.OpenRecordset("Salary", dbOpenDynaset) monthCode = 0 monthEndWorkDate = DateSerial(yearInput - 1, 12, 20) d = startDate Do While d <= endDate If Weekday(d, vbMonday) <> 5 And Weekday(d, vbMonday) <> 7 Then m = Month(d) y = Year(d) If Day(d) >= 21 Then m = m + 1 If m = 13 Then m = 1 y = y + 1 End If End If monthName = Format(DateSerial(y, m, 1), "MMMM") monthCode = 0 monthEndDate = DateSerial(Year(d), Month(d), 20) If Weekday(monthEndDate, vbMonday) = 5 Or Weekday(monthEndDate, vbMonday) = 7 Then monthEndWorkDate = monthEndDate Do monthEndWorkDate = DateAdd("d", -1, monthEndWorkDate) Loop Until Weekday(monthEndWorkDate, vbMonday) <> 5 And Weekday(monthEndWorkDate, vbMonday) <> 7 Else monthEndWorkDate = monthEndDate End If If d = monthEndWorkDate Then Select Case Month(d) Case 12: If Year(d) = yearInput - 1 Then monthCode = 1 Else monthCode = 12 Case 1: monthCode = 1 Case 2: monthCode = 2 Case 3: monthCode = 3 Case 4: monthCode = 4 Case 5: monthCode = 5 Case 6: monthCode = 6 Case 7: monthCode = 7 Case 8: monthCode = 8 Case 9: monthCode = 9 Case 10: monthCode = 10 Case 11: monthCode = 11 End Select End If If Weekday(d, vbMonday) = 6 Or Weekday(d, vbMonday) = 3 Then shiftValue = 1 startDateTime = DateAdd("n", 30, DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(8, 0, 0)) endDateTime = DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(13, 30, 0) Else shiftValue = 1.2 startDateTime = DateAdd("n", 10, DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(8, 0, 0)) endDateTime = DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(14, 30, 0) End If rs.AddNew rs!WorkDate = d rs!DayName = Format(d, "dddd") rs!monthName = monthName If monthCode > 0 Then rs!monthCode = monthCode Else rs!monthCode = Null End If rs!shift = shiftValue rs!startDay = startDateTime rs!endDay = endDateTime rs.Update End If d = d + 1 Loop rs.Close Set rs = Nothing db.TableDefs.Refresh Set db = Nothing MsgBox "تم إنشاء الجدول بنجاح", vbInformation + vbMsgBoxRight, "" DoCmd.SelectObject acTable, "Salary", True End Function طبعاً تم دمج الدالتين معاً . والإستغناء عن ا|لإستدعاء المتكرر للجملة ElseIf باستخدام الدالة Select Case . وسيصبح الإستدعاء كمثال بالشكل التالي :- Private Sub btnGenerate_Click() If IsNull(Me.TxtYear) Then MsgBox "أدخل رقم السنة", vbExclamation + vbMsgBoxRight, "" Me.TxtYear.SetFocus Exit Sub End If GenerateSalary (Me.TxtYear) End Sub الملف بعد التعديل :- CalGen2.zip

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

تتميز شركة إتقان بالمرونة في التعامل مع مشاريع مختلفة وتقدم حلول الترجمة المناسبة لكل عميل، وتمتلك خبرة علمية واسعة في مجال الترجمة التي تحتاج إلى تميز واحترافية عالية، كما تقدم خدمات ترجمة جديدة للخريجين والباحثين الرائعين أكاديمي سليم، وتحرص على الالتزام بالمواعيد النهائية، وحتى تجربة مجانية من القلق .

تعتمد شركة إتقان على أحدث الأدوات والتقنيات اللغوية لتقديم خدمات الترجمة بجودة عالية، ويعمل لديها نخبة من المتخصصين في الترجمة العلمية في المجالات الطبية والهندسية والأكاديمية، كما تولي اهتمامًا كبيرًا بأعمال ترجمة البحوث العلمية بما يتوافق مع متطلبات النشر الدولي، وتسعى دائمًا إلى التطوير المستمر لخدماتها؛ لتواكب تطورات السوق العالمي.

تعتمد شركة إتقان على أحدث الأدوات والتقنيات اللغوية لتقديم خدمات الترجمة بجودة عالية، ويعمل لديها نخبة من المتخصصين في الترجمة العلمية في المجالات الطبية والهندسية والأكاديمية، كما تولي اهتمامًا كبيرًا بأعمال ترجمة البحوث العلمية بما يتوافق مع متطلبات النشر الدولي، وتسعى دائمًا إلى التطوير المستمر لخدماتها؛ لتواكب تطورات السوق العالمي.

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

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