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

فورم حضور وانصراف عاملين واذن خروج ودخول الفيديو الصور الملفات عدد 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

حياك الله 🙂 and you are always welcome 🙂 جعفر

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

وعليكم السلام 🙂 هذا الرابط قد يفيدك جعفر

حياك الله 🙂 رجاء فتح موضوع جديد لهذا الطلب ، فهو خارج عن موضعنا الذي نحن به 🙂 جعفر

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

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

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

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

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

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

السلام عليكم 🙂 عملت تغيير على النموذج ليصبح خفيفا 🙂 ولما تختار الشهر والسنه والمنطقة ، افتح الاستعلام qry_New_Request_Results ليعطيك النتيجة المطلوبة 🙂 الاستعلام : عملنا وحدة نمطية اسمها Concat لجمع بيانات الحقل ، ونرسل لها اسم الحقل المراد تجميع بياناته في سطر واحد ، ونرسل اسم الشخص ، ونعمل هذا لكل حقل . والنتيجة: . وهذه هي الوحدة النمطية: Public Function Concat(F_Name, P_Name) On Error GoTo err_Concat 'F_Name = Field Name 'P_Name = Person Name Dim rst As DAO.Recordset Dim RC As Integer Dim i As Integer Dim Add_Me As String Dim strSQL As String 'do the query SQL for this Field name ONLY strSQL = "Select [" & F_Name & "] From [New_Request] Where [PName]= '" & P_Name & "'" Set rst = CurrentDb.OpenRecordset(strSQL) 'make the Recordset in memory rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount 'loop through the Records For i = 1 To RC 'ONLY add this value if we didn't add it before If InStr(Add_Me, rst(F_Name)) = 0 Then Add_Me = Add_Me & ", " & rst(F_Name) 'Concatenate these values End If rst.MoveNext Next i Concat = Mid(Add_Me, 3) 'remove the initial comma Exit_Concat: rst.Close: Set rst = Nothing Exit Function err_Concat: If Err.Number = 3021 Then 'no data Concat = "" Resume Exit_Concat ElseIf Err.Number = 3061 Then 'too few parameters, expected xx 'this error occurs when trying to run a query which needs its parameters from a Form, 'the Form should be open with the parameter, then this code take the values properly Dim qdf As DAO.QueryDef Dim prm As Parameter ' For Each qdf In CurrentDb.QueryDefs ' If qdf.Name = "NewQueryDef" Then ' CurrentDb.QueryDefs.Delete "NewQueryDef" ' Exit For ' End If ' Next Set qdf = CurrentDb.CreateQueryDef("NewQueryDef", strSQL) For Each prm In qdf.Parameters prm.Value = Eval(prm.Name) Next prm Set rst = qdf.OpenRecordset(dbOpenDynaset) CurrentDb.QueryDefs.Delete "NewQueryDef" Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function جعفر 1015.Concatenate.accdb.zip

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

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

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

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

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

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