نجوم المشاركات

فورم حضور وانصراف عاملين واذن خروج ودخول الفيديو الصور الملفات عدد 2 فى صفحة واحدة وفى 4 صفحات حضور وانصراف عاملين واذن خروج ودخول.rar حضور وانصراف العاملين.rar

السلام عليكم وهذا حل آخر باستعمال الدالة OFFSET في الملف المرفق... بن علية حاجي تعديل ملف.xlsx

وعليكم السلام يمكنك استخدام هذه المعادلة =INDEX($I$2:$S$21,MATCH(B3,$H$2:$H$21,0),MATCH(C3,$I$1:$S$1,0)) تعديل ملف.xlsx

وعليكم السلام 🙂 ومشاركة مع اخي زياد 🙂 عندك هذه الاختيارات: D1: DateSerial([date year],[date mans],[date day]) او D2: CDate([date day] & "/" & [date mans] & "/" & [date year]) او D3: Format([date day] & "/" & [date mans] & "/" & [date year],"dd/mm/yyyy") . . ولكن انظر الى النتيجة: سترى ان الحقول D1 و D2 و D3 تعطي التاريخ الصحيح ، ولكن الاكسس لا يرى ان جميع هذه الحقول هي حقل تاريخ!! انظر الى محاذاة نتيجة الحقل: فالحقول D1 و D2 فهي محاذاتها الى اليمين ، مما يعني ان الاكسس عاملها كحقل تاريخ ، بينما الحقل D3 فهو بمحاذاة اليسار ، اي اعتبرها حقل نص . وللتأكد ، انقر بالفأرة اليمين على الحقل ، والمفروض ان الاكسس يعطيك تصفية خاصة بنوع الحقل: تاريخ: . نص: وافضل هذه الاختيارات هو D1 🙂 جعفر 1016.hany - Copy - Copy.mdb.zip

السلام عليكم من تجربتي ، وبسبب اختلاف اعدادات الوندوز ولغاته ، توصلت لعمل جدول خاص للاشهر tbl_Months ، ممكن اعدادات الوندوز تظهر الشهر بصيغة December ، او ديسمبر ، او كانون الاول . . ولكنك تريد ان يظهر عندك الشهر بأحد هذه الصيغ ، بغض النظر نظام اي كمبيوتر يعمل عليه برنامجك ، فيمكنك قراءة الطريقة التي تريدها من الجدول ، كما هو واضح في المثال . وهذا الكود كمثال فقط ، عن طريقة مناداة الحقول من الجدول: Private Sub myDate_AfterUpdate() 'display the dates based on the system setting Me.Date_1_System = Format(Me.myDate, "dddd dd/mm/yyyy") Me.Date_2_System = Format(Me.myDate, "dddd dd, mmm yyyy") Me.Day_System = Format(Me.myDate, "dddd") Me.Month_System = Format(Me.myDate, "mmmm") ' 'use the following Functions to get the integer number of: 'Today= 22 December 2017 'Day(Today) = 22 'Weekday(Today) = 6 'Friday 'Month(Today) = 12 'December 'Year(Today) = 2017 ' Me.Day_table_Arabic = DLookup("[Days_Arabic]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Day_table_English = DLookup("[Days_English]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Month_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = Day(Me.myDate) & " " & Me.Date_Table_Georgian & " " & Year(Me.myDate) Me.Date_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Iraqi = Day(Me.myDate) & " " & Me.Date_Table_Iraqi & " " & Year(Me.myDate) Me.Date_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_English = Day(Me.myDate) & " " & Me.Date_Table_English & " " & Year(Me.myDate) End Sub وبعدها توسعت في الجدول واستفدت منه لأشياء اخرى جعفر tbl_Months.mdb.zip

