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

السلام عليكم 🙂 اليكم طريقتي . وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده : 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

السلام عليكم ياحبايب جمعتكم مباركة ان شاء الله عندي برنامج كاشير ع الاكسس احتاج احد مستعد يطور لي البرنامج ونشوف ايش ممكن يحتاج البرنامج عشان احتاج اطبقة في مشروعي الخاص وعليكم السلام أستاذي العزيز هذا رابط لتحميل البرنامج و إن شاء الله ألقى من يساعدني اسم المستخدم : bill كلمة السر : 123 Cashier.accdb

طريقة العمل: . 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

قاموس عربي - انجليزي علي الأكسل - نسألكم حسن الدعاء قاموس -عربى انجليزى.rar

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

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

جزاكم الله خيرا ... الظاهر ان الخطأ معي يكمن اني عملت المعادلة في تذييل الصفحة وليس تذييل التقرير ، وبذلك فهو لا ينفع ... شكرا اخي حربي شكرا للاخ اشرف ... اجابتك هي المطلوبة .. وخيار متمكن ومطلوب من الاخ جعفر ... تحياتي للجمييع

و اي مساعدة تترقب بدون ملف مرفق هل لدى احد من الاساتذة الوقت لإنشاء ملف لك يحتوي على ما تريده بالاضافة الى اسماء الموظفين و عدد ايام عمل كل واحد كل في شهر وفي النهاية يمكن ان يكون الملف صحيحاً وفي أغلب الاحيان لا (انه مجرد تضييع للوقت) لذلك عليك برفع ملف يحتوي على بعض الاسماء في صفحة مستقلة مع دوام كل واحد من الموظفين مع مقدار راتبه و رفع الملف للمعالجة

اليك الرابطين التاليين : . جعفر

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

أستاذ ابو عبد الرحمن العراقي أين الضغط على الإعجاب لكل هذه الأكواد الممتازة ؟!!💙

أستاذ يوسف السيد فين الإعجاب لكل هذه الإجابات الممتازة ؟!!💙

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

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

أهلا بك اخ كريم فى المنتدى تفضل توضيح.xls

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

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

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

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

الملف بالفعل بدون حماية

تفضل HR copy.xlsx

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

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

أهلا بك اخى الكريم فى المنتدى بالتأكيد لابد من رفع الملف حتى تتم المساعدة فلا يمكن العمل على التخمين بارك الله فيك

وعليكم السلام هذه 6 طرق ، برسائل وبدون ، وانا اخترت لك آخر واحدة منها ، وهي تعطيك شريط في اسفل شاشة الاكسس: . Option Compare Database Private Sub أمر10_Click() On Error GoTo Err_أمر10_Click 'Dim stDocName As String 'stDocName = "q1" 'DoCmd.OpenQuery stDocName, acNormal, acEdit '1 العمل بصمت وبدون اشعارات ' CurrentDb.Execute ("q1") '2 العمل بصمت وبدون اشعارات ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True '3 العمل بصمت وبدون اشعارات ، ولكن بوجود ساعة ترابية تشير الى وجود عمل ' DoCmd.Hourglass True ' DoCmd.OpenQuery "q1" ' DoCmd.Hourglass False '4 عمل اشعار ثابت لمدة 3 ثوان في اسفل الشاشة ' Application.SetOption "Show Status Bar", True ' Application.Echo True ' Application.Echo False, "الاستعلام يقوم بالتحديث" ' ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True ' ' PauseTime = 3: Start = Timer ' Do While Timer < Start + PauseTime ' DoEvents ' Loop ' ' Application.SetOption "Show Status Bar", False ' Application.Echo True '5 عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة ' Application.SetOption "Show Status Bar", True ' SysCmd acSysCmdSetStatus, "الاستعلام يقوم بالتحديث" ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True ' ' PauseTime = 3: Start = Timer ' Do While Timer < Start + PauseTime ' DoEvents ' A = A + 1 ' If A / 50 = Int(A / 50) Then B = B & " . " ' SysCmd acSysCmdSetStatus, B & "الاستعلام يقوم بالتحديث" ' Loop ' Application.SetOption "Show Status Bar", False ' SysCmd acSysCmdClearStatus '6 عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة Application.SetOption "Show Status Bar", True SysCmd acSysCmdInitMeter, "الاستعلام يقوم بالتحديث", 5000 DoCmd.SetWarnings False DoCmd.OpenQuery "q1" DoCmd.SetWarnings True PauseTime = 3: Start = Timer Do While Timer < Start + PauseTime DoEvents A = A + 1 SysCmd acSysCmdUpdateMeter, A Loop Application.SetOption "Show Status Bar", False SysCmd acSysCmdClearStatus Exit_أمر10_Click: Exit Sub Err_أمر10_Click: MsgBox Err.Description Resume Exit_أمر10_Click End Sub . وهذا الرابط فيه البرنامج المرفق ، يعني خذ منه الكود وخليه في برنامجك : http://www.access-programmers.co.uk/forums/attachment.php?attachmentid=32438&stc=1&d=1275923825 . . والنتيجة Notification بطريقة البرامج المحترفة ، فوق ساعة الكمبيوتر . جعفر 876.msg styles.mdb.zip BalloonToolTipSample.mdb.zip

السلام عليكم قد نريد ان نجعل الرسالة تبقى لمدة معينة ، واذا لم يقوم المستخدم بعمل شيء ، تقوم الرسالة بإختيار "لا" وتغلق نفسها ، Private Sub cmd_Timer_msgbox_Click() Dim Msg, Style, Title, Response, PauseTime Dim Sh_Msgbox As Object PauseTime = 5 'Seconds Msg = "هل تريد الاستمرار" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "الشاشة ستغلق تلقائيا بعد 5 ثوان" Set Sh_Msgbox = CreateObject("WScript.Shell") Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title, Style) If Response = vbYes Then MsgBox "تم اختيار نعم" Else MsgBox "تم اختيار لا ، او انتهى الوقت" End If End Sub جعفر Msgbox Timer.MDB.zip

هذا هو كود التحويل Dim strSql As String 'Purpose: Convert a SQL statement into a string to paste into VBA code. Const strcLineEnd = " "" & vbCrLf & _" & vbCrLf & """" If IsNull(Me.txtSQL) Then Beep Else strSql = Me.txtSQL strSql = Replace(strSql, """", """""") 'Double up any quotes. strSql = Replace(strSql, vbCrLf, strcLineEnd) strSql = "strSql = """ & strSql & """" Me.txtVBA = strSql Me.txtVBA.SetFocus RunCommand acCmdCopy End If فقط غير اسم المربع TxtSql باسم المربع عندك اللي تكتب فيه جملة سكويليتي وغير اسم المربع txtVBA باسم المربع اللي تريد ان يظهر فيها كود برمجي تقبل تحياتي

بارك الله فيك وجزاك خيرا اخي الكريم جرب المرفق بعد التعديلات مع تحياتي CARS2.rar