jjafferr

وعليكم السلام اخوي صالح 🙂 هذه الخاصية موجودة في الاكسس فقط (مثل Lookup في الجدول) ، فيجب عليك ان تتعامل معهم بطريقة اخرى ، قبل ان تنتقل الى SQL Server 🙂 احد الطرق هي ان تجعل هذه القيم في جدول آخر ، وفي النموذج تعامله كنموذج فرعي 🙂 منقول ومترجم من: https://answers.microsoft.com/en-us/msoffice/forum/all/access-multivalue-field-convert-to-ms-sql/05e4ebe9-d919-44c6-bf76-efe47e0d5cae جعفر

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

وعليكم السلام اخي الفاضل 🙂 واهلا وسهلا بك في المنتدى 🙂 الخطأ عندك في السطر الاول ، حيث انه لما تنقر على كائن صح/خطأ ، فعلامة الصح قيمتها -1 ، وعلامة بدون صح قيمتها 0 ، فعليه يصبح الكود : If Me.dd = -1 Then ولكن ، ايش رأيك في هذ التنسيق ، بحيث بإستعمال TAB الكيبورد ننسق الكود ، فتصبح قراءة الكود سهله ، ونعرف كل مجموعة وين بدايتها ووين نهايتها : If Me.dd = -1 Then Dim t t = MsgBox("?? ??E ?E??I ?? ?UEE? ??? ?C?E C????C? ?? C??CE??E?", vbYesNo, "??? C????C? ?? C??CE??E") If t = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "C?E??C? ??? ?CE??E" Me.dd = 0 DoCmd.SetWarnings True ElseIf t = vbNo Then MsgBox "E? C?E?C?? ?? C????" End If ElseIf Me.dd = 0 Then Dim r r = MsgBox("?? ??E ?E??I ?? ?UEE? ??C?E C???? ???CE??E?", vbYesNo, "??U C????") If r = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.OpenQuery "Q2" Me.dd = 1 DoCmd.SetWarnings True ElseIf r = vbNo Then MsgBox "E? C?E?C?? ?? C???U" DoCmd.CancelEvent End If End If جعفر

يا جماعة الخير 🙂 لو قرأتوا الموضوع كاملا ، وبرواقة ، وعلى فنجان شاي او قهوة ، لوجدتوا ان صاحب الموضوع جزاه الله خيرا ، قد ارفق نسخة مفتوحة المصدر في احد مشاركاته اللاحقة : . جعفر

اما انا فرأسي يابس ولازلت اريد : 🙂 جعفر

في الواقع انا اترك في الكود المصدر صاحب الكود : 'Author: Allen Browne. allen@allenbrowne.com, June 2006. وتم انزاله من http://allenbrowne.com/ser-36.html#Format جعفر

وعليكم السلام 🙂 رجاء لا تعطنا صورة الشاشة كاملة ، فما نقدر نقرأ تفاصيلها ، وانما ، عدّل مكان رسالة الخطأ ، بحيث تظهر مع اظهار الكود ، واعمل اقطع Crop للصورة ، وارفق الزبدة فقط 🙂 جعفر

وعليكم السلام 🙂 القيم لا تصل الى الوحدة النمطية من الاستعلام ، بسبب انها NULL !! فالطريقة هي مثل ما قالها اخوي ابو آمنه ، او . جعفر 02.accdb

🙂

وعليكم السلام 🙂 بعد الـ Beep والرسالة ، ضع هذا الكود : Me.ZTeacher = null Me.Zday = null Me.ZDate = null Me.ZProduct = null Me.ZA2= null Me.ZA3= null جعفر

السلام عليكم 🙂 اخي فايز ، اذا اردت ان تسرعي انتباه احد الاعضاء ، بحيث يحصل العضو على رسالة ، فالطريقة هي : اكتب العلامة @ ومسافة ، وتكتب اسم العضو ، فترى الاسماء تأتيك ، ومنها تختار الاسم الصحيح. مثلا اذا اردت ان اذكرك: @فايز.. اما بالنسبة للكود ، ففيه خطأ ، والتعديل هو (السر في التعديل هو التنسيق ، فلما تعمل التنسيق مثل ما عملت انا ، بداية الامر ونهايته تكون واضحة) : Private Sub f1_Click() Dim X As String X = Me.ZTeacher2.Column(1) & ".pdf" If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then If MsgBox("هناك ملف محفوظ من قبل هل تريد استبداله", vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "تنبيه") = vbNo Then DoCmd.CancelEvent Else DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End If else DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End If End Sub . اخي @Shivan Rekany طالت الغيبة ، والحمدلله شفنا لط طلّه 🙂 جعفر

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

