jjafferr

شكرا

الاستعلام رقم_1 و SQL . ونتائجه . الاستعلام رقم_2 و SQL . ونتائجه . ومن النموذج نحصل على نفس النتيجة . كما انه بإمكاننا ان نضع الاستعلام رقم_1 ، كإستعلام فرعي داخل الاستعلام الرئيسي رقم_2: . والنتيجة . جعفر 859.استخراج اخر تنقل وماقبله.accdb.zip

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

وعليكم السلام بدل ان اعطيك سمكة ، خليني اعلمك كيف تصطادين اعملي استعلام واعملي الترتيب/الفرز على اساس حقل التاريخ Desc (تنازلي) ، يعني التاريخ الاكبر(الاحدث) يكون في اعلى القائمة ، وطبعا بمعيار رقم الموظف ، حتى نحصل تواريخ هذا الموظف فقط ، الآن نطلب من هذا الاستعلام ان يعطينا قيمتين فقط: أ. حولي الاستعلام الى SQL واكتبي: Select TOP 2 ، ثم بقية الكود ، او ب. فيعرض علينا القيمة الاحدث (والتي انتي حصاتي عليها من Max) ، والقيمة الاخرى التي تريديها ، احفظي هذا الاستعلام رقم_1 ، 1. الآن تستطيعين استعمال الامر DMin لتاريخ استعلام رقم_1 ، فتحصلين على القيمة الثانية او نواصل: اعملي استعلام جديد رقم_2 ، ويكون مصدره الاستعلام رقم_1 ، اعرضي جميع بيانات الاستعلام رقم_1 ، وافرزي التاريخ Asc (تصاعدي) ، بحيث تصبح القيمة الثانية في اعلى القائمة (وهو المطلوب) ، فتستخدمين الامر DMax لتحصلي على التاريخ ، او نواصل: في الاستعلام رقم_2 ، كذلك اطلبي من الاستعلام ان يعطينا قيمة واحدة فقط ، سواء عن طريق Select TOP 1 ، او من اعدادات الاستعلام ، فتستطيعين استعمال الامر DMax او DMin او Dlookup احاول ان اعمل هذه الاختيارات في مرفقتك ان شاء الله. جعفر

وماذا كانت المشكلة ، وكيف تم حلها؟

انظر في الجدول ، في اعدادات الحقل ، هل حجم البيانات التي سمحت بها . جعفر

وعليكم السلام الاعداد الذي يجب ان تنظر فيه هو ، تسلسل الكائنات التي يقع عليها التركيز: 1. نوع الكائن في النموذج ، فليس كل الكائنات تقبل التركيز ، مثل كائن التسمية مثلا ، 2. تسلسل الكائنات التي يقع عليها التركيز في النموذج يبدأ بالرقم صفر ، 3. بعض الكائنات لا نريد ان يقع عليها التركيز ، فالاعداد هنا سيكون لا . عملت لك الكود التالي لكي يخبرك اسماء كائنات النموذج ، و رقمها Tab index Dim ctrl As Control For Each ctrl In Me.Controls Debug.Print ctrl.TabIndex & vbTab & ctrl.TabStop & vbTab & ctrl.ControlType & vbTab & ctrl.Name Next . وانت لا تريد ان تسمح بـ TabIndex+1 (طبعا ممكن ان الكائن TabIndex+1 هو زر امر ، او لا يسمح بتوقف التركيز عليه ، فيجب ان تنتقل الى الكائن التالي) ، وتريد ان تسمح بـ TabIndex-1 (طبعا ممكن ان الكائن TabIndex-1 هو زر امر ، او لا يسمح بتوقف التركيز عليه ، فيجب ان تنتقل الى الكائن التالي) . جعفر

