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

اخي شاهد المرفق DONE.xlsm

عليكم السلام اكسس يتعرف على رقم الزر ولكن الحرف متروك للمستخدم لذا يلزم ان نترجم الرقم الى حرف ، من خلال جدول في المثال وضعت لك في الجدول حروف الازرار انجليزية كما هي عندي ، ويمكنك استبدالها بأي لغة تريد لاحظ : عندما تخرج الرسالة خالية هذا يعني ان الزر لم يدرج رقمه وحرفه ضمن الجدول Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim i As String i = Nz(DLookup("nmKey", "tblNumberKey", "idNmKey =" & KeyCode)) MsgBox i End Sub test.mdb

السلام عليكم ورحمة الله وبركاته اليكم برنامج الجرد خاص بالمصالح الاقتصادية دمتم في رعاية الله وحفظه. برنامج الجرد العام 2022 (2).rar

وعليكم السلام 🙂 طرفي التاريخ يجب ان يكون لديهم نفس التنسيق ، مثلا: . جعفر 1510.SearchFormatListBox.accdb.zip

في النموذج ، اعمل حقل بإسم str_Key ، وضع فيه هذا الكود Private Sub str_Key_KeyPress(KeyAscii As Integer) Debug.Print ChrW(KeyAscii) Me.str_Key = Empty End Sub . او على مستوى النموذج: Private Sub Form_KeyPress(KeyAscii As Integer) Debug.Print ChrW(KeyAscii) End Sub الفرق ان هذا الكود يستعمل KeyAscii ، اي ارقام الحروف ، بينما الكود في المشاركات السابقة يستعمل KeyCode ، اي ارقام ازرار الكيبورد !! جعفر

جرب المرفق فورم ادخال بيانات ديناميكى (1).xlsm

شاهد المرفق اخي ولطباعة جدول 5 فقط اعمل كما في الصورة او اذا اردت طباعة جدول يوم 2 حتي جدول يوم 4 استخدم من 2 الي 4 Print.xlsm

وعليكم السلام 🙂 ومن وحي جواب اخوي ابوخليل ، وبدون جدول Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) msgbox Chr(KeyCode) End Sub جعفر

اخي شاهد المرفق لاحظ الاتي : 1 - للبحث عن طريق الكود ادخل الكود في خلية البحث 2 - للبحث في أصناف شركة معينة اختر اسم الشركة من خلية الشركة ستطهر لك أصناف الشركة اسفل الجدول 3 - امامك الان اختيرين اذا كان الصنف ظاهر امامك كليك علي اسم الصنف لنقل بياناته الي ناتج البحث اما اذا كان الصنف اسفل حدود الشاشة اكتب حرف او حرفين من اسم الصنف حتي بظهر امامك ثم كليك علي اسم الصنف store prices - Copy.xlsm

اتفضل اخى @alsihran كما اشار لك اخى ومعلمنا وشيخنا الجليل @ابوخليل جزاه الله عنا كل خير 🌹 ان شاء الله يكون كما تريد Private Sub btn1_Click() Me.ListData.RowSource = "SELECT tbl_Employ.id, tbl_Employ.Name, format(tbl_Employ.Startdate,'yyyy/mm/dd'), format(tbl_Employ.EndDate,'yyyy/mm/dd') FROM tbl_Employ;" End Sub بالتوفيق FormatListBox.accdb

برنامج حساب أرباب العهد بالمصالح الحكومية محدث 2022 تم تعديل البرنامج طبقا لقرار وزير المالية 610 لسنة 2021 والكتاب الدورى رقم 171 لسنة 2021 بقوم البرنامج بحساب القيمة الخاصة بأرب العهد بالمصالح الحكومية لعدد 14 موظفا بالمصلحة وكل ما عليلك سوى ادخال البيانات التالية : 1- إسم الموظف 2- الوظيفة 3- عدد شهور مدة التأمين والافتراضى انها 12 شهر سنة مالية كاملة 4- تحديد نوع الاجر سواء كان ( اجر وظيفى - اجر أساسى) 5- القيمة التقديرية لرب العهدة 6- بالضغط على زر الطباعة لطباعة نموذج ارباب العهد الملف مرفق https://docs.google.com/spreadsheets/d/1kxGqlK8rAoK6c427RZpQmsX052qJLGZx2q57z1p17WY/edit?usp=sharing حساب أرباب العهد عام 2022.xlsm

AutoFilter with 34 Dynamic Filter Criteria اتوفلتر ب 34 دينامك شرط كما لم تراه من قبل !!!_XlDynamicFilterCriteria.xlsb

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

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

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

السلام عليكم 1:يجب عليك كتابة رقم اليوم في( خلية s1)ليتم طباعتة. .. مثلا يوم الاول يكن 1 والثاني يكن 2 وهكذا تفضل الملف Print.xlsm

جميل نشوف طرق اخرى في عمل اللازم 🙂

السلام عليكم ..اخي ,الملف به ورقة واحدة هل تريد طباعة الورقة كامله pdf ...اما المطلوب ماذا ؟

اذا كنت مهتم بالترقية للاصدار 11 من نظام التشغيل

السلام عليكم اخواني الكريم ارجو منكم المساعدة وارسال اي شي يخص الذكا والتنقيب على البيانات almeklafi22@gmail.com

Not clear Explain well what is the problem now

