ابوخليل

وعندي كذلك لا يوجد خطأ

أخي الكريم : هذا الحل قد اعطاك اياه أخونا ابو ياسر في الرابط التالي http://www.officena.net/ib/index.php?showtopic=38479&view=findpost&p=209664 ولكن لا ادري لم بخسته حقه

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

هذا الكود لم اكتبه انا بل كتبه أكسس عن طريق المعالج اضفت زر فقام اكسس بباقي العملية وهو أمرلفتح الاستعلام فقط وليس له علاقة بالشرط او التصفية آمل ان اكون اوضحت لك .

بعد اذن اخي kemas احرص اخي على كتابة الكائنات والعناصر بحروف انجليزية ، وابتعد عن وضع المسافات الفارغة بين الكامات اليك مثالك معدلا الغاء msgboxUP.rar

آآآمين

بالطبع هو الكود نفسه وقد قمت بتجربته قبل ان اجيبك وهذا مثال شغال % open.rar

ابو البراء ألف مبروك ... جعله الله مباركا اين ما كان

جميل ،،، وباعتبار ان الحذف سيتم من زر خاص بالحذف وباعتبار خانة الخيار لا تظهر للمستخدم هذا تعديل على الكود أيضا : Private Sub comand1_Click() answer = MsgBox("حقا تريد حذف الموظف ?", vbYesNo) If answer = vbYes Then Me.Check1 = True date_workEnd = Date Me.Requery Else Me.Check1 = False date_workEnd = "" End If End Sub

نحمد الله على سلامتك ... جعلها الله سلامة دائمة ثم أحمده على التوفيق .

عن طريق النسخ واللصق انشأت قاعدة جديدة انظر المرفق : هذه احدى الحلول aad.rar

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

اخوتي الأكارم ما عنيته هو في المثال المصاحب واعتقد انه هو ما يعنيه الاستاذ نارت ، حيث يريد ان يبدو العمل الظاهر كحذف حقيقي ، ويكون التحكم في خانة الخيار عن طريق الكود ولا اعلم هل انا على صواب في اعتقادي هذا ام لا 2ادارة المقرات.rar

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

استخدم NZ هكذا : nz([txt1])+nz([txt2]) حيث ان هذه الدالة تعيد القيمة الخالية الى صفر

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

اخي خالد حفظك الله ورعاك الأمر اليك وأنت صاحبه اما ما ذكر الاخ ابو ياسر فلا يحتاج الى تفسير حيث يوضع في حدث زر للرجوع الى النموذج المفتوح وتأكد انه هو الجواب الذي عندي وهو ما سأضعه في المثال لو ارفقته ولو كان عندي غيره لعقبت على جواب ابي ياسر

ارفق مثالك وليكن على الامتداد mdb

اخي ابو بنسيانا جميل ما فعلت دائما نجيب السائل على قدر سؤاله ففي مثال الاخ يتبادر الى الذهن انه مقتطع من برنامج مكتمل ( البيانات الكثيرة الموجودة تدل على ذلك ) لذا استفسرت عن معرف المستأجر ولم اتطرق الى العلاقات واكتفيت بايضاح طريقة التصفية من مربع التحرير عبر الاستعلام جزاك الله خيرا وجعل التوفيق دربك

يتم اغلاق القاعدة A مباشرة بمجرد فتح B فيصبح الكود هكذا Dim strAccessExe As String, strDB As String Static acc As Access.Application Dim db As DAO.Database Dim strDbName As String strDbName = CurrentProject.Path & "\Forms.mdb" Set acc = New Access.Application acc.Visible = True Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123") acc.OpenCurrentDatabase strDbName acc.RunCommand acCmdAppMinimize db.Close Set db = Nothing DoCmd.Quit

الأمر ظاهر وواضح يا إخواني غفر الله لكم أخونا أحمد شوقي في رحمة الله ، فادعوا له .. فادعوا له .. وتصدقوا عنه هذا أقل حق نجزيه به .

السلام عليكم انظر وجرب مربع التحرير الخاص برقم الشقة . لا اعلم لماذا وضعت رقم السند مع رقم الشقة في مربع التحرير ايضا المستأجر اذا كان له سجل خاص ببياناته فيلزم ان يكون له رقم معرف ashra2.rar

جزاك الله خيرا يا بو احمد ارسلت المرفق اليهم ... وبانتظار ملاحظاتهم ان كان هناك شيء وفقك الله لكل خير .

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