كل الانشطه

تعتبر شركة سندك للاستشارات الأكاديمية والترجمة من الجهات الرائدة في تقديم البرامج التدريبية المتخصصة التي تدعم الباحثين في تطوير مهاراتهم الأكاديمية، وتشمل هذه البرامج دورات الإحصاء والتحليل التي تُمكّن المشاركين من التعامل مع البيانات وفهم أساليب التحليل العلمي بدقة، كما توفر الشركة دورات تدريبية في البحث العلمي التي تساعد الباحثين على اكتساب المعرفة الأساسية حول منهجيات البحث وتقنيات جمع البيانات وتحليلها، وتُقدّم أيضًا دورات سندك للباحثين التي تركز على تنمية المهارات العملية لإعداد بحوث علمية متميزة، بالإضافة إلى ذلك تقدم الشركة دورة التحليل الإحصائي spss التي تعلّم الباحثين كيفية استخدام برنامج SPSS لتحليل البيانات بشكل احترافي، مما يضمن دقة النتائج وموثوقية البحث العلمي. https://www.sanadkk.com/service/26/%D8%AF%D9%88%D8%B1%D8%A9-%D8%A7%D9%84%D8%AA%D8%AD%D9%84%D9%8A%D9%84-%D8%A7%D9%84%D8%A5%D8%AD%D8%B5%D8%A7%D8%A6%D9%8A.html

في المثال اقصر طريقة للتغيير اكتب في مربع النص ثم انقر مزدوجا على الزر سوف يتغير .. ولكن لن يبقى .. بمجرد غلق النموذج وفتحه مرة اخرى ترجع التسمية الاصلية هذا يعني انه ينبغي للمبرمج ان يصمم جدولا بتسميات جميع الازرار .. يتم التغيير من خلاله .. هل هذا صحيح ؟ Database2.accdb

تسعى شركة سندك للاستشارات الأكاديمية والترجمة إلى تمكين الباحثين والطلاب من رفع مستوى إنتاجهم العلمي من خلال تقديم مجموعة متنوعة من البرامج التدريبية المتخصصة، من أبرز هذه البرامج دورات تدريبية في البحث العلمي التي توفر للباحثين أساسًا قويًا لفهم منهجيات البحث وتقنيات جمع البيانات وتحليلها بشكل احترافي، كما تقدم دورات سندك للباحثين التي تركز على تنمية المهارات العملية اللازمة لإعداد الدراسات العلمية المتميزة، وتوفر الشركة أيضًا دورات الإحصاء والتحليل والتي تساعد المشاركين على التعامل مع البيانات وتفسير النتائج بدقة واحترافية، بالإضافة إلى ذلك تُعقد دورة مهارات البحث العلمي والتوثيق التي تركز على صقل مهارات الباحث في صياغة البحث العلمي بطريقة منهجية، مع الالتزام بمعايير التوثيق العلمي الحديثة، لضمان جودة العمل الأكاديمي ونشره بطريقة موثوقة. https://www.sanadkk.com/service/32/%D8%AF%D9%88%D8%B1%D8%A9-%D9%85%D9%87%D8%A7%D8%B1%D8%A7%D8%AA-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A-%D9%88%D8%A7%D9%84%D8%AA%D9%88%D8%AB%D9%8A%D9%82.html

في عالم البحث والإنتاج العلمي، تظهر الحاجة إلى منصات قوية تدعم الباحثين في إبراز أعمالهم وتحويل جهودهم إلى مؤلفات مرئية ومؤثرة داخل المجتمع الأكاديمي، ومن بين أبرز الجهات التي تقدم هذا النوع من الدعم تأتي شركة سندك للاستشارات الأكاديمية والترجمة، فهي جهة تتخصّص في تقديم مسارات احترافية للباحثين الراغبين في النشر والوصول العلمي الموثق، وتتحقق هذه الرحلة من خلال إمكانات عالية توفّرها دار نشر للكتب العلمية، التي تُعد حلقة مهمة في تحويل البحث إلى إنتاج يُقرأ ويُقتنى ويستفيد منه الآخرون، كما تقوم سندك بتسهيل عملية نشر الكتب العلمية، مما يمنح الباحث نافذة واسعة للتواجد في الأوساط العلمية وإتاحة أفكاره ومخرجات بحثه للقراء، وتُعد خدمة تحويل اطروحتك إلى كتاب أحد أهم المسارات التي توفّر مخرجًا احترافيًا يرفع من قيمة الرسالة البحثية ويجعل انتشارها أوسع، وإلى جانب ذلك، تقدم سندك خدمة متخصصة تتمثل في خدمة تحويل الرسائل العلمية إلى كتب، وهي خطوة تعيد إحياء الرسالة العلمية بأسلوب قابل للنشر والتداول ليصبح مرجعًا معرفيًا يتجاوز حدود النسخة الجامعية التقليدية. https://www.sanadkk.com/service/25/%D8%AE%D8%AF%D9%85%D8%A9-%D8%AA%D8%AD%D9%88%D9%8A%D9%84-%D8%A7%D9%84%D8%B1%D8%B3%D8%A7%D8%A6%D9%84-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9-%D8%A5%D9%84%D9%89-%D9%83%D8%AA%D8%A7%D8%A8-%D9%81%D9%8A-%D8%B4%D8%B1%D9%83%D8%A9-%D8%B3%D9%86%D8%AF%D9%83-%D9%84%D9%84%D8%A7%D8%B3%D8%AA%D8%B4%D8%A7%D8%B1%D8%A7%D8%AA-%D8%A7%D9%84%D8%A7%D9%83%D8%A7%D8%AF%D9%8A%D9%85%D9%8A%D8%A9-%D9%88%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9.html

