jjafferr

الحمدلله انك توصلت الى حل ، بغض النظر عن طريقة عمله كنت اتمنى ان ترفق لنا ملف يوضح لنا ما يجب عمله ، ولكن المرفق بحاجة الى مرفق يشرحة جعفر

السلام عليكم ورجاء قراءة هذه المعلومة كذلك ، والتي كتبتها قبل قليل ، ومنها ستعرف سبب عدم ردي على السؤال من بدايته : جعفر

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

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

وعليكم السلام تفضل و جعفر

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

رجاء ارفق مثال فيه جميع الاحتمالات ، وقول ليش هذا صح وهذا غلط (اعمله بالاكسل ، مع بيانات في الاكسس)، وهنا حل لتداخل التواريخ http://allenbrowne.com/appevent.html ولكن لن نستطيع ان نساعدك اذا رفعت الراية البيضاء ، ولم ترد مواصلة الطريق!! جعفر

السلام عليكم اخوي خلف كان عندك خطأ في الاستعلام tblm1 والاستعلام tqwarr (مسافة زائدة ومسافة ناقصة وتغيير الاسم الى *) ، فقمت بتعديلهم وارفاقهم لك ، استوردهم الى برنامجك وشوف اذا بيغير النتيجة او لا !! واستعمال اكثر من احتمال في جملة iif يبطئ الاستعلام ، لأن الاستعلام يجب ان ينظر في جميع الاحتمالات ، وخصوصا جميع احتمالاتك Dcount !! فالافضل ان تكتب وحدة نمطية ، وتستخدم فيها if او Seclect case ، وتضع جمل Dcount فيها ، فسيكون الكود اسرع ، لأنك ستستخد جلة واحدة منهم فقط . كما اعتقد بأن سؤالك غير واضح ، فاذا ممكن ترفق مثال يكون اسهل لفهمنا طبعا هذه مجرد ملاحظاتي ، وفي انتظار روائع الزعيم شيفان جعفر 972.accdb.zip

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

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

وعليكم السلام هذه الرسالة بسبب اعدادات الكمبيوتر ، فيجب استعمال اسم احد الدول العربية في الرقم 4 ، لإستعمالها خطوط Unicode . جعفر

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

السلام عليكم اذا اردناه بالكود اي بدون عمل مفتاح اساسي كيف يكون ؟؟ مع جزيل الشكر تفضل . جعفر

وعليكم السلام حياك الله جعفر

آسف ، ما كان واضح طريقة حذفك للسجل فيصبح كودك كالتالي: Private Sub Command12_Click() On Error GoTo Err_Command12_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Me.ImageFrame.Visible = false Me.ImageFrame.Picture = "" Exit_Command12_Click: Exit Sub Err_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End Sub جعفر

حقل الرقم = يقبل ارقام فقط ، حقل النص = يقبل ارقام ، ونص ، وتاريخ ، ورموز ، وعادة ننادي الوحدة النمطية هكذا : . واما اذا كنت تريد النتيجة في الحقل مباشرة ، فضع هذا على مصدر بيانات الحقل: مناداة الوحدة النمطية بدون ارسال اي متغير = Module_Name() ارسال متغير رقم ثابت = Module_Name(1234) ارسال متغير قيمة ثابته = Module_Name('jj') ارسال متغير بإسم الحقل = Module_Name([اسم الحقل الذي تريد ترسل قيمته]) . جعفر

1. اعمل قاعدة بيانات جديدة وقم باستيراد جميع الكائنات من القاعدة القديمة ، 2. اذا كانت عندك صور في البرنامج ، فإجعلها مربوطة ولا تجعلها مضمنه ، 2. اعمل هذه الخطوات: . جعفر

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

الله يطول عمرك ، ما قلت لك هذه الطريقة !! انت بهذه الطريقة عملت حدث خاص للذي انا اخبرتك ، بينما انا اخبرتك ان تضع الكود في نهاية كود الحذف (واللي ما اشوفه هنا) . جعفر

وعليكم السلام اخي واهلا وسهلا بك في المنتدى اذا كنت تستعمل الاكسس 2007 فما فوق ، فتستطيع ان تجرب: اعمل الحقل في الجدول بنوع مذكرة ، وفي اعدادات الحقل ، اختر تنسيق : Rich Text ، واعمل نفس الشيء في الحقل في التقرير ، ثم جرب ما قمت به. جعفر

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

وعليكم السلام 1. اعمل القطعة السوداء ، واجعل الدائرة فيها شفافه (يمكن تستفيد من شرحي في كيفية عمل الصور شفافة في الاكسس) . 2. خلي صورة الموظف بالطريقة العادية ، وخلي صورة القطعة السوداء عليها ، بحيث صورة الموظف تظهر فقط من الدائرة الشفافة. جعفر

كما انه لا يوجد لديك كود لإصطياد الخطأ ، فكودك مفروض يكون شيء من هذا القبيل: Private Sub Form_Current() On Error GoTo err_Form_Current dim lntWhereAmI as integer lntWhereAmI=1 Me![ImageFrame1].Picture = Me![ImagePath1] lntWhereAmI=2 Me![ImageFrame2].Picture = Me![ImagePath2] Exit Sub err_Form_Current: If Err.Number = 2220 Or Err.Number = 13 Then if lntWhereAmI=1 then Me.ImageFrame1.Picture = "" elseif lntWhereAmI=2 then Me.ImageFrame2.Picture = "" end if Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

تستطيع ان تضع هذ الاسطر في نهاية كود حدث "الحذف" Me.ImageFrame.Visible = False Me.ImageFrame.Picture = "" جعفر

اخي محمد لم تخبرنا برقم الخطأ !! على العموم جرب هذا التغيير ، وما قدرت اكتب اسم الحقل بالعربي ، لأنه قلب السطر والكود اصبح ما ينقرأ !! aaa= عنوان الصورة بدل if isnull(me.[aaa]) then جرب if len(me.[aaa] & "")=0 then جعفر