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

في مثل هذه الحالة البسيطة ممكن تحميل قيمة حقل او عدة حقول دفعة واحد في زر امر فتح من خلال OpenArgs DoCmd.OpenForm "k", , , , acFormAdd, , KNUM & "|" & KTEXT وفي حدث عند الفتح او زر امر نضع الكود الاتي Dim varSplitString As Variant varSplitString = Split(Me.OpenArgs, "|") Me.KNUM.Value = varSplitString(0) Me.KTEXT.Value = varSplitString(1)

جرب هذا الملف Smil.xlsx

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($B$2,البيانات!$A$2:$E$100,1,0),INDEX(البيانات!$A$2:$A$100,MATCH($B$2,البيانات!$B$2:$B$100,0))) test1.xlsx

السلام عليكم اخي احمد 505 =IF($C$2<=B8," ",IF(D10>="P","DUE"," ")) تفضل اخفاء كلمة DUE.xlsx

وعليكم السلام 🙂 الاكسس يحتفظ بخصوصية جميع المتغيرات داخل الكائن ، ولا يسمح لبقية الكائنات ان تراه ، وذلك بإستعمالنا Dim او Private ، ولكن اذا اردنا بقية الكائنات ترى المتغير ، فيجب ان يكون الكائن مفتوح و نصرح له بـ Global او Public : جعفر 1365.Run another Form Event.accdb.zip

جرب هذا الملف (كل أيام الاحاد بلون /كل أيام الاثنين بلون آخر ..... وهكذا) amrhosny.xlsx

yx-2.mdb

السلام عليكم ورحمة الله وبركاته هذى مثال ربما قريب من طلبك الملف من موقع اجنبي بالتوفيق إن شاء الله Database99999.rar

همممم بس اعرف ان هذا الحل هو لجلب محبة و ود الحبيب ❤ جعفر

يا عيني عليك ، ميه الميه 🙂 جعفر

بعد وضع الفولدر المسمي فواتير في برتيشن e قم بألضغط علي زر فاتورة جديدة تم عمل الأتي 1- يتم حفظ الفاتورة بالصيغةPDF 2- يتم حفظ الفاتورة بأسم العميل ورقم الفاتورة 3-يتم حفظ البيانات دون فرغات 4- يتم ترقيم الفاتورة تلقائي دون تدخل منك ثم عود الي الفولدر المسمي فواتير ستجد بداخله الفاتورة تم حفظها برقم الفاتورة واسم العميل بصيغة PDF اخبرني بألنتيجه تفضل 5.xlsm

بسم الله الرحمن الرحيم اهلا ومرحباً بالسادة القائمين علي المنتدي وجميع الأعضاء واتشرف بأن أقدم لكم برنامج شؤون الموظفين واتمني ان ينال اعجاب حضراتكم الشرح بالمرفقات https://www.youtube.com/watch?v=UOuaFs0kK6c&t=2s

فقط تم تغيير امتداد وتنسيق الملف الى XLSM حتى لا يقوم بإلغاء القائمة المنسدلة ... دائماً وأبداً حاول عدم جعل ملفات الإكسيل لديك بهذا الإمتداد XLS , فهو امتداد قديم قائمة منسدلة.xlsm

السلام عليكم مشاركه مع اخى الفاضل @ابو محمد 316 جزاه الله خيرا 💐 اتفضل اخى @mrbakr ان شاء الله يكون ما تريد Private Sub Command405_Click() Dim strSql As String Dim TempQdf As QueryDef Dim db As DAO.Database Set db = CurrentDb strSql = "Select * from الموظفين" If Me.Fr_U.Form.Filter <> "" Then strSql = strSql & " WHERE " & Me.Fr_U.Form.Filter End If Set TempQdf = db.CreateQueryDef("ExportFiltered", strSql) DoCmd.OutputTo acOutputQuery, TempQdf.Name, acFormatXLSX, "", True, "", , acExportQualityPrint db.QueryDefs.Delete TempQdf.Name 'DoCmd.OutputTo acOutputQuery, "u", acFormatXLSX, "", True, "", , acExportQualityPrint End Sub بالتوفيق 123_1.accdb

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

حفظكم الله اساتدتي من كل مكروة جزاكم الله عني خير الجزاء

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

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

أهلا بكم.. لجعل الأمور أكثر سهولة ومرونة للمبتدئين.. الشفرة التالية تفي بالغرض! Option Compare Database Option Explicit Dim xp As Single, yp As Single '-- أخذ النقطة الأولية للفارة وإسنادها إلى متغير عام '-- بهذه االطريقة يمكن قبض النافذة من أي نقطة دون الشعور بعدم التركيز Private Sub FormHeader_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) xp = X yp = Y End Sub Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim l, t If Button = acLeftButton Then l = Me.WindowLeft + X - xp t = Me.WindowTop + Y - yp Me.Move l, t End If End Sub أو هذه أيضا '-- هذه الطريقة تتماشى مع سلوك المستخدم '-- أغلب المستخدمين يقبض النافذة من المنتصف '-- الشعور بعدم التركيز لا يكاد يلحظ Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim l, t If Button = acLeftButton Then l = (Me.WindowLeft + X) -(Me.WindowWidth/2) t = (Me.WindowTop + Y) - (Me.FormHeader.Height/2) Me.Move l, t End If End Sub Database1.accdb

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

اخي حسن البدوي0 دعني ابدأ خطوة خطوة ضع فولدر بأسم فواتير علي برتيشن e تم العمل علي ان يحفظ برقم الفاتورة فقط اضغط زر فاتورة جديدة اخبرني بأول خطوة لكي نبدأ الخطوة الثانيه الملف 5.xlsm

