ابوخليل

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

عندي رأي بهذا التعديل فإن وافق طلب السائل وحاجته قضي الأمر والا القول ماقال استاذنا نسأل الله التوفيق db5UP.rar

اولا : نحمد الله على سلامتك وثانيا : لا يلام صاحب الحاجة على الالحاح ’،كما ان الشكر لمن بادر بالمواساة وثالثا : ما هذا الجمال والروعة . زادك الله علما ، ونفع بك .

مشكور اخونا الشهابي على المحرر وعلى هذا الشرح الوافي وجزاك الله خيرا

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

أخي الكريم : هذا الحل قد اعطاك اياه أخونا ابو ياسر في الرابط التالي 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

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