السلام عليكم نزولا عند رغبة احد الاصدقاء برنامج تسجيل الاقساط اوتوماتيك نقوم بتسجيل بيانات العميل كاملة ثم نكبس على الاقساط نفتح لنا شاشة جديدة نكبس على تسجيل الاقساط فتنزل الاقساط اوتوماتيك عند دفع القسط نقوم بتحويل الحالة من لم يتم الدفع الى تم الدفع ثم تكبس على تحديث بعد الدفع نستطيع الحصول على كشف حساب للعميل أتمنى لكم الفائدة واتس أب 00962787787573 اقساط.accdb

وعليكم السلام 🙂 تفضل: Private Sub Command24_Click() ' مفتاح اضافة موظف اخر لنفس القرار Dim strSQL As String Dim intHow_Many As Integer strSQL = "[KararNom]='" & Me.KararNom & "'" strSQL = strSQL & " And [KararYear]='" & Me.KararYear & "'" strSQL = strSQL & " And [CompID]=" & Me.CompId intHow_Many = DCount("*", "TblKararat", strSQL) If intHow_Many > 0 Then MsgBox "لقد تم تسجيل هذا الموظف مسبقا" Exit Sub End If DoCmd.RunCommand acCmdSaveRecord Dim x As Integer If MsgBox("تم اضافة وحفظ بيانات الموظف للقرار بنجاح. هل تريد اضافة موظف لنفس القرار؟", vbYesNo, "تنبيه") = vbYes Then Dim N, Y, F N = Me.KararNom: Y = Me.KararYear: F = Me.KararFrom DoCmd.GoToRecord , , acNext Me.KararNom = N: Me.KararYear = Y: Me.KararFrom = F Me.CompId.SetFocus Else DoCmd.RunCommand acCmdRecordsGoToNext Me.KararNom.SetFocus End If End Sub جعفر

كما طلبت اضافة موظف اخر لنفس القرار.rar

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

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

بارك الله بك أخ علي لكني أفضل هذه المعادلة في حال ادراج نص أو رقم سالب او كانت الخلية فارغة (يظهر فراغ) =IF(N(A2)<=0,"",YEAR(INT(A2)))

اهلا بك اخى الكريم فى المنتدى -من فضلك لكى تكتمل مشاركتك دائما لابد من رفع ملف وشرح المطلوب عليه بالتفصيل لأنك لا تعرف اوقات الأساتذة فلا تنتظر ان يقوم أحد بعمل ملف لك ولكن هذه اول مشاركة لك فتفضل لك ما طلبت Split Date.xlsx

تفضل الملف دون حماية... بن علية حاجي 1 (1).xlsx

اتفضل اخى الكريم الملف الترحيل من الاكسيل الى الورد.xlsm

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

اشكر لك معاونتك اخى الفاضل ولكن للاسف ليس لدى خبرة بالاكسيس ومرة اخرى شكرا لحضرتك

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طلب مساعدة فى برنامج لشئون العاملين تم ارفاق كود الحل من الفاضل / حمادة عمر و لا تنسونا من صالح الدعاء شاشة استعلام3+ (1).rar

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... بن علية حاجي Test.rar

وعليكم السلام 🙂 اذا انا مو غلطان ، فهذه ثالث محاولة/موضوع لك لنفس الشيء ، وما حصلت اجابات هناك🙂 في الواقع جدولك هذا مال اكسل ، بينما جدول قاعدة البيانات لازم يكون بهذه الطريقة: . واعتقد بأنك تقدر تواصل من هنا 🙂 وحيالله اخوي co2002co 🙂 جعفر 1014.Salary_increment.accdb.zip

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتك بكل خير ضع المعادله الخاصه بالرواتب مثلا المرتبه الاولى الدرجه الاولى كم الرتب الاساسي كم الاضافات المضافه ( سكن ، نقل ، الخ ) التامين الي اقصده انك ضع المعادله الخاصه باحتساب الراتب الخاصه بك لان كل بلد او دائره او مؤسسه حسابات خاصه به

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