رمهان

تمام لو نظرت اخ على لحقل AqarID في جدول الشقق لوجدته مفتاح اساسي والمفروض يكون يقبل التكرار اي لايكون مفتاح اساسي كما انه يوجد حقل AmaerID في جدول الشقق وليس مضمن في النموذج الفرعي فلا اعلم سبب وجوده ؟ هل كنت تقصد بان يكون هو حقل الربط ؟ اللان ماهو حقل الربط لديك في الفرعي هل تريده AqarID ام AmaerID ؟

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

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

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

جرب Private Sub new_d_Click() Me.ss.SetFocus DoCmd.RunCommand acCmdRecordsGoToNew End Sub تحياتي

تمام استاذ صالح وماذا عن عرض النموذج في وضع التصميم ؟ متى احتاج مثل هذا ؟ اي بقاء النموذج مفتوح حتى في حالة عرض الاخر في التصميم ! تحياتي

ممكن نعرف هدف البرنامج او الاستعلام ؟ او فكرة البرنامج ؟!! تحياتي

اعزائي اعتقد ان المحتوى الآن لا يناسب عنوان الموضوع العنوان هو تعديل وقت الويندوز من خلال الكود . وبالتحديد للوقت المحلي. تحياتي

الحمد لله اولا واخيرا

اختر نوع الحقل محسوب لتاريخ العودة وضع به التعبير التالي [Leave_Date]+[DURE] بالتوفيق

مالهدف استاذ صالح ؟ الفائدة ؟ اريد ان اتعلم من افكارك

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

تفضل اخي عبدالله For i = 1 To 3 Set rel = CurrentDb.CreateRelation("rel" & i, "TblAccount", "TblTranDel") rel.Attributes = dbRelationUpdateCascade Set fld = rel.CreateField("AccCode") fld.ForeignName = Choose(i, "DelAccComm", "DelCashComm", "DelCashTranfer") rel.Fields.Append fld CurrentDb.Relations.Append rel Next تحياتي

اخي الكريم تمام يبدو انك فهمت المقصود : اخرجهم بال docmd.output ثم ارفقهم بكود ارسال الايميل والمنتدى مليئ بكيفية ارسال ايميل من خلال الاكسس ارفق مثال به التقرير للتطبيق باذن الله بالتوفيق

تمام اخ عبدالله انا لست محاسب ولكن تحليل النظم علمنا قليلا منها الان يبدو ان هناك حاجة للتحليل محاسبيا ويتوجب توسعة صدرك قليلا حتى نصل للمراد هنا اقتراحين : 1. امشي انا واياك في كيفية عمل القيد المركب بالاكسس وخصوصا لوكان اكثر من دائن ومدين في نفس الحركة او العملية . 2. اعمل لك المطلوب كما طلبت وبالكود وهنا : - انك اخي عبدالله مازلت تسال عن صحة العلاقة وانت قد قمت بها يدوي فهنا افهم اننا بحاجة الى التناقش حتى نصل للتصمبم الجيد لطلبك - بما انك عملتها يدويا فمالحاجة لعملها بالكود بالتحديد تحياتي

اعتذر على التاخر اخي وعزيزي الاستاذ صالح بهذا نعم تم التغلب تماما تقبل تحياتي

اكيد اخ وائل فيه افكار وحلول وكان لي مناقشة سابقة معك حول اختصار شغلك ولكنك ابيت الا بطريقتك ! الان يجب عليك اعادة التسمية للصور بهذا الشكل img1001 , img1002 وهكذا وهذا ماكنت اقصده في المشاركة السابقة ثم اعمل اخفاء لجميع ازرار الامر والصور ( يمكنك فتح form1 في التصميم ثم تحديد الكل ثم خاصية مرئي= لا ) ثم استبدل الكود للنموذج عند التحميل بهذا : Private Sub Form_Load() Set rs = CurrentDb.OpenRecordset("select itemcode,itemdes from tmenu where menucode='1'"): rs.MoveLast: rs.MoveFirst For x = 0 To rs.RecordCount - 1 Me.Controls("cmd" & rs(0)).Caption = rs(1) Me.Controls("cmd" & rs(0)).Visible = True Me.Controls("img" & rs(0)).Visible = True rs.MoveNext Next End Sub بالتوفيق

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

اعتقد تقصد اخفاء الازرار وكذلك الصور ! لان الصور هي الظاهرة ! وحيث ان بفكرتك لا يوجد ربط بين زر الامر والصورة التي خلف : تتكرم باعادة تتسمية الصور هكذا img001 img002 اي نفس قاعدة تسمية ازرار الامر وكذلك نافذة المشروبات تاخذ نفس النمط ثم تعيد رفع الملف مرة اخرى طبعا بها كود مشاركتي السابقة ! هذه الفكرة تقيدت بها حسب تصميمك فانا لا اريد ان يتغير برنامجك كثيرا فبهذه الفكرة نمشي على نفس فكرتك بالتوفيق

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

جرب Private Sub priceDn_AfterUpdate() priceDr = priceDn * Parent!exch End Sub Private Sub priceDr_AfterUpdate() priceDn = priceDr / Parent!exch End Sub

من خلال التنسيق الشرطي تختار القاعدة expresison is وتضع التعبير التالي [Text1] Like 'positive' & "*" بالتوفيق

المرفق ياباشا ؟

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

ماهي معادلة التحويل وطبعا مش ثابتة ام تريد الامر ثابت وتكون النتيجة تقريبية