السلام عليكم وهذه اجابتي بالتفصيل: عملت زر للطباعة . واكواد النموذج اصبحت Private Sub cmd_print_Click() DoCmd.OpenReport "resarf" End Sub Private Sub zer1_Click() rgm = DMax("Hrk_ID", "tblHaRas") 'DoCmd.OpenReport "resarf", acViewNormal DoCmd.OpenReport "resarf", acViewPreview End Sub Private Sub zer2_Click() text1 = rgmharaka() End Sub . وعملت التالي: معاينة ، قيمة المتغير = 48 ، طباعة ، قيمة المتغير = 48 ، فارسلت لك الرد ، بأن برنامجك شغال 100% وحسب طلبك اما الآن ، فاستعملت كودك ، والنتائج نفسها ولا ارى ان المشكلة في الكود !! خليني انزل مرفقك الجديد واجرب فيه ، واعود لك ان شاء الله -------------------------------------------------------------------------------------------------------- اخوي ابو خليل ، القيت نظرة على الرابط ، واذا به مقطع فيديو ، وكنت تحاول فيه حفظ مقطع صوتي ، وعند إلغائه تطلع لك رسالة خطأ . اذا كنت تعتمد على احد مكتبات الاكسس الخاصة (يعني غير المتداولة يوميا) ، او استخدمت شيء من هذا القبيل: Public Web As Object في وحدة نمطية ، وفي حدث "تحميل النموذج" عملت كود كالتالي: Set Web = Me.objIE.Object فالقيمة ستكون في البرنامج ، ولكن حالما تظهر لك رسالة الخطأ ، فالقيمة تُحذف من الذاكرة ، إلا اذا عالجت اصطياد الخطأ برمجيا (يعني البرنامج يتعامل معه انه لا يوجد خطأ ولا يتوقف الكود) جعفر

وعليكم السلام اخوي ابو خليل برنامجك شغال 100% وحسب طلبك جعفر

كلمة لم استطع غير علمية/اكسسيّة ، فرجاء تخبرنا معنى هذه الكلمة!! شكرا اخي شفان ، ولكني نسخت الكلمات الهيروغليفية (من وين جبت هالاسم) من مشاركة ابوسعد لهذا السبب اخوي ابو خليل ، وانا اكّدنا عليك السطر الثاني من الكود ادناه . جعفر

الله يطول في عمرك ، ما نسخت التعديلات بشكل صحيح تفضل Private Sub ÃãÑ103_Click() On Error GoTo ErrHandler imgPicture.Picture = "E:\Qar2018\sd.JPG" ErrHandler: If Err.Number = 2220 Then imgPicture.Picture = "" MsgBox "áÇ íæÌÏ ÕæÑÉ" ElseIf NewRecord Then MsgBox "ÇáÑÌÇÁ ÇÏÑÇÌ ÕæÑå ÌÏíÏå" _ , vbInformation, "Invalid Action" Else Dim strReportName As String Dim strCriteria As String strReportName = "rptImage" strCriteria = "[ãÓáÓá]= " & Me![ãÓáÓá] DoCmd.OpenReport strReportName, acViewPreview, , strCriteria End If End Sub جعفر

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

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

السلام عليكم يمكن عملها مثل ما تفضل وقال اخي شفان ، ولكن الافضل عملها في الجدول مباشرة ، وانا اضيف هذين الحقلين في كل جدول اعمله ، فالترقيم التلقائي يسفيد منه الاكسس لفهرسة الجدول وسرعة الوصول الى السجل ، والتاريخ التلقائي ، لمعرفة وقت حفظ السجل ، بالاضافة ، ان هذين الحقلين هما من اساسيات تحويل جداول قاعدة البيانات الى SQL server او MySQL مثلا . حيث يتم اضافة الوقت تلقائيا عند حفظ السجل ، ولا دخل للمستخدم به ، وكما ترى في الصور في الاسفل ، فقد وضعت التاريخ في احد اطراف النموذج ، وعملته بحيث لا يستطيع المستخدم تغييره . جعفر 856.Database11.accdb.zip

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

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

وعليكم السلام هذا الربط به طلبك جعفر

وعليكم السلام انت قلت بأن لديك 5 اعمدة/حقول ، ولكنك لا تظهر العمود الخامس . في النموذج ، لديك اسم الحقل في النموذج ، ومصدر بيانات الحقل من الجدول ، وفي اي مكان بين النماذج او الكود ، اذا اشرت لهذا الحقل ، فيجب ان تشير الى اسم الحقل ، وفي هذه الحالة فإن اسم الحقل عندك هو Text13 . والخطأ في الكود ، بأنك لم تُشر الى اسم الحقل في النموذج ، فكنت تحصل على خطأ . هل لازلت محتاج الاجابة على سؤالك الآخر؟ جعفر 854.قيد مزدوج2.accdb.zip

