jjafferr

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

وعليكم السلام وبعد التحية والسلام على اخوي محمد سلامة وشفان تستطيع استعمال طريقتي في اي مكان كان ، وحتى في وحدة نمطية مستقله ، مثلا: public function Check_Records() dim rst as dao.recordset dim RC as integet set rst=currentdb.openrecordset("Select * From Table_Name") rst.movelast:rst.movefirst:RC=rst.recordcount if RC=>10000 then هنا تكتب ما تريد من الاوامر لوقف البرنامج endif end function . اما مثال اخوي شفان ، فيكون في النموذج فقط (هكذا بعد التعديل ، لكي تحصل على عدد السجلات الصحيح) Private Sub Form_Current() Me.RecordsetClone.movelast If Me.RecordsetClone.RecordCount >= 10 Then ' Me.Names.Enabled = False ' Me.ID.Enabled = False ' Me.PhoneNumber.Enabled = False Me.Form.AllowAdditions = False Else ' Me.Names.Enabled = true ' Me.ID.Enabled = true ' Me.PhoneNumber.Enabled = true Me.Form.AllowAdditions = True End If End Sub جعفر

وعليكم السلام تستطيع حساب عدد السجلات هكذا (اكتب اسم الجدول بدلا عن Table_Name) : dim rst as dao.recordset dim RC as integet set rst=currentdb.openrecordset("Select * From Table_Name") rst.movelast:rst.movefirst:RC=rst.recordcount if RC=>10000 then هنا تكتب ما تريد من الاوامر لوقف البرنامج endif جعفر

وعليكم السلام تفضل 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 ، او تستطيع ان تفتح نموذج به البيانات الكاملة لهذا الحقل عند النقر المزذوج على الحقل مثلا ، هذه مجرد افكار ، ولكن الموضوع يعتمد على واقع برنامجك وتصميمك. جعفر