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

السلام عليكم 🙂 اليكم طريقتي . وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده : Dim ID As Long Dim ID As String ID = Me.txtID Me.Requery Me.RecordsetClone.FindFirst "[ID]=" & ID Me.RecordsetClone.FindFirst "[ID]='" & ID & "'" Me.Bookmark = Me.RecordsetClone.Bookmark . وهذه الطريقة اعلاه ، ولكنها غير مختصرة : . وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده : Dim rst As dao. Recordset Dim ID As Long Dim ID As String ID=Me.txtID Me.Requery Set rst = Me.RecordsetClone rst.FindFirst "[ID]=" & ID rst.FindFirst "[ID]='" & ID & "'" Me.BookMark=rst.RecordsetClone.BookMark جعفر

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

السلام عليكم مشاركة مع الاساتذه الاعزاء تفضل اخي الكريم اتمنى ان يكون المطلوب تحياتي Dental.rar

بعد اذن اساتذتنا الافاضل @أحمد الفلاحجى و @محمد ابوعبد الله اذا كنت ترغب في استخدام الامر Me.Requery يمكن عملها عن طريق Dim x As Integer x = CurrentRecord Me.Requery Me.PCode.SetFocus DoCmd.FindRecord x, acAnywhere, , acSearchAll حجز متغير باسم x المتغير يساوي السجل الحالي تحديث نقل التركيز للحقل pcode البحث عن السجل الى كنا واقفين عليه في خاصية النموذج حقل pcode كان غير ممكن وغيرته الى ممكن النموذج مرفق بالتأكيد توجد طرق اخرى ولكن هذا ماجاء على بالي واعذرني في حالة عدم الرد لا نشغالي في ضل الاوضاع الكرونية اجارنا الله جميعا منها Dental.accdb

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

يمكنك مشاهدة هذا الفيديو https://www.youtube.com/watch?v=CpR8QvC6pAA

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

أحسنت أستاذ منير موفق ان شاء الله عمل ممتاز

أحسنت استاذ هشام بارك الله فيك وجزاك الله كل خير

وعليكم السلام -اهلا بك فى المنتدى ,لك ما طلبت fixed Time.xlsm

هذه العلامة طالما انك تريد من المعادلة العد فلابد من وضعها واذا جربت ازالتها فلم يخرج الناتج كما تريد

جزاكم الله خيرا اخوانى واساتذتى @محمد ابوعبد الله @kha9009lid @jjafferr @خالد سيسكو

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

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

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

See This file calculation.xlsx

وهذه طريقتي 🙂 انا تعمدت وخليت التقرير طويل ، علشان يبان الجمع لأكثر من صفحة ، وطبعا انت لاحقا اعمله بالحجم اللي يناسبك 🙂 . . والنتيجة : الصفحة 1 ومجموعها : . والصفحة 2 ومجموعها + مجموع ما قبلها: . جعفر 1189.الكمية444.accdb.zip

تفضل 201.xlsx

اخي الفاضل 🙂 للتوضيح : . بالنسبة لـ نعم / لا او صح / خطأ او تشغيل / إيقاف تشغيل : فهو ليس زر ، وإنما اختيار ، وهناك 3 اشكال له (كما هو واضح من الصورة اعلاه) ، والكود عادة نضعه على الحدث "بعد التحديث" ، ويكون في حالتين ، عند اختياره تكون قيمته تساوي -1 ، وعند عدم الاختيار تكون قيمته صفر (وهناك حالة ثالثه خاصة لهم ، وهي حالة Null) ، عند وضع المعيار (في الاستعلام مثلا) ، وبسبب ان الكائن ممكن يكون في 3 حالات (حالة الصفر وحالة Null معناهما انه لم يتم الاختيار) ، لذا ، فالافضل هو ان نستعمل: اذا كنا نريد الحقول المختارة ، فيكون الاختيار -1 ، بينما اذا اردنا الحقول الغير مختارة ، فيكون الاختيار <>-1 جعفر

السلام عليكم تفضل اخي الكريم طلبك رسالة بعد 3 ثوان تختفي يمكنك كذلك تغيير عدد الثواني تحياتي 222.rar