تفضل هناك عدة طرق لجلب البيانات من استعلام التوحيد (مثلها مثل جلب البيانات من اي استعلام عادي او من الجدول) ، بإستخدام Recordset او Dlookup مثلا ، ولكنني سأستعمل استعلام التوحيد بطريقه اخرى ، علشان في النهاية يكون عندنا سجل واحد فقط استعلام التوحيد الحالي ، بتغيير اسم الحقول ليتناسب مع T = تبريد . اخذت البيانات اعلاه الى ملف اكسل ، لشرح الطريقة التي سنتبعها في تفكيك الحقول اعلاه ، وعمل الاستعلامات لاحقا: 1. السطر رقم 1 ، عملنا جميع الحقول الموجودة في الاستعلام اعلاه ، ولكن بشكل افقي ، 2. السطر رقم 2و3و4 ، لاحظ بالالوان ، اخذنا كل رقم تحت اسمه ، والحقول الغير موجودة ، نكتب مكانها صفر (للارقام) ، واسم القسم لكل السجلات ، 3. السطر رقم 5 ، ثم سنعمل استعلام اجمالي ، بهذه الطريقة لكل حقل ، 4. السطر رقم 6 ، وهو المطلوب كإستعلام اخير ، لإستعماله كمصدر بيانات للإستعلام . تسلسل النشوء والتطور والتحول في الاستعلامات . بالنتائج . والنتيجة في التقرير . جعفر 853.2.db2.mdb.zip

السلام عليكم سؤالك كان يدل على انك تريد احصائية ، لهذا السبب اخذت طريق استعلام التوحيد ، ولكن بما ان السؤال اصبح واضح ، فالاجابة اقرب يجب ان يكون عندك بيانات صحيحة في الجدول علشان تجرب الاستعلام T المرفق ، واللي هو مصدر بيانات للتقرير تقرير_إحصائية_مفصلة ، واللي عملت تعديل على قسم التبريد (والباقي عليك ) ، في خطأ في استعلاماتك ، فجرب هذا الاستعلام SELECT Sum(IIf([Wrship]="مسيحى" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_مسيحى, Sum(IIf([Wrship]="مسلم" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_مسلم, Sum(IIf([Case]="مستجد" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_مستجد, Sum(IIf([Case]="منقول" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_منقول, Sum(IIf([Case]="باق" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_باق, Sum(IIf([Wrship]="مسيحى" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_مسيحى, Sum(IIf([Wrship]="مسلم" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_مسلم, Sum(IIf([Case]="مستجد" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_مستجد, Sum(IIf([Case]="منقول" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_منقول, Sum(IIf([Case]="باق" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_باق, Sum(IIf([Wrship]="مسيحى" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_مسيحى, Sum(IIf([Wrship]="مسلم" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_مسلم, Sum(IIf([Case]="مستجد" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_مستجد, Sum(IIf([Case]="منقول" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_منقول, Sum(IIf([Case]="باق" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_باق FROM Tbl_Basic, tbl_student; جعفر 853.1.db1.mdb.zip

سبحان الله ، نحن الاثنين اتجهنا الى نفس طريقة الحل اعطني دقائق لوسمحت

احنا ما عندنا هذا الشرط !! عندك شرطين: 1. إذا اخترت من القائمة ( نقداً ) أريد يكون مبلغ الخدمة إجبارياً مساوي سعر الخدمة 2. عند أختيار من القائمة ( آجل الدفع ) أريد المبلغ ينتقل من حقل مبلغ الخدمة إلى حقل المتبقي جعفر

وعليكم السلام اذن ، حقل المتبقي = القيمة السابقة في حقل المتبقي + مبلغ الخدمة ثم ، مبلغ الخدمة = صفر Private Sub Payment_type_BeforeUpdate(Cancel As Integer) If Me.Payment_type = "نقدا (cash )" Then Me.Amountofservice = Nz(Me.Net, 0) ElseIf Me.Payment_type = "آجل (Posterior)" Then Me.Residua = Nz(Me.Residua, 0) + Nz(Me.Amountofservice, 0) Me.Amountofservice = 0 'اذا اردت ان تصبح قيمة الحقل (مبلغ الخدمة) = صفر بعد نقل القيمة الى الحقل (المتبقي) End If End Sub جعفر 850.2.تجريي2.accdb.zip

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

الجدول كان . وبعد الاضافة ، اصبح الجدول . اما عرض البيانات في النموذج ، فموضوع آخر جعفر