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

وعليكم السلام 🙂 تفضل : بدل هذا السطر 'curPath = DTPath & "\salah- " & Format(Date, "dd-mm-yyyy") & ".xlsx" استعمل هذا curPath = DTPath & "\" & Me.ChooseTble & ".xlsx" وكذلك تم تغيير مكان هذه الاسطر في الكود ، ليصبح كود التصدير الى اكسل: Private Sub أمر26_Click() On Error Resume Next Dim curPath As String Dim xlApp1 As Object 'Excel.Application Dim xlWB1 As Object 'Excel.Workbook If IsNull(Me.ChooseTble) Then Beep MsgBox "اختر الجداول المراد تصديرهم" Exit Sub End If If Box.ItemsSelected.Count = 0 Then Beep MsgBox "اختر الحقول مراد تصديرهم" Exit Sub End If DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") 'curPath = DTPath & "\salah- " & Format(Date, "dd-mm-yyyy") & ".xlsx" curPath = DTPath & "\" & Me.ChooseTble & ".xlsx" Dim Ssql As String For Each varItm In Box.ItemsSelected Ssql = Ssql & "[" & Box.ItemData(varItm) & "] ," Next varItm Ssql = Mid(Ssql, 1, Len(Ssql) - 1) Ssql = "select " & Ssql Ssql = Ssql & " from " & ChooseTble Set QFEx = CurrentDb.CreateQueryDef("Qtoexport", Ssql) DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qtoexport", curPath, , "Qtoexport" 'DoCmd.OutputTo acOutputQuery, "Qtoexport", acViewPreview DoCmd.DeleteObject acQuery, "Qtoexport" Set xlApp1 = CreateObject("Excel.Application") xlApp1.Visible = False 'True Set xlWB1 = xlApp1.Workbooks.Open(curPath) Set xlWs1 = xlWB1.Worksheets("Qtoexport") xlWs1.DisplayRightToLeft = True xlWB1.Save xlApp1.Quit Set xlWs1 = Nothing Set xlWB1 = Nothing Set xlApp1 = Nothing MsgBox "لقد تم تصدير البيانات بنجاح" End Sub جعفر

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

الطريقة الثانية الاستغناء عن الجدول الوسيط وجعله جدولا فرعيا مرتبطا بجدول الاصناف اما جدول المواد فيكون مستقلا ويتم الاختيار منه فقط

وعليكم السلام 🙂 الظاهر فيه خطأ في معادلتك ، فلما الصقتها في الاكسل اعطاني خطأ !! على العموم ، الظاهر معادلتك تكون هكذا في الاكسس: بطريقة iif والتي لا انصحك بها ، لأنك ما بتعرف كوعك من بوعك ، ولا بتقدر تعمل تعديل عليها : dim myDate as date myDate = IIf(D2 >= DateSerial(Year(D2), 1, 1) And D2 <= DateSerial(Year(D2), 6, 30), DateSerial(Year(D2), 6, 30), IIf(D2 >= DateSerial(Year(D2), 7, 1) And D2 <= DateSerial(Year(D2), 9, 30)), D2, DateSerial(Year(D2) + 1, 6, 30)) وبطريقة if السهلة الفهم والتعديل : Dim myDate As Date If D2 >= DateSerial(Year(D2), 1, 1) And D2 <= DateSerial(Year(D2), 6, 30) Then myDate = DateSerial(Year(D2), 6, 30) ElseIf D2 >= DateSerial(Year(D2), 7, 1) And D2 <= DateSerial(Year(D2), 9, 30) Then myDate = D2 Else myDate = DateSerial(Year(D2) + 1, 6, 30) End If جعفر

كما اعتدنا بأن هذا المنتدى للفائدة العامة و نشر العلم و تبادل الخبرات هذا هو البرنامج متاح للجميع للتعديل و الاستفادة اسم المستخدم :Admin كلمة المرور : 123 اخي محمود الأن تستطيع طلب المساعدة من الإخوة في حال واجهتك مشكلة او اردت الاضافة و التعديل MyNewData.zip

