jjafferr

أخي الفاضل أبو جاسم عندك المرفق ، وفيه الكود ، فخذ منه ما يناسبك الى برنامجك جعفر

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

وعليكم السلام الجواب المباشر ، لا يمكن تكبير هذه الكائنات ولكن هناك طرق للتحايل ، منها المرفقات من: http://www.utteraccess.com/forum/yes-no-checkbox-alternati-t1284948.html&hl=checkbox و http://www.utteraccess.com/forum/Bigger-Checkbox-t1252269.html&hl=checkbox كما يمكنك استعمال الخط "Wingdings 2" ، وبه عدة اشكال ، ويمكنك وضع الشكل على الآخر ، وعند حدث "بعد التحديث" تخفي احد الاشكال وتُظر الاخر ، يعني بإختصار ، المسألة فيها شغل جعفر yesno.zip DemoBigCheckBox2K.zip

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

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

غدا ان شاء الله (فنيا اليوم)

وعليكم السلام حيا الله اخوي كاسر حسب علمي ، لا تستطيع الحصول على قيمة العمود/الاعمدة الآخرى من حقل في جدول فيه قيم عن طريق Lookup ، لذا يجب فصل هذه القيم في جدول مستقل ، ثم ربط الجدولين بهذا الحقل ، وعرض النتائج المطلوبة هذه احد الاسباب التي لا يُنصح بإستخدام Lookup في الجداول جعفر 574.NamoerAndTeixt.accdb.zip

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

وعليكم السلام يجب ان يكون اسم المشروع كلمة غير محجوزة للأكسس ، فقد كان اسم مشروعك Round ، ولم يقبل اكسس استعمال الدالة Round ، ظنا منه انك تنادي المشروع ، لا الدالة المرفق به طريقتين بإستخدام الدالة Round : احدهما من الاستعلام مباشرة ، والاخرى موجودة في وحدة نمطية جعفر 573.round.accdb.zip

عفوا ما كنت فاهم هذه النقطة

آسف ما فهمت قصدك جعفر

وعليكم السلام برنس ومخالف عندك مخالفتين في الموضوع: اولا: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف وثانيا: عندك اكثر من سؤال في الموضوع ، وقوانين المنتدى تسمح بسؤال واحد في كل موضوع لوسمحت افتح سؤال جديد ، آخذ في الاعتبار الملاحظات اعلاه جعفر

انا اعتذر عن التأخر في الرد عليك في مشاركتي الاخيرة ، ولكن لم يكن في اليد حيلة ، للأسف ولكن الحمدلله وصلنا الى حل جعفر

السلام عليكم للأسف هذه المعلومة متداولة كثيرا ، ولكنها غير دقيقة انظر هذا الرابط . الدالة NZ تعني ، اذا قيمة الحقل لا شئ Null ، فبدل ان تعطيني خانه فاضية ، اعطني قيمة اخرى (الرابط فيه شرح وامثلة). جعفر