في ظل التطور الكبير في مجال البحث العلمي وازدياد الحاجة إلى نشر المعرفة وتمكين الباحثين من المشاركة مع المجتمع الأكاديمي، برزت أهمية المؤسسات التي تقدّم خدمات متخصصة للباحثين بمختلف مستوياتهم، ومن بين أبرز هذه الجهات تأتي شركة سندك للاستشارات الأكاديمية والترجمة التي تسهم بدور مهم في دعم الباحث وجعل إنتاجه العلمي قابلًا للنشر والوصول للجمهور، وتتيح هذه الجهة للباحثين خدمة متميزة تتمثل في تحويل اطروحتك إلى كتاب؛ بما يضمن نقل المعرفة من نطاق ضيق إلى انتشار أوسع وأثر أكبر في الوسط العلمي. كما تمتلك إمكانات متقدمة من خلال دار نشر للكتب العلمية التي تعمل على استقبال الكتب وإعدادها للنشر وفق معايير احترافية، إضافةً إلى ذلك، توفر خدمات متكاملة في مجال نشر الكتب العلمية، بحيث تمكّن الباحث من عرض أفكاره وتجاربه العلمية بطريقة منظمة ومنسقة، ومن أبرز ما تقدمه أيضًا خدمة خدمة تحويل الرسائل العلمية إلى كتب التي تساعد الباحث في إعادة صياغة ونشر رسالته بشكل احترافي يليق بقيمتها العلمية. https://www.sanadkk.com/service/25/%D8%AE%D8%AF%D9%85%D8%A9-%D8%AA%D8%AD%D9%88%D9%8A%D9%84-%D8%A7%D9%84%D8%B1%D8%B3%D8%A7%D8%A6%D9%84-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9-%D8%A5%D9%84%D9%89-%D9%83%D8%AA%D8%A7%D8%A8-%D9%81%D9%8A-%D8%B4%D8%B1%D9%83%D8%A9-%D8%B3%D9%86%D8%AF%D9%83-%D9%84%D9%84%D8%A7%D8%B3%D8%AA%D8%B4%D8%A7%D8%B1%D8%A7%D8%AA-%D8%A7%D9%84%D8%A7%D9%83%D8%A7%D8%AF%D9%8A%D9%85%D9%8A%D8%A9-%D9%88%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9.html

في عالم البحث العلمي والنشر المتخصص، تسعى العديد من الجهات لتقديم حلول تدعم الباحثين في رحلتهم العلمية، ومن بين هذه الجهات تبرز شركة سندك للاستشارات الأكاديمية والترجمة كواحدة من المؤسسات الرائدة التي تقدم مجموعة متنوعة من الخدمات الأكاديمية، تعمل الشركة على توفير منظومة متكاملة تساعد الباحثين على وصول أبحاثهم إلى النور من خلال خدمات نشر الكتب العلمية، كما تتيح إمكانية تحويل اطروحتك إلى كتاب بهدف تعميم الفائدة ونشر المعرفة، وتتميز أيضًا بامتلاكها دار نشر للكتب العلمية تدعم مختلف التخصصات والمجالات، بالإضافة إلى توفير خدمة تحويل الرسائل العلمية إلى كتب لتصبح مرجعًا علميًا موثقًا يمكن تداوله والاستفادة منه على نطاق واسع. https://www.sanadkk.com/service/25/%D8%AE%D8%AF%D9%85%D8%A9-%D8%AA%D8%AD%D9%88%D9%8A%D9%84-%D8%A7%D9%84%D8%B1%D8%B3%D8%A7%D8%A6%D9%84-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9-%D8%A5%D9%84%D9%89-%D9%83%D8%AA%D8%A7%D8%A8-%D9%81%D9%8A-%D8%B4%D8%B1%D9%83%D8%A9-%D8%B3%D9%86%D8%AF%D9%83-%D9%84%D9%84%D8%A7%D8%B3%D8%AA%D8%B4%D8%A7%D8%B1%D8%A7%D8%AA-%D8%A7%D9%84%D8%A7%D9%83%D8%A7%D8%AF%D9%8A%D9%85%D9%8A%D8%A9-%D9%88%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9.html

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

السلام عليكم احبتي : بعض البرامج مرنة تصلح لأي مشروع .. فقط تحتاج الى تغيير بعض التسميات فمثلا تسميات القوائم وعناوين التقارير والنماذج هذه امرها يسير ومقدور عليه من خلال الجداول ويمكن للمستخدم تغييرها من خلال النماذج التي يعمل عليها حتى ان المبرمج الحاذق يجعل تسميات الحقول تتغير آليا تبعا للقوائم الرئيسية وكما في العنوان نريد تمكين العميل او المستخدم من تغيير مسميات الازرار لنفرض ان الزر اسمه .. متابعة التربية الاسلامية .. ويريد المستخدم تغييره الى متابعة الثقافة العامة والسبب ان العميل غير في الأساس واستبد التربية الدينية بالثقافة العامة نريد عمل دالة تطبق على جميع ازرار المشروع يمكننا عمل خانة نعم/لا لتفعيل الاجراء من عدمه ( لأن الاقرب ان الحدث سيكون على النقر المزدوج للزر ) اتمنى اني وضحت المطلوب والهدف منه ومعذرة لم ابحث في المنتدى .. قد يوجد مواضيع تتحدث عن مثل هذا .. سأبحث الآن 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