عليكم السلام ورحمة الله وبركاته هذا الأمر يتم بالكود لذا يلزمك: * تغيير امتداد الملف لصيغة تدعم الكود مثل xlsb & xlsm * كتابة اسم الملف وامتداده في عمود اسم الملف * استعمال الدالة FileCopy source, destination للنسح * استعمال الدالة Name source as destination للنقل * ربط الماكرو بالزر وهذا ملفك بعد تنفيذ جميع هذه الملحوظات بالتوفيق copy and cut files.xlsb

انا راح اعطيك التورته بكل اشكالها ، وانت اختار اللي تحبها ، بس بشرط انك تأخذ قطعة واحدة من كل نوع 🙂 Dim myWhere As String myWhere = "fat_num = " & Forms!Fatora_be!Fat_num 'اذا رقم myWhere = "fat_num = '" & Forms!Fatora_be!Fat_num & "'" 'اذا نص myWhere = "fat_num = #" & Forms!Fatora_be!Fat_num & "#" 'اذا تاريخ myWhere = myWhere & " And " myWhere = myWhere & "kind_haraka = " & Forms!Fatora_be!Kind_haraka 'اذا رقم myWhere = myWhere & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka & "'" 'اذا نص myWhere = myWhere & "kind_haraka = #" & Forms!Fatora_be!Kind_haraka & "#" 'اذا تاريخ Me.total_fatora = Nz(DSum("total", "Haraka", myWhere), 0) جعفر