السلام عليكم تفضل اخي الكريم فقط اضغط على زر تحديث اتمنى يكون المطلوب تحياتي 222.rar

وعليكم السلام ورحمة الله وبركاته اذا كان نوع الحقل نص استخدم الكود التالي rs.FindFirst "[id] ='" & Me![text1] & "'" اذا كان نوع الحقل تاريخ استخدم الكود التالي rs.FindFirst "[id] = #" & Me![text1] & "#" اذا كان نوع الحقل رقم استخدم الكود التالي rs.FindFirst "[id] = " & Me![text1] تحياتي

وعليكم السلام -يمكنك استخدام هذه المعادلة =SUMPRODUCT(--($H$10:$H$20=$N1),SUBTOTAL(2,OFFSET($G$10:$G$20,ROW($H$10:$H$20)-ROW(H10),0,1))) فلترة1.xlsx

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

طريقة العمل: . 1. من برنامجك ، تستورد الوحدتين النمطية ، BalloonTooltip و basBalloonTooltip ، من البرنامج BalloonToolTipSample.mdb ، واذا اردت ان تعمل نسخ ولصق للوحدتين النمطية ، تأكد بأنك تلصق كل وحدة نمطية في مكانها الصحيح : basBalloonTooltip في Module BalloonTooltip في Class Module 2. تشغل برنامج اللي في رابط مشاركتي اعلاه : BalloonToolTipSample.mdb ، ثم تضع النص اللي تريده ، 3. اختار احد الاختيارات ، 4. جربه ، وشوف نتيجته ، 5. ولما تختار من رقم 3 ، انقر على الرقم 5 حتى يعطينا البرنامج الكود الذي نستعمله ، 6. ننسخ الكود في الذاكرة ، ثم نلصقه في برنامجنا : Private Sub cmd_Update_Click() ShowBalloonTooltip "رجاء الانتظار ...", "تم تحديث معلومات :" & vbCrLf & "اسم الموظف ورقمه بنجاج", btWarning End Sub . . وانواع الايقونات هي : btNone btInformation btWarning btCritical . ونستطيع التوسع ، وجعل بيانات معينة تظهر ، مثل: . والذي عملناه بهذا الكود : ShowBalloonTooltip "النتائج التي تم حفظها :", "التسلسل: " & Forms!الرئيسية![44 form]![التسلسل] & vbCrLf & _ "اللاسم: " & Forms!الرئيسية![44 form]![named] & vbCrLf & _ "المهنة: " & Forms!الرئيسية![form1]![المهنة] & vbCrLf & _ "رقم الموظف: " & Forms!الرئيسية![form1]![رقم الموظف], _ btWarning . وهناك كمية معينة من البيانات التي ممكن اظهارها ، وإلا ، فلن يظهر إلا الكم المسموح به فقط 🙂 . الى هنا وينتهي العمل . ---------------------------------------------------------------- اذا عملنا ايقونه خاصه لبرنامجنا ، انا عملت حرف J باللون الازرق : . ومن اعدادات البرنامج ، نختار صورة الايقونه للبرنامج : . فنلاحظ انه تظهر في اعلى يسار الشاشة : . وكذلك ستظهر الايقونه مع الرسالة : . جعفر 1191.222.zip

شكرا بارك الله فيك .. تمت التجربة وتعمل بصورة صحيحة 100 100☺️☺️

استاذ @jjafferr دخلت لوضع شكر لمشاركتك وما وجدتها 😃

استبدل الكود كالتالي Me.Requery بهذا Me.Refresh كما انصحك باستبدال اسم زر الامر من Requery الى اي اسم اخر مثل XRequery تحياتي

هذا شيء غريب وعجيب ، لأن لغات برمجة صفحات الانترنت تعمل على جميع المتصفحات الجديدة 🙂 رجاء ترفق هذا الرابط 🙂 جعفر

اخي jo 🙂 انت عندك موضوع اكبر من اللي اخبرتنا عنه 🙂 فجواب سؤالك: '1 Private Sub AA_AfterUpdate() Me.BB = -1 End Sub '2 Private Sub AB_Click() Me.AA = -1 End Sub . جعفر