اخبرتك هكذا Private Sub cmd_Preview_Report_Click() On Error GoTo err_cmd_Preview_Report_Click If Len(Me.[السنة] & "") = 0 Then MsgBox "رجاء ادخال السنه" Me.[السنة].SetFocus Exit Sub ElseIf Len(Me.[الشهر] & "") = 0 Then MsgBox "رجاء ادخال الشهر" Me.[الشهر].SetFocus Exit Sub End If Dim myWhere As String myWhere = "[السنة]='" & [السنة] & "'" myWhere = myWhere & " And" myWhere = myWhere & " [الشهر]='" & [الشهر] & "'" DoCmd.OpenReport "تقرير1", acViewPreview, , myWhere Exit_cmd_Preview_Report_Click: Exit Sub err_cmd_Preview_Report_Click: If Err.Number = 2501 Then 'no data, ignor Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_cmd_Preview_Report_Click End Sub . ومع انت لم تقل هذا ، ولكني استنتجت انك تريد فتح التقرير للسجلات التي تخص الشهر والسنة 🙂 جعفر 1203.2020القائمة الفرعية.accdb.zip

وعليكم السلام 🙂 استخدم هذا الكود قبل كود فتح التقرير : If Len(Me.[السنة] & "") = 0 Then MsgBox "رجاء ادخال السنه" Me.[السنة].SetFocus Exit Sub ElseIf Len(Me.user_name & "") = 0 Then MsgBox "رجاء ادخال الشهر" Me.user_name.SetFocus Exit Sub End If جعفر

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

السلام عليكم 🙂 جاء على بالي ، اذا كلمة السر هي (او حتى اسم المستخدم فيه العلامة/الاشارة) : kl;'';lk لذا في الكود ، يجب تغيير كلمة السر مال الجدول ، بالاضافة الى تغيير كلمة السر التي تم ادخالها : 'chr(39)= ' 'chr(95)= _ u = Replace(Me.Texte1, Chr(39), Chr(95)) p = Replace(Me.Texte3, Chr(39), Chr(95)) myWhere = "Replace(login, chr(39), chr(95))='" & u & "'" myWhere = myWhere & " and" '<اهم شيء هو ترك مسافة في البداية قبل and myWhere = myWhere & " Replace(passe, chr(39), chr(95))='" & p & "'" '<اهم شيء هو ترك مسافة في البداية قبل passe Debug.Print myWhere جعفر

وعليكم السلام 🙂 اما انا ، فأفضّل ان اقوم بكل شيء في الكود ، لأن عندي مساعة واسعة ومجال اكبر للعمل هناك 🙂 يمكنك حل المشكلة بطريقتين ، اولها بإصطياد رقم الخطأ ، ثم نعمل on error والثاني بفحص المتغير قبل دخوله في المعادلة: استعمل wzn2: G_to_K_w([units],[wzn]) وهاي الوحدة النمطية ماله Public Function G_to_K_w(u As String, w As Double) As Double 'convert Gram to Kilogram 'wzn if len(u & "")=0 then G_to_K_w =0 elseIf u = "جرام" Then G_to_K_w = w / 1000 Else G_to_K_w = w End If End Function . جعفر

شوف هذا الرابط قد يساعدك : https://exceldevelopmentplatform.blogspot.com/search?q=jQuery+ جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 شكرا لك اخي صالح على الشرح وبالتفصيل لهذه المواضيح المهمة 🙂 من تجربتي ، فالتصفح من داخل الاكسس عن طريق webbrowser ، والذي يستعمل ieFrame.dll ، والذي هو جزء من الانترنت اكسبلورر Internet Explorer ، لا يحتوي على جميع خواص Internet Explorer الكامل ، فهذا الموضوع سيكون اشمل و أعم 🙂 فانا هنا من المتابعين كذلك ان شاء الله ، وبصمت 🙂 جعفر

لا لا يا استاذ صالح ، احنا متابعين بصمت 😁 جعفر

هلا والله ابو آمنه 🙂 يا رجال ، جمعت الاشياء من هني وهناك ، مو تصدق 😁 انا اكسس وبس 🙂 جعفر

