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

سبب السجل الجديد هو: عند اختيارك كود الموظف (ولأنه مربوط/مضمن) فإنك في واقع الامر تضيف معلومة الى سجل جديد ، فينتج عنه الخطأ.

تفضل جرب هذا السطر بعد التعديل عليه : Amount2: DLookUp("[Amount]";"Sand_T";"[EmployeeID]= " & [EmpID ] & " and [Sdate]=#" & [MovDate] & "#")

اخي الفاضل ، خلينا نتكلم عن الموظف رقم 2 فقط. في الجدول عنده هذه السجلات . بينما في الاستعلام عنده هذه السجلات . هل قصدك ان تأخذ السجلات من الجدول الى الاستعلام بنفس الالوان والقيم اللي ذكرتها في الصورة التالية: . جعفر

شكرا اخي سليم شكرا و شكرا لك يا اخي ع/ السلام , اشقائي واحبائي ولكم جزيل الشكر. تم حل المشكل بارك الله فيكم

وعليكم السلام يمكن جلب المعلومة/المعلومات بعدة طرق ، ولكن نحتاج معرفة طريقة عرضها في النموذج وبدلا عن الاخذ والعطاء ، ارفق الجزئية هذه من برنامجك للنظر فيه جعفر

السلام عليكم هذا موضوع الاخ @حمدى الظابط الخاص بالسحب والافلات: جعفر

انظر لهذا الحل ..... رواتب .rar

اتفضل alaa_password(1).accdb

وعليكم السلام اخي علاء انا اضفت Enable اللي ما يسمح بإدخال قيمة للحقل حتى ولو كان مرئي ، وطبعا يمكنك حذفه جرب هذا الكود Private Sub Form_Load() With Me.new .Visible = False .Enabled = False End With End Sub Private Sub old_AfterUpdate() If Me.old.Text = "" Then MsgBox "من فضلك أكتب إسم كلمة السر ", vbCritical, "تحذير" ElseIf Me.old.Text = [password] Then Me.new.Visible = True Me.new.Enabled = True ElseIf Me.old.Text <> [password] Then MsgBox "كلمة السر خطأ من فضلك حاول مرة اخرى ", vbCritical, "تحذير" End If End Sub جعفر

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

طريقة فك كلمة السر لمحرر الأوامر VBA في إكسل دون برامج .

الله يطول في عمرك ، اعطني معلومة كافية علشان اوصل للمطلوب!! كيف اوصل للي انت وصلت له؟

اذا كانت فكرتي صحيحة ، فيجب ان يكون استعلامك هكذا ، بحيث يكون لدينا معيار رقم الموظف والتاريخ: والنتيجة جعفر

وعليكم السلام هذا ممكن عمله في استعلام والذي يكون مصدر بيانات النموذج ، وفي تقرير ايضا 🙂 جعفر

وعليكم السلام لو تشرح المطلوب بمثال ، فقد نستطيع مساعدتك بشكل افضل جعفر

أستاذنا @kanory حضرتك عبقري بجد ربنا يزيدك من علمه وفضله شكرا ألف شكر

جرب هذه المعادلة =IFERROR(INDEX($F$9:$F$100,MATCH(SUM($D$3,$F$3),$G$9:$G$100,0)),"No Data")

انت تستخدم اسم Date كتسمية لحقل وهذا خطأ لان DAte من الأسماء المحجوزة استخدمها مع التاريخ بهذه الطريقة Me.txtDate.DefaultValue = "#" & Date - 1 & "#"