Sub Test() Const iNum As Double = 50 Dim a, t As Double, i As Long, k As Long Application.ScreenUpdating = False With ActiveSheet a = .Range("A4:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value ReDim b(1 To UBound(a, 1) * 10, 1 To 1) For i = LBound(a) To UBound(a) k = k + 1 If a(i, 1) <= iNum Then b(k, 1) = a(i, 1) ElseIf a(i, 1) > iNum Then t = a(i, 1) Do b(k, 1) = IIf(t >= iNum, iNum, t) t = t - iNum k = k + 1 If t <= iNum Then b(k, 1) = t: Exit Do Loop Until t < iNum End If Next i .Range("E10").Resize(k, UBound(b, 2)).Value = b End With Application.ScreenUpdating = True End Sub

لاحظ النموذج المرفق واشتغل عليه ربما لايشبه ماتفضلت به ...لكنه يعطي فكرة g1.accdb

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

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

تفضل 🙂 الآن الكود يبدأ بالرقم الذي تكتبه في اول حقل : Private Sub Numberx_AfterUpdate() ' 'Access looks at it this way: 'user 1 = first entry was done in the Form by hand 'user 2 = the code below enters values automatically ' 'so it will give the popup option to either: save these change, drop the saving, or place them in clipboard 'to avaoid this message, we should first save the hand made value, then run the code 'save the Records If Me.Dirty Then Me.Dirty = False Dim rst As DAO.Recordset Dim i As Long Set rst = Me.RecordsetClone rst.MoveFirst i = Me.Numberx - 1 Do Until rst.EOF i = i + 1 rst.Edit rst!Numberx = i ' rst!serial = Me.str_serial rst.Update rst.MoveNext Loop 'MsgBox "Done" End Sub . او Private Sub Numberx_AfterUpdate() ' 'Access looks at it this way: 'user 1 = first entry was done in the Form by hand 'user 2 = the code below enters values automatically ' 'so it will give the popup option to either: save these change, drop the saving, or place them in clipboard 'to avaoid this message, we should first save the hand made value, then run the code 'save the Records If Me.Dirty Then Me.Dirty = False Dim rst As DAO.Recordset Dim i As Long Set rst = Me.RecordsetClone rst.MoveFirst i = Me.Numberx Do Until rst.EOF rst.Edit rst!Numberx = i ' rst!serial = Me.str_serial rst.Update i = i + 1 rst.MoveNext Loop 'MsgBox "Done" End Sub جعفر

من control panel اختار Region واختار كما بالصورة بالتوفيق

اسال الله تعالى ان يرزقكم البركة فى العمر والعلم والاهل والقبول عمل رائع بكل المقايس

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

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

السلام عليكم 🙂 حسب قراءتي للامرين ، الفرق بينهم كالذي ينظر لكوب نصفه فاضي ، والآخر ينظر للنصف المليان من نفس الكوب ، والاثنين على حق 🙂 وبنفس القراءة ، فهمنا بعض بطرق مختلفة ، ويبقى لكُلٌ مكانته عالياً ، والعشاء على حسابي 🙂 جعفر

السلام عليكم الموضوع شد انتباهي فعذرا على المداخلة دالة switch لها من اسمها نصيب فهي اشبه ماتكون بمفتاح تبديل يقوم بتقيم كل المتغيرات ثم يعرض احدها مثال Switch([ID]=1,"IBM",[ID]=2,"HP",[ID]=3,"NVidia") اي عندما تكون قيمة id =1 تكون القيمة اي بي ام 2 تكون اتش بي وهكذا ولا نحتاج الى تكرار الشرط لا اعتقد انها مثلها استاذ احمد الدالة المشابهة لـ if هي Select Case المثالين يوضحون الامر iif iif([ID]=1,"IBM",iif([ID]=2,"HP",iif([ID]=3,"NVidia","other"))) if if [id]=1 then [kh]="IBM" ElseIf me.id =2 then [kh] ="hp" ElseIf me.id =3 then [kh] ="NVidia" else [kh] ="other" End If وفي هذا المثال ☝️ لو استخدمنا Select Case لكان افضل Select Case me.id case 1 [kh] ="hp" case 2 [kh] ="hp" case 3 [kh] ="NVidia" Case Else [kh] ="other" End Select ومادمنا نتحدث عن ارجاع قيمة يمكنا الاشارة ايضا الى دالة Choose وهي تقوم بإرجاع قيمة من قائمة الاختيارات بناءً على قيمة الفهرس مثال Choose([id],"ibm","hp","NVidia") Choose و switch قد تعطي نتائج غير متوقعة لذا يراعي استخدام وسيطة مناسبه معهما والموضوع اكبر من ذلك فقد يظهرلنا ان هناك بعض التشابهة بين عمل العديد من الدوال ولكن لكل دالة استخدامها ومتى يكون ذلك اعتذر عن اي خطا في الاكواد لكوني اعتمد على الذاكرة والتي قد تخون احيانا . وهنا اتوقف وندع الامر لاهل الاختصاص قالت العرب من تحدث في غير فنه اتى بالعجائب والله اعلم

كلنا هكذا ونتعلم من اخواننا واساتذتنا ومن تجاربهم العمليه وجزاك الله خيرا ع مشاركتك معنا ما تعرفه فما تعرفه قد اجهله واتعلمه منك فجزاك الله عنى كل خير وجعل ما تقدمه لاخوانك فى ميزان حسناتك اخى محمد 💐🌹 بالتوفيق اخى محمد

يوم جيد! أنا جديد هنا أيضًا ، هذا يبدو مثيرًا للاهتمام وأنا في هذا المجال أيضًا.