وعليكم السلام اعمل في جدولك حقلين ، حقل به الكلمات بالتشكيلة ، وحقل آخر للكلمات بدون تشكيلة ، في النموذج ، اعمل الحقل بدون تشكيله مخفي ، وفي الحدث بعد التحديث لحقل التشكيلة ، استخدم هذه الوحدة النمطية لإزالة التشكيلة ، وحفظ النتيجة في الحقل الآخر. الآن وقد اصبح لديك حقل بدون تشكيلة ، فإعمل البحث فيه (لا تنسى انه سيكون مخفي) ، ونتيجة البحث اجعلها تُعرض في حقل التشكيلة وهذه هي الوحدة النمطية ، وغيّر فيها كيف شئت (وللأسف ، لأن الكلمات بالعربية ، فدالة Replace عكست اماكن الخانات كما ترى ، ولكن الكود يعمل بطريقة صحيحة): Function Simplify(CW) On Error GoTo err_Simplify 'CW = Correct Word ' when we want to search, we write in simple words, ' simple words = words without hamza for example, ' so we want to avoid these letters ' If Left(CW, 2) = "وَ" Then CW = Replace(CW, "وَ", "") ' If Left(CW, 2) = "فَ" Then CW = Replace(CW, "فَ", "") ' CW = Replace(CW, "وَ", "") ' CW = Replace(CW, "وَ", "") CW = Replace(CW, "آ", "ا") CW = Replace(CW, "أ", "ا") ' CW = Replace(CW, "ؤ", "ا") ' CW = Replace(CW, "ؤ", "ء") CW = Replace(CW, "إ", "ا") ' CW = Replace(CW, "ئ", "ا") ' CW = Replace(CW, "ئ", "ء") ' CW = Replace(CW, "ى", "ا") 'CW = Replace(CW, "ة", "ه") CW = Replace(CW, "ّ", "") CW = Replace(CW, "ـ", "") CW = Replace(CW, "ً", "") CW = Replace(CW, "ٌ", "") CW = Replace(CW, "ٍ", "") CW = Replace(CW, "ُ", "") CW = Replace(CW, "ِ", "") CW = Replace(CW, "ْ", "") CW = Replace(CW, "َ", "") CW = Replace(CW, " ", "") CW = Replace(CW, "!", "") CW = Replace(CW, " ", "") CW = Replace(CW, "ٌ", "") CW = Replace(CW, " ", "") CW = Replace(CW, ".", " ") CW = Replace(CW, "-", " ") CW = Replace(CW, "[", " ") CW = Replace(CW, "]", " ") CW = Replace(CW, "(", " ") CW = Replace(CW, ")", " ") CW = Replace(CW, ",", " ") CW = Replace(CW, "_", " ") CW = Replace(CW, "¬", " ") CW = Replace(CW, ":", " ") CW = Replace(CW, "؛", " ") CW = Replace(CW, ".", " ") CW = Replace(CW, "،", " ") CW = Replace(CW, "«", " ") CW = Replace(CW, "»", " ") CW = Replace(CW, "{", " ") CW = Replace(CW, "}", " ") CW = Replace(CW, "§", " ") CW = Replace(CW, "ـ", " ") CW = Replace(CW, "1", " ") CW = Replace(CW, "2", " ") CW = Replace(CW, "3", " ") CW = Replace(CW, "4", " ") CW = Replace(CW, "5", " ") CW = Replace(CW, "6", " ") CW = Replace(CW, "7", " ") CW = Replace(CW, "8", " ") CW = Replace(CW, "9", " ") CW = Replace(CW, "0", " ") CW = Replace(CW, "~", " ") CW = Replace(CW, CrLf, " ") CW = Replace(CW, Lf, " ") CW = Replace(CW, Cr, " ") CW = Replace(CW, "*", " ") CW = Replace(CW, "؟", " ") CW = Replace(CW, "؛", " ") CW = Replace(CW, Chr(34), " ") CW = Replace(CW, "*", " ") CW = Replace(CW, "؟", " ") ' CW = Replace(CW, "؛", " ") ' CW = Replace(CW, "؛", " ") Simplify = CW Exit Function err_Simplify: If Err.Number = 94 Then 'null Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function جعفر

تفضل جعفر 570.عدد الأسر.accdb.zip

نعم انا قلت هذا في طريقة ، ولكن بتغيير الـ Registry ، http://www.thewindowsclub.com/enable-disable-right-click-context-menus-windows-explorer http://www.liutilities.com/products/registrybooster/tweaklibrary/tweaks/10160/ ونستطيع عن طريق البرنامج التحكم فيه ، بحيث نمنع النقرة بيمين الفأرة عند دخولنا في البرنامج ، ثم نسمح لها عند خروجنا من البرنامج ، ولكن عند تشغيل البرنامج ، لن تعمل نقرة الفأرة اليمين في برنامج تفحص الملفات في الوندوز File Explorer ايضا !! ولكني ضد تغيير اعدادات كlبيوتر المستخدم ، لهذا السبب لم اعرض الفكرة جعفر

هلا والله