اخي طارق 🙂 فهمنا للطلب ، يسهل علينا الاجابة ، وطلبك ليس بالسهل ولا بالصعب ، ولكننا علشان نساعدك ، لازم نبرمج لهذا الطلب (1. للشبكة الداخلية) ، او ذاك (2. على الانترنت) ، للمواد التي تريد استعمالها ، وعلى الاكسس : واليك الفرق بينهم : 1. الشبكة الداخلية : برنامج جدا عادي ، حسب المواد اللي عندك ، والصفوف ، تضبط مجلداتك ، وعليه ، تقدر يكون عندك نموذج لإدخال المواد (عن طريق الاستاذ مثلا) ، ونموذج قراءة المواد (للطلبة) ، الواجهة والجداول ممكن تكون على الاكسس ، الواجهة على كمبيوتر الطلبة ، والجداول والمواد (المرفقات) يتم حفظها في مجلد المشاركة على السيرفر (او الكمبيوتر الذي به مجلد المشاركة) ، عمل نموذج/نماذج لعرض المرفقات . 2. على الانترنت : برنامج يقرأ من مكان ما من الانترنت ، ولا ينفع السيرفر المحلي الموجود عندك في المكتب حتى ولو عليه SQL Enterprise 2014 ، لأن الاساتذه/الطلبة ما ممكن يتصلوا به من بيوتهم (وهذا هدفك) ، تستطيع جعل الكمبيوتر المحلى سيرفر لقواعد بيانات سيكوال SQL Server والاتصال به محليا وعن بعد ، بإتباعك هذه الخطوات : وسواء اذا اتبعت الخطوات في الرابط اعلاه ، او عملت استضافة في احد مواقع الانترنت ، فبرنامج سيكون على الانترنت ، ولا يمكن لأحد الوصول اليه وادخال المواد (المرفقات) بالطرق التقليدية ، مثل ما عملنا برنامج اكسس عادي لقراءة البيانات ، فيجب ان نعمله هنا كذلك ، طبعا تقدر تعمل واجهات بإستخدام برامج الواجهات مثل php ، Java ، Python ، JavaScript ، CSS / HTML ، او برامج NET. ، وووو ، ولكن هذا خارج منتدى الاكسس ، لرفع المرفقات ، تقدر انك تضمن المرفقات في حقول قاعدة البيانات SQL Server ، او تعمل واجهة خاصة لفعها من برنامجك ، او ترفعها عن طريق FTP ، اما انزالها الى كمبيوتر الطلبة ، فهم محتاج الى رابط هذا المرفق (واللي هي سبب اسئلتي انا والاستاذ صالح من اول مشاركة) 🙂 فالموضوع مو انه ممكن او لا يمكن عمل هذا البرنامج عن طريق الاكسس ، وانما الموضوع هو ان يكون الطريق واضح امامك ، وانك تمتلك الامكانيات اللوجستية والمادية والوقت (والبرمجة هو جزء بسيط من الموضوع) للوصول لهذه الاشياء 🙂 اتمنى هذا الملخص قد شرح لك لماذا اصرارنا على هذه الاسئلة ، وسببها قولك (التدريس عن بعد) ، وفهمي انها على الانترنت : جعفر

السلام عليكم 🙂 برامج الاكسس ممكن ان يصيبها العطب corruption لعدة اسباب ، وبرامج تصليح العطب يجب ان تكون من ضمن مكتبة برامج المبرمج 🙂 يُعتبر برنامج DataNumen Access Repair من احد البرامج المهمة في اصلاح ملفات الاكسس المعطوبة ، والآن الشركة تعطي النسخة الاحدث 2.9 للإستعمال الشخصي الغير تجاري ، مجانا ، من موقعهم : https://www.datanumen.com/access-repair/ انزلته وجربته ، بس لاحظت ان البرنامج بطيء بالمقارنة مع بعض البرنامج الاخرى ، ولكن لا تنسى أنها نسخة مجانية (للإستعمال الشخصي الغير تجاري) 🙂 جعفر رجاء استعمل رابط الشركة حتى تنزل آخر نسخة هناك ، بينما ارفق هنا النسخة 3 (احتياطا ، اذا غيرت الشركة رأيها لاحقا والغت النسخة المجانية ، فتكون عندنا هنا النسخة المجانية 🙂 ) daccr.zip

يا باشمهندس محمد ، يعني لازم نعطيك كل اسرارنا !! هاي الله يسلمك نسخ/لصق آخر الليل كلامك صحيح ، مافي داعي للوزن هنا 🙂 جعفر