اخي حسن البدوي0 توضيحك لما توريد غير واضح من فضلك وضح هل تريد حفظ الفاتورة bdf ام تريد حفظ الفاتورة xlsm وهل تريد حفظ الفاتورة برقم الفاتورة ام تريد حفظ الفاتورة بأسم اخر واين تريد حفظ الفاتورة برتيشن d -f-t-h وهكدا من فضلك وضح كل مطلباتك وانشاء الله يتم عمل اللازم

السلام عليكم ورحمة الله تفضل هذا الكود لاحد اساتذة هذا المنتدي قمت ببعض التعديلات ليناسبك ضع الفولدر المسمي نسخة (نسخة بي دي اف) علي برتيشن f تفضل مجلد جديد ‫‬.rar

فيه طريقة اخرى خطرت على بالي ، بحيث نرجع الى اول مرفق ، ونجعل جميع الحقول المحسوبة في وحدة نمطية ، تكون هناك دالة واحدة رئيسية وفيها جميع الحقول والمعادلات (وهذا سيعطينا المجال ان نفكك معادلات iif الى if ... then مما يجعلها اسرع) ، وهي تنادي Recordset الجدول ولمرة واحدة فقط لكل ID ، وتضع نتائج جميع هذه الحقول في اعلى الوحدة النمطية ، في متغير TempVar (او حتى في متغير عادي متوفرة قيمته للوحدة النمطية) ، في الاستعلام ، هذه الحقول تنادي الدوال الخاصة بها ، والدوال تتأكد من مطابقة ID : فاذا كان جديد ، فيشغل الدالة الرئيسية حتى تعطي جميع النتائج الى المتغيرات ، اذا كانت نفسها ، فالدالة تعطي قيمة المتغير مباشرة الى الاستعلام. فهم الكلام اصعب من فهم الموضوع نفسه 😁 جرب ، واعطنا النتيجة والكود لوسمحت ، وخلينا نستفيد من الكود 🙂 جعفر

للعلم: انا لا اوصي بإستخدام المادة 3 من طريقة عملي ادناه ، فقد تسبب بطئ في برنامجك !! لما تحتاج الى حقول في الاستعلام ، طريقة العمل هي كالتالي: اعمل الاستعلام (مثلا qry_1) وفيه حقول الجدول ، بالاضافة الى بقية الحقول المحسوبة التي ستحتاج اليها خقول محسوبة اخرى ، ثم اعمل استعلام (مثلا qry_2) ، ويكون مصدر الاستعلام هو qry_1 ، وتضع فيه بقية الحقول المحسوبة ، وستبقى بعض الحقول الغير موجودة في الاستعلام ، ولكننا نحصل على نتيجتها من الدالة في الوحدة النمطية ، فعليه ، ننادي هذه الدالة بدل اسم الحقل ، كمل هو موضح في الصورة: . وتشير في الدالة التالية الى هذا الاستعلام الاول : Function make_rst() Set rst = CurrentDb.OpenRecordset("Select * From qry_1") End Function وننادي الاستعلام هكذا: Private Sub cmd_qry_ALL_Click() Call make_rst DoCmd.OpenQuery "qry_2" End Sub جعفر 1364.1.حسابى معدل.accdb.zip

وعليكم السلام 🙂 مستحيل ان تعمل الحقول يدويا ، لأن كمية الحقول عندك مهولة !! فعملت كود علشان يعمل لي الوحدات النمطية ، وجملة SQL الاستعلام 🙂 تستطيع ان تحذف الجداول Data و Data2 ، انا تركتهم لك علشان تجرب الكود 🙂 يجب استعمال النموذج لتشغيل الاستعلام ، وإلا لن تحصل على نتائج الحقول المحسوبة في الاستعلام !! هذا جزء من الوحدة النمطية الخاصة بالحقول المحسوبة: Option Compare Database Option Explicit Dim rst As DAO.Recordset Dim Calc1 As Long Dim Calc2 As Long ' Function make_rst() Set rst = CurrentDb.OpenRecordset("Select * From Data") End Function Function f_nezara99(ID As Long) On Error Resume Next: rst.FindFirst "[ID]=" & ID f_nezara99 = IIf(rst![nezara] = 0, 0, IIf(rst![gazaat] >= 5, 0, rst![nezara])) End Function Function f_elawa_edafia(ID As Long) On Error Resume Next: rst.FindFirst "[ID]=" & ID f_elawa_edafia = IIf(rst![feaa] = "ادارى", 0, IIf(rst![Name] <> "", 4, 0)) End Function جعفر 1364.استعلام حسابى.accdb.zip

بعد اذن اخي حسام انت بحاجة لمثل هذا Dim rs1 As DAO.Recordset: Dim rs2 As DAO.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الأول حسب اليوم Set rs2 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الثاني حسب اليوم rs1.Edit: rs1!tech_code = المراقب الثاني rs2.Edit: rs2!tech_code = المراقب الأول rs1.Update: rs2.Update لاحظ انه غالبا يصعب تمرير المعايير لنموذج غير منضم داخل الاستعلام ، لذا نلجأ الى انشاء وحدات نمطية عامة كوسيط tabdeel2.rar

شكر ا اخي حسام ولكن كنت أتمنى عندما اختار لجنتين مثلا عن طريق مربع اختيار يكون هناك امر بالتبديل بينهم ان امكن

الحمد لله أنه تم المطلوب وبارك الله لك