وعليكم السلام اختي انا عملت لك التعديلات على حقل الوظيفة ، وانتي اكملي الباقي بنفس الطريقة الجزء الاخير من الصورة مهم ، لأنك تستخدمين وحدة نمطية ، وتعريف طريقة البحث يجب ان تكون Like ، والتي رمزها من الكود هو LS : . مصدر بيانات الحقل يجب ان يكون اسماء الوظائف ، وليس رقمها ، لأن رقمها سيعطيك قيمة واحدة فقط . وعليه ، يجب ان نجري التغيير في الاستعلام ايضا ، حتى نرى اسماء الوظائف وليس ارقامها . هكذا نتيجة الاستعلام . ولما تبحثين عن اسم الوظيفة ، تستطيعين حذف بقية المسمى ، والاكتفاء بالمسمى الذي تريدين البحث عنه (ويمكنك استبدال مربع التحرير والسرد بمربع نص عادي وتكتبين فيه كلمة البحث) ، والنتيجة: . وسلام لأخي رضوان جعفر 572.Employees.mdb.zip

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

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

تفضل A1 = "[امتار الإنتاج]" A2 = "امر التشغيل" A3 = "لوحة تحكم" A4 = "تاريخ الصب" A5 = "المنتج" A6 = "نوع" Me.n1 = DSum("[A1]", "A2", "[A6]='" & [Forms]![A3]![M] & "' AND [A5]='" & [Forms]![A3]![B2] & "' AND [A4]=#" & [Forms]![A3]![MM] & "#") يعني استعمل الكود التالي ، وذلك بعدما ضبطناه في السطر السابق Me.n1 = DSum("[امتار الإنتاج]", "امر التشغيل", "[نوع]='" & [Forms]![لوحة تحكم]![M] & "' AND [المنتج]='" & [Forms]![لوحة تحكم]![B2] & "' AND [تاريخ الصب]=#" & [Forms]![لوحة تحكم]![MM] & "#") وعلشان نضع صفر بدل الحقل الفارغ Me.n1 = NZ(DSum("[امتار الإنتاج]", "امر التشغيل", "[نوع]='" & [Forms]![لوحة تحكم]![M] & "' AND [المنتج]='" & [Forms]![لوحة تحكم]![B2] & "' AND [تاريخ الصب]=#" & [Forms]![لوحة تحكم]![MM] & "#"),0) جعفر

السلام عليكم تم عمل اللازم في هذا الرابط: جعفر

السلام عليكم لم استطع تعطيل النقر على الفأرة اليمنى تم استبدال ActiveX الى: . وهذا الكود بالكامل ، مع استعمال الاسهم للذهاب الى الصفحة السابقة ، او الرجوع للصفحة التي كنت عليها Option Compare Database Public web As Object Private Sub cmd_Back_Click() web.GoBack 'Go Back one Page End Sub Private Sub cmd_Forward_Click() web.GoForward 'Go Forward one Page End Sub Private Sub Form_Load() 'specify that the browser is an object in the Form Set web = Me.objIE.Object 'give the initial web page name web.Navigate "E:\" End Sub جعفر 569.Database1.accdb.zip

