jjafferr

وعليكم السلام تفضل Private Sub Command9_Click() On Error GoTo err_Command9_Click If IsNull(Me.Text15) And IsNull(Me.TotalAmount) Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) DoCmd.Close acForm, Me.Name Else DoCmd.Close acForm, Me.Name End If If IsNull(Me.Text15) Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) DoCmd.Close acForm, Me.Name Else Dim Msg, style, title, result Msg = "هل تريد حفظ الفاتورة الحالية" style = vbYesNo title = " تنبيه" result = MsgBox(Msg, style, title) If result = vbYes Then [TotalAmount] = [Text17] [Descount] = [Text15] - [Text17] MsgBox "تم الحفظ سيتم الخروج", vbInformation, "تنبيه" DoCmd.Close acForm, Me.Name Else If result = vbNo Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) MsgBox "تم حذف الفاتورة الحالية", vbInformation, "مع السلامة" DoCmd.Close acForm, Me.Name End If End If End If Exit_Command9_Click: Exit Sub err_Command9_Click: If Err.Number = 2467 Then Resume Exit_Command9_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

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

السلام عليكم عادةً ، لا نحفظ العمليات الحسابية في حقل في الجدول ، وانما هو سطر نضعه في الاستعلام او في النموذج/التقرير ، ونحصل على النتيجة ، صحيح ان الاكسس يحتوي على حقل محسوب ، ولكن المحترفين ينصحون بعدم استعماله ، لأن به مشاكل!! بغض النظر اينما اردت ان تضع الكود (قد تحتاج الى تغيير الفاصلة الى فاصلة منقطة): في الجدول ، في الحقل المحسوب iif([amount]<[cut],[amount],[amount]-[cut]) في الاستعلام amount_fin: iif([amount]<[cut],[amount],[amount]-[cut]) في النموذج/التقرير =iif([amount]<[cut],[amount],[amount]-[cut]) جعفر

السلام عليكم اخي ابو زاهر اعتذر منك ، ولكن كل محاولاتي باءت بالفشل جعفر

السلام عليكم شكرا اخوي علاء على المشاركة أخي حسين ، اخي علاء اعطى نفس الفكرة ، ولكن بإختلاف مسميات الحقول عملت نفس الاستعلام Q_111 ، ولكن بالحقل الصحيح ، والفرق بين كود Dlookup السابق والجديد ، هو حقل رقم الفاتورة الآن عبارة عن نص. جعفر 922.1.PROGRMS_STORY.accdb.zip