هايل وشكرا على المجهود

Option Explicit Option Base 1 Sub My_code() Dim m%, k%, lr%, i% Dim Main As Worksheet, sh As Worksheet Dim myArray, arr(11), targt$ Set Main = Sheets("Allstudents") Set sh = Sheets("from.school") sh.Range("B7:M1000").Clear targt = "from*" lr = Main.Cells(Rows.Count, "D").End(xlUp).Row m = 7 For i = 3 To 13 arr(i - 2) = i Next myArray = Array(38, 4, 5, 27, 13, 16, 18, 19, 20, 21, 22) For i = 5 To lr If Main.Cells(i, "AD") Like "*" & targt Then For k = 1 To 11 sh.Cells(m, arr(k)) = Main.Cells(i, myArray(k)) Next m = m + 1 End If Next With sh.Range("B7").Resize(m - 7, 13) .Borders.LineStyle = 1 .HorizontalAlignment = 1 .InsertIndent 1 With .Font .Bold = True .Size = 14 End With '++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' الرقم 10 هنا يرمز الى رقم العامود في الجدول حيث يوجد التاريخ 'أقصد العمود K .Columns(10).NumberFormat = "yyyy/m/d" '+++++++++++++++++++++++++++++++++++++++++++++++++++++++ End With End Sub الكود بعد كل الاضافات التي تمت بارك الله في الاستاذ سليم وبارك الله في كل من يساعد على نشر العلم وليس اغلاقه

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

السلام عليكم الملف الاول التعديل بدالة iif عن طريق الاستعلام الملف الثاني التعديل بدالة if عن طريق النموذج الملف الثالث التعديل بدالة Select Case تحياتي math.rar math 2.rar Select Case.rar

تفضل كل ما تريد واعتقد ان لا تحتاج غير ذلك توضيح2.xls

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

تفضل لاحظ ايهما تريد الحل بالعمود D ام الحل الموجود بالعمود E توضيح2.xls

أخى الكريم لماذا لا ترى الملف اذا رأيت الملف لوجدت ان مدى معرف مسبقا وهذا هو الملف protect non empty data with Pass word.xlsm

يمكنك مشاهدة هذا البرنامج ACCOUNT SOFTWARE W-COST CENTERS - V1.1.rar

بارك الله فيك

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

بارك الله فيك-أحسنت

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

تفضل انظر الى الصورة حتى تقوم بوضح الكود فى حدث الورقة وهذا هو الكود الذى سيتم وضعه: Dim tt As Variant Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("PRot_range")) Is Nothing And Target.Address <> "$A$1" Then m = Target.Count c = [AA1] k = tt If IsEmpty(k) Then GoTo 1 If m * c >= 1 Then Application.EnableEvents = False my_pass = Application.InputBox(" áÇ íãßä ÇáÊÚÏíá Ýí åÐå ÇáÎáíÉ.... " _ & Chr(10) & "ÇáÇ ÈÍÇáÇÊ ÎÇÕÉ ÊÊØáÈ ßáãÉ ãÑæÑ", "password") If my_pass = "pass" Then GoTo 1 Application.Undo Application.EnableEvents = True End If End If 1: Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) tt = Selection.Value End Sub

اهلا بك اخ كريم فى المنتدى تفضل ل 64 بت 64 Bit-اخفاء الاطار الخارجى للفورم.xlsm

احسنت استاذ سليم بارك الله فيك وجزاك الله كل خير

تفضل classement des 222223.xlsx

تفضل اخى الكريم دالة بحث عاملين.xls

تفضل اخى الكريم اخفاء الاطار الخارجى للفورم.xlsm

انا طالب علم وهانا تعلمت معلومه جديدة من استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr اسال الله تعالى لكم الخير كله واسال الله تعالى لكم البركة فى العمر والعلم والعمل والاهل والولد وان يغفر لكم ولوالديكم ولكل المسلمين ان شاء الله التعديل والتطبيق على المرفق بلمسات ساحر الاكسس الاستاذ @jjafferr Run Button Command _ up_by_ mr jjafferr .rar اسألكم الدعاء بظهر الغيب لوالدتى