السلام عليكم شكرا اخوتي انس ورضوان (زين سمعنا صوتك) وشفان بدأ الموضوع بعدة اسأله عن امكانية التعامل مع مواقع الانترنت ، ومعظمها عن ارسال البيانات ، وخصوصا لموقع الشموس ، وعلمنا اخونا العود أبوخليل (اعرف انه متابع الموضوع) ، ان الاسئلة المتكررة يعمل لها موضوع مستقل فيه حل شامل ، فانا هنا احاول الاقتداء به بدأ المشروع بشئ صغير ، ولكن الفكرة توسعت ، لتسهل العمل على المبرمج ، وليكون البرنامج مكتبة لعمل العديد من الاشياء. وهذا جعلني اتأخر عن بعض زبائني ، والتأخر عن مساعدة العديد من الشباب في المنتدى عمل البرنامج (طبعا لن يشتغل البرنامج على جميع المواقع ، وبالتجربة فقط تستطيع معرفة عمله مع اي موقع) : النموذج frm_browse يحتوي على كائن Microsoft Web Browser ، ندخل اسم الموقع في حقل التحرير والسرد url_Address ، ثم نضغط على الزر Go ، والذي سيفتح الموقع في النموذج ، الزر "احفظ csv" سيقرأ كائنات الموقع ، ويحفظها في ملف بصيغة csv (اللي ينفتح بالاكسل) ، ثم يفتح الملف ، وفيه 3 طرق لإرسال معلومات الى اي حقل تريد (يعني يعطيك الكود جاهز لكل حقل) ، والافضل استعمال الكود الذي في العمود "Usage2" ، حيث ليست جميع الحقول لها اسماء (للأسف في بعض المواقع) ، الأفضل منه هو زر "احفظ في الجدول" ، حيث سيحفظ كائنات الموقع في جدول في البرنامج نفسه ، والاصعب كان حفظ بيانات حقول التحرير والسرد ، الزر "تجربة ارسال ، استيراد بيانات لهذا الموقع" يفتح النموذج frm_Send_Get وبه كائنات الموقع واسماء الحقول (حسب اسمها في البرنامج وليس حسب ظهورها على الموقع ، فالموضوعين غير مرتبطين للأسف في برمجة الموقع) ، هنا نستطيع تجربة اذا كان بإمكاننا ارسال/استرجاع بيانات الى/من الموقع ، فتختار اي حقل تريد التجربة عليه ، وتكتب المعلومة التي تريد ارسالها في الحقل Send_Data وبالنقر المزدوج على المعلومة ، وسترى انه تم ادخالها في الحقل في الموقع ، ويمكن التأكد كذلك من امكانية قراءة معلومة الحقل بالنقر المزدوج على الحقل Get_Data ، بالنسبة لحقول التحرير والسرد ، فالموضع يختلف قليلا ، لأنه مثل الاكسس ، فالمعلومة التي تراها في اختيار المعلومة من هذا الحقل ، ليس معناه انها نفس القيمة التي تُحفظ في الجدول ، لذلك يجب عليك النقر المزدوج على الحقل ref_Name ، فيعطيك قائمة الاختيار من النموذج frm_Options ، وبالنقر المزدوج على الحقل Opt_Value ستنتقل المعلومة الى الحقل في Send_Data النموذج frm_Send_Get ، والتي يمكن بالنقر المزدوج عليها ان ترسل المعلومة الى الحقل في الموقع (وهنا قد لا ترى التغير على الحقل في الموقع ، ولكن عندما تنقر عليه لتختار ، ستجد ان الاختيار قد تم حسب رغبتك) ، الى هنا وقلت اقفل الموضوع!! ولكن ، صحيح اني قدمت كود ارسال/استرجاع البيانات ، وبيانات حقول التحرير والسرد ، ولكن العملية متعبة في عمل جدول جديد ونموذج وكود لكل حقل ووو ، فرأيت ان اواصل العمل ، ولم اعرف مدى صعوبة عمل والتحكم بقاعدة بيانات خارجية ، فلهذا السبب اخذ وقت اكثر بكثير مما كنت اعتقد: فعملت الزر "عمل نموذج ارسال ، استيراد بيانات لهذا الموقع" ، والذي يفتح النموذج frm_Make_Form ، والزر السحري فيه هو "اعمل النموذج" ، والذي: يعمل قاعدة بيانات جديدة ، حسب اسم المسار واسم البرنامج الذي تريده ، ويعمل فيها 4 جداول تحتوي على معلومات الموقع وكائناته ، ثم يعمل النموذج الخاص بهذا الموقع ، وتكون الحقول جاهزة للإستعمال ، مع حقول التحرير والسرد ، ويكون هذا النموذج مربوطا بالجدول tbl_web_Send_Get ، النموذج به زر "Send Data" وزر "Retrieve Data" ، العمل المتبقي هو عمل الكود لهذه الازرار ، بحيث يكون النموذج جاهز 99% ، وتبقى الـ 1% للتعديلات التي قد لا اطالها. ارفق لكم البرنامج الى حيث وصلت (مع العديد من الاشياء التجريبية التي يجب حذفها في البرنامج النهائي) ، وان شاء الله لما اكمل الجزء المتبقي ، سارفقه كذلك (حينها سأقوم بتعديل الموضوع من اول وجديد ، ترتيب الصور مع الشرح والمرفق الاخير ، ان شاء الله). جعفر Pre-WebBrowser.zip