وعليكم السلام اذا كانت هذه المسافة جزء من الكلمة ، يعني عملت مسافة ثم اسم ، فالمسافة اصبحت الآن جزء من الكلمة ، لحل هذا استعمل: ([trim([Field Name ، وبدل Field Name اكتب اسم الحقل ، اما في الاكسس 2007 فما اعلى ، اذا لا يوجد مسافة في الكلمة ، وانما المسافة من مربع الحقل نفسه ، فتستطيع ان تتحكم فيه من اعدادات الحقل: . جعفر

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

انا استعملت نفس الكود تقريبا ، ولكن في استعلام ، فشو المشكلة؟ هل النتائج عندك غير صحيحة او ايش؟

تفضل بطريقتي . جعفر 923.660.2.Test2006.mdb.zip

ما فهمت قصدك!!

تفضل جعفر 923.660.2.Test2006.mdb.zip

هل تقصد ان تريد اسم واحد لكل مدينة ، مثلا: اسكندرية 1-1-2017 الدقهلية 29-6-2017 جعفر

وعليكم السلام هل هذا قصدك: . جعفر 922.PROGRMS_STORY.rar

الحمدلله ان تعليمي كان مفيد جعفر

اهلا وسهلا بك اخي خالد اعمل حدث في الحالي في نموذجك: Private Sub Form_Current() Me.TextBox1.Requery Me.TextBox100.Requery End Sub جعفر

لما كان يعطيك مجموعة سجلات ، قلت تريد سجل واحد ، ولما اصبح يعطيك سجل ، عندك مشكلة فيه!! شو المطلوب

وعليكم السلام اخوي حمدي انا قرأت الموضوع الذي بينك وبين الاستاذ عبدالله كاظم ، واخبرك فيه ان الكود غير نهائي ، لهذا السبب قد تكون تحصل على اخطاء!! ارفق لك برنامج حصلت عليه ، لا ادري من اين ، وبالصدفة وجدته امامي الآن ، لعل فيه ضالتك جعفر Teacher-Class --.rar

وعليكم السلام في الاستعلام بدل Like "*" & [Forms]![mainf]![مربع_تحرير_وسرد13] استعمل IIf(Len([Forms]![mainF]![serialx] & '')=0,[serialx],[Forms]![mainF]![serialx]) او استعمل اسم الحقل [مربع_تحرير_وسرد13] جعفر

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

وعليكم السلام اذا كان عدد الحروف اكثر من 255 ، فلن يسع حقل النص ، ويجب عليك الانتقال الى حقل مذكرة حيث يتسع لـ 1 جيجا بايت من المعلومات ويُظهر 65535 حرف في النموذج و التقرير ، (في احد برامجي ، لم نكن بحاجة الى حقل مذكرة ، وانما كنا بحاجة الى بيانات تسع 3 حقول نص: 255 حرف * 3 حقول = 765 حرف ، فاللي عملته هو عمل 3 حقول نص في الجدول ، وبرمجيا عند قراءة البيانات في النموذج/التقرير من الجدول ، ادمجهم في حقل نص واحد ، وعند الحفظ ، اقسم مجموع الحروف على 255 ، واحفظ في كل حقل جزئه) ، ولكن ، وبدل ان تفتح 15 نموذج او 15 حقل نص كبير ، تستطيع ان تعمل حقول صغيره من سطر واحد ، ثم عند التركيز عليها تضغط Shift + F2 والذي يفتح لك هذا الحقل عن طريق ZoomBox ، او تستطيع ان تفتح نموذج به البيانات الكاملة لهذا الحقل عند النقر المزذوج على الحقل مثلا ، هذه مجرد افكار ، ولكن الموضوع يعتمد على واقع برنامجك وتصميمك. جعفر

60 هيرتز كذلك ما فيه اشكال ، وجربته على شاشتي وما فيها اهتزاز

وعليكم السلام اذا كنت من جيلنا ، فالمفروض ان تذكر قول حسني البرظان في مسلسل صح النوم حين كان يقول: «إذا أردنا أن نعرف ماذا في إيطاليا، علينا أن نعرف ماذا في البرازيل» هذا سر الحصول على النتائج الصحيحة لطلبك 1. من النموذج tollab_data اخترت "دورة الاكسس" ، 2. استعلام qry_Received_Dorat ليعطينا اسماء الطلاب الذين اخذوا الدورة ، وفي المستقبل ستحتاج ان تختار الدورات بين تاريخين كذلك ، فاستعمل حقل تاريخ الدورة في الاستعلام ، 3. يمكنك استعمال استعلام qry_non1 او qry_non2 للحصول على اسماء الطلبة الذين لم يدخلوا "دورة الاكسس" ، 4. الاستعلام qry_non2 يعتبر استعلام تقليدي ، ونطلب منه جميع الطلبه في جدول tollab_data حتى وإن لم يأخذوا اي دوره (مثلا اسم الطالب j لا يوجد في جدول الدورات) ، 5. الاستعلام qry_non1 يستعمل استعلام فرعي لتصفية اسماء الطلبة (ونطلب منه جميع الطلبه في جدول tollab_data) ، وتلاحظ بأننا قلنا Not in اي غير موجودة في الاستعلام qry_Received_Dorat ، . والنتيجة: . جعفر 919.الطلاب والدورات.accdb.zip

وعليكم السلام نعم عملته ومافي اهتزاز في الشاشة خلينا نشوف اعدادات الشاشة عندك: . . . الاعدادات اللي في المربع الاحمر هي لسرعة تحديث الشاشة ، وكلما ازداد الرقم ، كلما قلّ اهتزاز الشاشة ، او حتى ان الاهتزاز يتوقف ، شاشتي على 75 هيرتز ، ومافي اي اهتزاز: . جعفر