أمجد جمالي

صباح الخير تفضلي Me.AllowFilters = True Me.AllowEdits = True Me.AllowDeletions = True Me.AllowAdditions = True Me.DataEntry = True حيث ان True تعني Yes و False تعني No ابو نادر

أخ M.Hussein راجع هذا الرابط سوف تجد به مثال شبيه لحالتك ب 90% ومن خلال شرحك باين عليك انسان فهمان شغللك لذلك حمله وعدل عليه على كيفك من هنا تحياتي ابو نادر

Case close Done الحالة مغلقة تم

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

Dear Mr. Islammi I Received your mail but without attachment file becuse our mail program blocked unsafe attachment files so could you please resend it again to syrian_here@yahoo.com Thanxe Amjad N. Jamali عزيز السيد اسلامي استلمت رسالتك لكن بدون أي مرفقات والسبب في ذلك هو ان موقع بريدي يمنع أي ملفات غير مأمونة لذا أرجو أن ترسلها مرة أخرى الى عنواني الآخر syrian_here@yahoo.com شكرا أمجد الجمالي

الأخ سهل للرفع

السلام عليكم من الواضح انك تأكل الأحرف أكل حمل ملفاتك الى اي موقع يقدم خدمة الأستضافة المجاني وهي عديدة مثل الياهو وجيران ثم قم بوضع اللينك في المنتدى طيب سؤال اش كنت تقصد ب ارعف :h :h

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

بناً على نداء الإستغاثة من الأخت Rawya قمت بتحميل ملف ولم أجرب طريقتك لكن بما أنه النتيجة وحده فليش لاء اصبح الأن عنا طريقتين :pp: (y) شكراً

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

اهلاً وسهلا وتعي لعنا كل يوم

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

شكراً لك يا اخ HUSSIN على هذا المواضيع المتميزة التي تقدمها

اهلا وسهلا فيكي واشكرينا لما نقدم خدمة محرزة

بالنسبة لرسالة الخطأ لاتي ارفقتها الاخت calmgirl تم حلها وللاطلاع على الحل مراجعة هذا الرابط تحياتي لكم

ضعي هذا الكود في وحدة نمطية جديدة Public Function IsOpen(ByVal strFormName As String) As Boolean ' Returns True if the specified form is open in Form view. Const conDesignView = 0 Const conObjStateClosed = 0 IsOpen = False If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> _ conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsOpen = True End If End If End Function ومن ثم عدلي الكود الذن عندك الى DoCmd.GoToRecord , , acNewRec If IsOpen("frmCustomers") Then CustomerID = Forms![frmCustomers]![CustomerID] End If

طيب الأن وضحت افتحي هذا النموذج frmCustomers ومن ثم افتحي النموذج الثاني الذي يوجد الكود وجربي

تفضلي Decimalplaces.zip

اخي الكريم انا ايضاً أؤيد كلامك لكن بالنسبة ل أوفيس 2003 انا من أشد المعجبين بهذا الإصدار ياريت تذكر ماهيه هذه الرسالة او الرسائل الخطأ التي ظهرت لك تحياتي

طيب ماهي الطريقة التي تستدعي بها هذه البيانات هلي عن طريق ال Dao او Ado او الطريقة الإعتيادية وهي بربط الفورم مع ال Tables

اخي الكريم الباشق1 بالنسبة لموضوع ارفاق مثل عربي تقدر تضيفه في أي مكان تريد سواء في توقيعك او في مشاركتك :d :h لكن موضوع ارفاق أمثلة أو برامج يعني بتحميلها الى المنتدى فلدى إدارة المنتدى تحفظ لهذه الموضوع للمزيد من المعلومات راجع هذا الرابط قواعد المشاركة في المنتدى تحياتي لك

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

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

من بعد إذن الأخ rudwan أفهم من كلامك أنها مخزنة في ال Tables بهذا الشكل 212.2 وعند أستدعائها في الفورم تظهر بهذا الشكل 212 شكراً

من بعد اذن الاخ hyz الخطأ هون CustomerID = Forms![frmCustomers]![CustomerID] في هذا الكود تقومين بإسناد قيمة CustomerID من النموذ ج الحالي بنفس قيمة CustomerID لنموذج يدعى frmCustomers وهذا النموذج مو موجود عندك في قاعدة البيانات او Spelling غير صحيح تحياتي