السلام عليكم تفضل: الاستعلام اصبح: . ونتائج النموذج: . والوحدة النمطية: Public Function Calc_Diff(DE1 As Date, DE2 As Date) As Long Dim Time_Left_day1 As Long Dim Time_day2_Morning_Til_DE2 As Long Dim Time_days_Between_day1_day2 As Long Dim Interval As Long 'all the calculations are in minutes 'DE1 = Date 1st Employee finished his task 'DE2 = Date 2nd Employee finished his task 'DE1 & DE2 finished the same day If Format(DE1, "yyyymmdd") = Format(DE2, "yyyymmdd") Then Interval = DateDiff("n", DE1, DE2) 'DE2 finished next day ElseIf DateDiff("d", DE1, DE2) = 1 Then 'time from DE1 til the end of the day Time_Left_day1 = DateDiff("n", DE1, DateSerial(Year(DE1), Month(DE1), Day(DE1)) & " 2:00:00 PM") 'time from morning til DE2 finished Time_day2_Morning_Til_DE2 = DateDiff("n", DateSerial(Year(DE2), Month(DE2), Day(DE2)) & " 7:00:00 AM", DE2) 'add the above Interval = Time_Left_day1 + Time_day2_Morning_Til_DE2 'DE2 didn't finish next day Else 'time from DE1 til the end of the day Time_Left_day1 = DateDiff("n", DE1, DateSerial(Year(DE1), Month(DE1), Day(DE1)) & " 2:00:00 PM") 'time from morning til DE2 finished Time_day2_Morning_Til_DE2 = DateDiff("n", DateSerial(Year(DE2), Month(DE2), Day(DE2)) & " 7:00:00 AM", DE2) 'time days between day1 and day2 Time_days_Between_day1_day2 = DateDiff("d", DE1, DE2) * 420 ' 1 working day = 7 hours x 60 minutes/hour = 420 minutes 'add the above Interval = Time_Left_day1 + Time_day2_Morning_Til_DE2 + Time_days_Between_day1_day2 End If ' Format and print the time interval in days, hours, minutes and seconds. 'Calc_Diff = Minutes2Duration(Interval) Calc_Diff = Interval End Function Public Function Minutes2Duration(minutes As Long) As String Dim dd As Long, hh As Integer, mm As Integer 'from: http://bytes.com/topic/access/answers/696226-converting-minutes-days-hours-minutes ' modified by jjafferr based on the working day hours ' 1 day = 24 hours x 60 minutes/hour = 1440 minutes ' 1 working day = 7 hours x 60 minutes/hour = 420 minutes ' dd = minutes \ 420 minutes = minutes - dd * 420 hh = minutes \ 60 mm = minutes Mod 60 ' If dd = 0 Then 'No day adjustment Minutes2Duration = Format(dd, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") ' Else 'needs day adjustment ' Minutes2Duration = Format(dd - 1, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") ' End If End Function جعفر 973.1.قاعدة البيانات8.mdb.zip

هذا تعديل على مثال الاستاذ ابو عارف Private Sub Gender_AfterUpdate() Combo7 = "" If Me.Gender = "Male" Then Combo7.RowSource = "-" Combo7 = "-" Else Combo7.RowSource = Chr(34) & "Yes" & Chr(34) & ";" & Chr(34) & "No" & Chr(34) Combo7.Requery Combo7.SetFocus Combo7.Dropdown End If End Sub بالتوفيق

وعليكم السلام المنتدى مليء بما لذ وطاب من المواضيع ، فاجعل البحث وسيلتك للوصول اليها هذه بعض نتائج البحث الخاصة بطلبك: . و . جعفر

احسنت وجزاك الله خيرا

=INDEX(F9:F20;MATCH(F3+D3;G9:G20;0))

يا مرحبا استاذنا الغالي اباجود نورت يبدو انك ما نزلت المرفق حيث جربته قبل رفعه الى المنتدى

وهذه فكره Private Sub Gender_AfterUpdate() Combo7 = "" Combo7.RowSource = Choose(Gender.ListIndex + 1, "-", "Yes;No") End Sub بالتوفيق

اتفضل استخدمت هذا فانكشن في وحدة نمطية Public Type POINTAPI tLng_Xloc As Long tLng_YLoc As Long End Type Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long وعملنا نموذج باسم فورم 2 وهذه هو الاكواد في النموذج Option Compare Database Private Sub Command0_Click() DoCmd.OpenForm "التعديل", acNormal, , "[الرمز الوظيفي للموظف]='" & Me.Text3 & "'" DoCmd.Close acForm, Me.Name End Sub Private Sub Command1_Click() DoCmd.OpenForm "التعديل1", acNormal, , "[الرمز الوظيفي للموظف]='" & Me.Text3 & "'" DoCmd.Close acForm, Me.Name End Sub Private Sub Command2_Click() DoCmd.OpenForm "الشهادات", acNormal, , "[الرمز الوظيفي للموظف]='" & Me.Text3 & "'" DoCmd.Close acForm, Me.Name End Sub Private Sub Form_Load() DoCmd.MoveSize lngListLeft, lngListTop End Sub وفي نموذج الفرعي بها زر وعند الضغط بالماوس هذا هو الكود المستخدمة Private Sub Command33_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single) Dim MouseLocation As POINTAPI GetCursorPos MouseLocation DoCmd.OpenForm "form2", acNormal Form_form2.Move Trim(MouseLocation.tLng_Xloc) - (3.5 * 537), Trim(MouseLocation.tLng_YLoc) * 10 Form_form2.Text3.Value = Me.التسلسل End Sub اليك القاعدة 2018-2019.rar