السلام عليكم أولا نشكركم و نثمن وجودكم معنا فى منتدى أوفيسنا ، الآن تعدى عدد أعضاء المنتدى 190 الف عضو ، و تعدى عدد المشاركات 590 ألف مشاركة و أصبح الموقع قاعدة بيانات ثرية لمن يرغب فى تعلم الاوفيس و تبادل المعلومات و الخبرات فيما يتعلق بالاوفيس على مختلف مستويات الاحتراف لاستخدام تطبيقات الافيس و برمجتها. و عليه نشكر كل من ساهم و يساهم ممن يقتطعون من وقتهم و جهدهم فى سبيل نشر العلم و مشاركة المعرفة و مساعدة الآخرين سواء كانوا معنا او غابوا عنا وبقت اعمالهم ننهل منها جميعا لنزداد علما و معرفة. و نسأل الله أن يجعله فى ميزان حسناتهم يوم لا ينفع مال ولا بنون. فلا يسعنا أن نوفيهم شكر ما قدموا ومازالوا يقدمون. كما تعلمون تتركز أغلب المشاركات فى الموقع فى أقسام الأوفيس الرئيسية ، و نرى فى هذه المرحلة تشجيع الجميع على التواجد وتبادل المعرفة فى الاقسام المتعلفة بادارة المشاريع و المرونة و البحث العملي و تطبيقات البيانات الضخمة و الذكاء الاصطناعي وهي أقسام يقل عدد روادها و مشاركاتها بصورة كبيرة مقارنة باقسام الاوفيس ، كما يقل عمرها ايضا كثيرا عن أقسام الاوفيس، فبعض هذه الأقسام قد افتتح مؤخرا بينما تعدي عمر بعض اقسام الاوفيس الرئيسية ثمانية عشر عاما واصبحت ثرية بالعلم و مازالت تطرح الجديد فى كل يوم بفضل عطاءكم و مشاركتكم. وسبب هذه الدعوة للمشاركة وهو نفس سبب افتتاح هذه الافسام الجديدة، هو رغبنا فى تقديم ما فيه الفائدة لأعضاء المنتدى، فهذه المواضيع قد إزدادت أهميتها بدرجة كبيرة، و من المتوقع بحسب العديد من الدراسات أن تزيد أهميتها كثيرا فى الفترة القادمة على المستوى المهني وستصبح أساسية للتطوير الذاتي أيا كان مجال عملك. وكما جرت العادة للأسف، فالمحتوى العلملي المتاح بالانجليزية فى هذه المواضيع يتعدى المحتوى المتاح باللغة العربية بصورة كبيرة ، و عليه باذن الله سنعمل سويا على اتاحة ما هو مفيد فى هذه الاقسام لتبادل المعرفة وتحقيق القائدة المرجوة. تم افتتاح قسمين جديدن حديثا ضمن أقسام ادارة المشاريع و هما قسمي (الاستراتيجية و ادارة محافظ المشاريع) و الذي افتتح من ايام قلائل و قسم مخصص لاطار (السيف (SAFe) و المتعلق بتطبيق المرونة على مستوى المؤسسات Scaled Agile Framework و الذي افتتح أمس فقط الأقسام الجديدة كما اعتدنا لا يتم النشر بها مباشرة و لكن يتم النشر بعد اعتماد المشاركات من المشرفين ، فستظهر المشاركات بعد اعتمادها، و بعد فترة باذن الله سيتم فتح النشر المباشر مثل باقي اللأقسام بعدما يعتاد المشاركين فى هذه الأقسام على نظام الموقع. فى انتظار مشاركاتكم و تفاعلكم جميعا مع تحيات فريق الموقع www.officena.net

بداية يجب إرجاع الفضل لإهله الاستاذ / سليم حاصبيا - الاستاذ ابراهيم الحداد فى مساعدتهم الدائمة وخاصة فى اعداد هذا البرنامج والذى اتمنى ان يحوز رضاكم كتلميذ من تلامذة المنتدى أمنيتى تعريفى بعيوبه من جانب اساتذتى واسم المستخدم/ محمد فتحى / وكلمة المرور 1970 ومحرر الاكواد / 6101970 1562309003_.rar

اتفضل send.rar

هذا الكود هو رمز زر الأمر أو نستطيع وضع مكانه acCommandButton مثلا مربع النص 109 و label رمزها 100 و هكذا

بعد اذن اخي جعفر من الناحية البرمجية نعم تستطيع و من الخصائص انضم بإجابتي الى اخي @jjafferr تفضل هذا المثال فقط اختر النمو بالطول او العرض و سيتم حفظ المقاسات الأخير في جدول Size Database2.accdb

تفضل ... قم باختيار الصف ثم حضر الطلاب ثم احفظ لاعتماد غياب للصف ثم كرر العملية لجميع الصفوف .... kan_22.accdb

جهد طيب دكتور عرفة. وانشالله في ميزان حسناتك

وكذلك اجابة السؤال الأول 🙂 وبدون عمل تغيير على اعدادات الحقل ، لما تريد تنزل للسطر التالي في الحقل ، امسك زر المفاتيح Ctrl ثم اضغط على الزر Enter 🙂 جعفر

عليكم السلام اجابة السؤال الأول اما السؤال الثاني .. فضلا افرد له موضوعا جديدا وعنوان مناسب

ادخل على محرر الوحدات النمطية او اضغط ALT+ F11 ثم tools خصائص قاعدة البيانات ثم الحماية protection ثم فعل علامة الصح واكتب كلمة المرور بالتوفي https://wayprograms.blogspot.com/2021/06/print-from-more-than-printer-in-same.html https://softwars1.blogspot.com/

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

اخي الفاضل ، المعادلة التي وضعتها لك هي نفس طلبك هذا ، وخليني اشرحها لك: myDate = تاريخ احالة المعاش D2 = خ = تاريخ اليوم / او تاريخ المقارنة = 2021 Dim myDate As Date If D2 >= DateSerial(Year(D2), 1, 1) And D2 <= DateSerial(Year(D2), 6, 30) Then اذا خ بين 1/1/2021 و 30/6/2021 اذن تاريخ احالة المعاش = 30/6/2021 myDate = DateSerial(Year(D2), 6, 30) ElseIf D2 >= DateSerial(Year(D2), 7, 1) And D2 <= DateSerial(Year(D2), 9, 30) Then اذا خ بين 1/7/2021 و 30/9/2021 اذن تاريخ احالة المعاش = خ myDate = D2 Else اذا خ غير عن الشروط اعلاه اذن تاريخ احالة المعاش = 30/6/2022 وهي السنة التالي myDate = DateSerial(Year(D2) + 1, 6, 30) End If جعفر

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

ممكن ب word art بس اهم شيء نوع الخط

كل الشكر لك اخي وجزاك الله خير ولا حرمنا الله ابداعاتك

الرابط يعطيك طريقة الحل 🙂 وبما ان سؤال الموضوع "رسالة خطا فى ويندوز ١٠ نطام ٦٤" قد تمت الاجابة عليه ، فرجاء اتباع قوانين المنتدى بعدم وضع سؤال آخر فيه 🙂 جعفر

استعلم مره وحده وخذ البيانات الي تحتاجها سواء بالرقم أو الإسم Dim db As Database Dim rs As DAO.Recordset Dim SettextEmployeeNumber As Set rs = CurrentDb.OpenRecordset("SELECT * FROM qryPersons textEmployeeNumber=" & textEmployeeNumber) If Not rs.BOF Then rs.MoveFirst While (Not rs.EOF) [FullNameAR]=rs.Fields("FullNameAR") [FullNameEN]=rs.Fields("FullNameEN") Wend End If rs.Close Set rs = Nothing

العفو تم اضافة المسح للخلايا المرحلة تم التعديل المصنف1.xlsm

الشكر لله اخي

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

نعم هذا صحيح استاذي

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

السلام عليكم الكود التالي يمكنك من تغيير التسمية الظاهرية للأزرار في نموذج آخر اسمه frm1 Dim frm As Form Dim fc As Control Set frm = Form_frm1 For Each fc In frm.Controls If fc.ControlType = 104 Then fc.Caption = "officena" End If Next fc Set frm = Nothing التحكم في الأزرار.accdb

🙂 1. عملت استعلام علشان احصل على مجاميع اسماء المدارس ، بدون تكرار: . 2. ثم استعلام آخر ، حتى يعطينا جميع سجلات المدرسة ، حسب قيمة الحقل cbo_schoole في النموذج tsform ، والذي سنغيره برمجيا : . 3. ثم فتحت النموذج fform ، وحفظت نسخة منه الى تقرير : . 4. تم حفظ التقرير باسم rpt ، ومصدر بياناته كان الاستعلام 2 اعلاه ، وعدلت على ارتفاعه ليكون نصف صفحة تقريبا ، حتى نضع تقريرين في كل صفحة pdf : . 5. وعملت هذه الدالة على زر "بيان درجات الطالب" ، لكي يتم تصدير التقارير لمفات pdf ، لكل مدرسة ملفها الخاص: Private Sub أمر26_Click() 'On Error Resume Next 'DoCmd.OpenReport "استيكر لغات", acViewPreview 'Me.Visible = False On Error GoTo err_Handle Dim rstG As DAO.Recordset Dim File_Name As String 'get the Group school names Set rstG = CurrentDb.OpenRecordset("Select * From qry_1_School_Name_Group") rstG.MoveFirst 'always start from the begining 'loop through the Group school names Do Until rstG.EOF 'assign the school name to the field, and apply its event, for visual looks Me.cbo_schoole = rstG!School_name Call cbo_schoole_AfterUpdate 'output pdf file name File_Name = Application.CurrentProject.Path & "\" & Me.cbo_schoole & ".pdf" Kill File_Name 'Delete old file, if any 'output the Reports as pdf file DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, File_Name, False, , , acExportQualityPrint 'next school rstG.MoveNext Loop Exit_err_Handle: 'cleaning up rstG.Close: Set rstG = Nothing Exit Sub err_Handle: If Err.Number = 53 Then 'no file to delete Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_err_Handle End Sub جعفر 1394.تصدير بي دي اف لكل مدرسة على حدى.mdb.zip

الملف شغال اخي الكريم اذا ما اشتغل عندك يكو نفي نقص بالمكتبات امتداد .dll نزل اوفيس 2019 نظام 64 بت

وفي انتظار الاستاذ هاني ان يعطينا ملف بدون كلمة سر في الكود 🙂 جعفر

تفضل هذه مبادرة من طرفي حاول تكمله و اذا استصعب عليك شي كلنا في خدمتك Smart_Gym.zip مجلدات الصور.zip

السلام عليكم انا الزائر محمد نسب ولكن لم استطع ان ادخل في نفس الاسم فشتركت باسم جديد اريد مساعدتكم لانه لدي مشكلة وهي : كيف اجمع التواريخ؟ لدي التاريخ 12/5/2004 و اريد ان اضيف 180 يوم عليه فما هو الحل ؟ اتمنى منكم المساعدة

السلام عليكم ورحمة الله وبركاته اخوانى الأفاضل ارجوا وضع النية لله أولاً قبل ان تقرأ هذا جمعية المبرمجين العرب اقــــــتـراح من الواضح والملموس قيمة البرمجة فى العالم العربى .فلماذا حتى الأن لم تنشئ جمعية تسمى بجمعية المبرمجين العرب ، فإن وجود جمعية مبرمجين فى العالم العربى نظراً للكفاءات الموجودة ، هذا يجعلنا نقتحم الأسواق العالمية مثل الهند وأمريكا وباقى الدول ،هذا فضلاً عن الاستفادة التى تعود على الوطن العربى ، ومن المعروف والمعترف به أيضاً من قديم الزمن ان العقول العربية تُعد من أفضل الكفاءات إن وجدت الإمكانيات ، علم اوروبا الحالى اساسة هو العرب ، فالتأسيس والتكاتف والترابط يُعد من أهم بنود التقدم . فها أنا أُطالب بإنشاء جمعية تسمى " جمعية المبرمجين العرب " وأن تكون مثلها مثل باقى الجمعيات ، بل يجب أن تكون أفضل من الباقى لما تتميز وتتمتع به من فوائد تعود على العرب جميعاً وليست على الفرد فحسب . ومن الفوائد التى تعود علينا هى أن تحصر الدول العربية عدد المبرمجين وهم المتخصصون والمحترفون والهواة حتى تعلم العرب مدى قدرتها على المنافسة العالمية والتحديات الدولية المعاصرة . واسأل الله تعالى أن يجد هذا الاقتراح طريقة ،، أخوانى الفاضل ، ارجوا إبداء الرئ فى هذا الأمر بكل واقعية ، ومع التذكير ، انه لا مستحيل مع إصرار ولا يأس مع إيمان ولا جهل مع نور الرحمن . ====== ولقد قمت بنشر هذا الموضوع فى مجلة العلم المصرية العدد 318 لسنة 2003 بعنوان " نقابة المبرمجين " وكان الموضوع على مصر فقط .. ولكن أرى ان يكون التكاتف لكل الدول العربية ... أخى الكريم .. أنى أُبشرك .. نحن أقوياء جداً ولكن لا نشعر بذلك ، فعندما يجتمع مبرمجين العرب ، ستشعر بذلك والنتيجة ستكون بعكس مما يتوقع المحبطون . نرجوا ابداء الرئ والسلام عليكم ورحمة الله وبركاته =================== أخيكم / هشام علام http://www.hisham.itgo.comPrgrammer.doc

اريد ان اعمل شاشة افتتاحية مثل الورد والاكسل والاكسس

السلام عليكم مثال للحصول على أسماء المحطات/الطرفيات لشبكة Windows 2000 Server . يحتاج لملف net.exe وعادة يتواجد على C:\WINDOWS\system32 ويتم حفظه ومساره في جدول Path التابع للمثال . تحياتي . OnLineMachines.rar

أخوتي الكرام تحية طبية وبعد أريد أن أظهر التاريخ في حقل متغيير في النموذج ولكن ليس بالطريقة المعتادة التي تكون بالشكل التالي 01/01/1425 بل أريد اليوم في حقل والشهر في حقل أخر والسنة في حقل أخري تحياتي

عندما قمت بتحويل ملف أكسيس MDB الى ADP لم يكتفي بتحويل الجداول الى SQL SERVER بل قام بتحويل الاستعلامات وعندما وصل الى نسخ الفورم توقف عن العمل وأصبح استخدام الذاكره في الجهاز 100% ولم يكمل عمله . السؤال - مالذي يتم تحويله بالتحديد, الجداول فقط ام غيرها وهل يتم التغير على الفورم , أي ماهي التغيرات التي تتم على النسخة بشكل عام؟؟!! مع التفصيل فضلاً لا أمراً .

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

بسم الله الرحمن الرحيم والصلاة والسلام على أشرف المرسلين سيدنا محمد وعلى آله وصحبه أجمعين إخواني عباقرة الاكسس بصراحة أحيكم ونحن فخورين بكم على ماتببذلوه من جهد قيم في تعليم وتسهيل الاكسس لكل من يريده ونسأل الله أن يجعل ذلك في ميزان حسناتكم إنه سميع قريب . إخواني الاعزاء بارك الله فيكم عندي سؤال وهو عندما أعمل قاعدة بيانات في الاكسس ويكون الجدول متكون من الاتي مثلاً اسم الصنف ورقمه وكميته وسعره ثم اعمل له نموذج هل باستطاعتنا أن نجعل الاكسس يخبرنا إذا وصلت الكمية إلى حد معين نحدده نحن للقاعدة مسبقاً يعني أنا اريد عندما تصبح الكمية من هذا النوع 100 يخبرني الاكسس بأن كمية هذا النوع وصلت للحد المطلوب ومعين مسبقاً بأي طريقة تكون الاخبار بظهور رسالة أو بوميض معين أو أي شيء. هذا لصنف واحد ؟ وكذلك أريد أن يخبرني الاكسس بوصول كمية جميع الاصناف إلى حد معين بمعنى عندما يصل إجمالي الكيمة من جميع الصنوف في خانة الكمية إلى عدد معين اعينه مسبقاً مثلاً 1000 يعطيني رسالة أو إشارة . بأن الكمية وصلت في المخزون الكلي إلى 1000 هل تحب أن تواصل أو تحذف أو ماشباه ذلك . أمل أن أكون وضحت الفكرة وأنا على يقين بإذن الله تعالى بأنكم قادرون على حل المسألة . لكم كل حبي وتقدير ودعواتي لكم بالتوفيق والسداد. أخوكم مفيد

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

السلام عليك هنالك الكثير من الأسئلة حول استخدام الاستعلامات وخصوصاً استعلامات التحديث .. وهي بالحقيقة تحتاج إلى بعض الخبرة في التركيب للحالات المختلفة حسب نوع الحقل المراد تحديثه ولهذا فلقد عملت محاولة لمساعدة من يرغب بعمل استعلام تحديث وبسرعة وبدون أي مشقة وهذا الاستعلام اسمه Val2Tbl وأسلوب استخدامه كما يلي : أولاً نضعه في وحدة نمطية ونقوم بحفظها ثانياً من خلال الفورم الذي نريده نستخدمه بهذا الصيغة : Val2Tbl(Table Name, Field Name, Value) هو تابع يعود بقيمة True إذا تم تنفيذ الاستعلام بدون مشاكل أو False إذا لم يتم تنفيذ الاستعلام وميزته أن المستخدم يضع اسم الجدول واسم الحقل والقيمة التي يريدها مهما كان نوعها ( تاريخ - نص - رقم - منطقية) والتابع يتولى مهمة تركيب الاستعلام وتنفيذه وهذا مثال عن أسلوب استخدامه Val2Tbl.rar