اتفضل استخدمت فانكشن لبقية الكود مع متغير Public YesOrNo As Integer Public Function PrintMyRep() If YesOrNo = 1 Then DoCmd.OpenReport "Rprnt", acViewNormal, , "[orderno] = " & Me![orderno] Form_f_order.SetFocus DoCmd.GoToRecord , , acNewRec If Me.orderno > 0 Then Exit Function Else Refresh Call MyOutoNum F_ordersubform.SetFocus DoCmd.GoToControl "itemcode" Refresh End If End If End Function msg form (1).rar

وعليكم السلام ورحمة الله وبركاته تفضل: مع تغيير اسم الكومبو الى Snf ضع هذا الكود في حدث بعد التحديث للكمبو السابق For i = 1 To 5 Select Case Me.Snf Case "ضابط" Me("m" & i).Visible = False Me("d" & i).Visible = True Case Else Me("d" & i).Visible = False Me("m" & i).Visible = True End Select Next i

عند دمج عدة خلايا فان اكسل يعطي قيمة الخلية الاولى في حقل الدمج(هذا هو محتوى رسالة التتحذير) لذلك هذه الطريقة لا تعطي نتيجة استعمل هذه المغادلة =B11&" "&C11&" "&D11 الملف مرفق 11-208.xlsx

اتفضل 2.accdb

هذا سوف يوضح لك بإذن الله تعالى example2.docx الطريقة السهلة هي: عن طريق إزالة علامة الصح من الارتباطات التشعبية. وطريقة التحديد لا بد أن تكون كما أشرت في الملف المرفق.

اهلا وسهلا بك استاذ @رمهان والله ليك شوقه تغييب تغيب وتظهر كالجواد فعلا استخدمت dao وتم الامر وتم حل المشكلة بنجاح واشكر جدا الاستاذ @ابوخليل على مساعدته .. الله يبارك فيه ويسعده وبارك الله فيكم جميعا 'وهذا هو الكود ياستاذ رمهان حسب طلبك لتطلع عليه 'وايضا لمن ياتى من بعدنا حتى يستفيد منه Private Sub Form_BeforeUpdate(Cancel As Integer) Dim x As String Dim db2 As Database Dim rs As Recordset Set db2 = CurrentDb Set rs = db2.OpenRecordset("SELECT [id_company] & [taxt_name1] & [date_f] AS Expr1 " & vbCrLf & _ "FROM tbl_company INNER JOIN (tbl_custom INNER JOIN tbl_demand ON tbl_custom.id_custom = tbl_demand.emp_id) ON tbl_company.id_company = tbl_custom.emp_company " & vbCrLf & _ "WHERE (((tbl_company.id_company)=wrcmpny()))") x = wrcmpny() & taxt_name1 & date_f rs.MoveFirst Do While rs.EOF = False If rs!Expr1 = x Then MsgBox "ÓÌá ãßÑÑ" Undo Exit Sub End If rs.MoveNext Loop rs.Close: Set rs = Nothing End Sub تحياتى ،،

الاستاذ محمد انا لا اوافقك بجعل المستخدم يدخل اسم المدينة كتابة .. حيث يجب الاختيار من قائمة حيث يكون عرضة للاخطاء الاملائية المقصودة وغير المقصودة مثلا في مثالك انت قمت بكتابة البحة بدلا من الباحة تم عمل المطلوب ويمكنك التجربة يمكنك ايضا لسد الثغرات نقل الكود الى حدث قبل تحديث الفورم بدلا من حدث الحقل db1.rar

اخوتي اعضاء المنتدى كما يعلم الجميع فإنه يتم الحكم على كفاءة اي برنامج من خلال مخرجاته أي تقاريره ومن يعمل في اكسس يلاحظ جمود تقاريره مقارنة بتقارير اكسل لذا فقد اخذت الكثير من الوقت في تصميم تقارير مرنة تشمل اهم الافكار المطلوبة في التقرير وكنت قد وضعتها في تقرير واحد بهدف رفعه للمنتدى ولكني رأيت ان ذلك يمكن ان يصعب على الأعضاء فهم الطريقة . لذا قررت ان اجعل المثال يحتوي على تقريرين . الأول : يوضح طريقة رسم الحدود وتحديد سجلات الصفحة والإقفال بعد آخر سجل . الثاني : يشمل جميع الأفكار . أرجو أن ينفع الله بهذا المثال كل طالب علم ... ملحوظة : المثال يحتوي على 80 سجل وتم تحديد عدد سجلات الصفحة 20 سجل لذا عند فتح التقرير سيطلب منك تحديد عدد السجلات المطلوبة لذا للتعرف على المثال بشكل واضح جرب تحديد عدد (5 و 20 و 21 و 40 و 45) على التوالي ولاحظ كيف سيظهر التقرير في كل مرة اسأل من الله الأجر والدعاء من كل من إستفاد من هذا العمل تحياتي,,, التقارير.rar

السلام عليكم جميعاً اخواني الأعزاء كما هو واضح من العنوان، فإن لكل منا طريقته الخاصة لحماية برامجه من القرصنة أو العبث.. ومن ضمن تلك الطرق التي أعتقد أنها ستكون من ضمن أقوى الطرق إن شاء الله هي طريقة أسميتها: (ملف المفتاح) الخاصة بي، لا أدري قد يكون أحدا ما قد توصل إليها ويستخدمها مثلي، ولتعم الفائدة، وحتى يتم مناقشتها وتطويرها.. أطرح الفكرة عليكم.. راجياً تفاعلكم وإثرائكم للموضوع. بعد الإنتهاء من بناء برنامجكم نفذ الخطوات التالية: 1- عمل كلمة مرور لملف البرنامج مع مراعاة أن تكون معقدة وطويلة، مع ضرورة إضافة حرفي: chr(13) و chr(10) التي يستحيل إدخالها من الكيبورد، ولكن كيف يمكن إضافة هذين الحرفين؟ يمكن إضافة هذين الحرفين باستخدام الكود التالي: افتح ملف جديد، واعمل نموذج جديد، وزر جديد، وفي حدث (عند النقر) اكتب هذا الكود: Dim DB , pwOld, pwNew, pathDB pathDB = "C:\MeSystem.accdb" pwOld = "" pwNew = Chr(13) & "Xjhdk@u$jl25ي" & Chr(13) & Chr(10) Set DB = OpenDatabase(pathDB, True, False, ";pwd=" & pwOld) DB.NewPassword pwOld, pwNew DB.Close وغير ما يلزم تغييره من مسار الملف و كلمة المرور المرغوبة لديك ويبقى! كيف يمكن فتحه الملف مع وجود كلمة مرور معقدة.. الحل في الخطوة التالية. 2- كون ملف جديد (ملف المفتاح) وأنشئ نموذج جديد وفي حدث عند الفتح اكتب كود فتح ملف النظام التالي: Dim App As Access.Application, strPath As String Set App = New Access.Application strPath = Application.CurrentProject.Path & "\ MeSystem.accdb " With App .DoCmd.RunCommand acCmdAppMinimize .OpenCurrentDatabase strPath, , Chr(13) & "Xjhdk@u$jl25ي" & Chr(13) & Chr(10) ' .DoCmd.OpenForm "Form", , , , , acWindowNormal'نموذج البداية ' .DoCmd.Maximize ' .Visible = True End With Set App = Nothing DoCmd.Quit وجعل هذا النموذج نموذج البداية (أي يعمل عند بدء تشغيل ملف المفتاح)، كما بمكنك إضافة كود إخفاء واجهة الاكسس قبل تنفيذ الكود السابق إن أردت أن لا يظهر عند التشغيل. 3- احمي الوحدات النمطية لملف المفتاح بكلمة مرور. 4- احفظ ملف المفتاح في نفس مجلد البرنامج بامتداد ".accde أو .mde" بحسب اصدار الاكسس الذي تعمل عليه. مرفق لكم مثال مفتوح ملف المفتاح.rar

رحم الله الشهيد اللهم ابدلة دار خير من دارة واهل خير من اهلة واجعلة من الشهداء اللهم امين

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

اخواني الأعزاء نواصل حلول التقارير في اكسس مرفق لكم المثال السابق بعد إضافة مدول جديد وتقريرين وذلك لعمل خلفية تقرير برمجيا دون إثقال البرنامج بصور لجعلها خلفية للتفارير ارجو ان تكون مفيدة تحياتي,,, التقارير.rar

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

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

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