ابوخليل

جزاك الله خير اخوي موسى صاحب الموضوع يتحدث عن هذا . وتصور اخونا قاسم بان يطلب ان يرسل العميل له قاعدة الجداول فيعمل عليها التحديثات .. هي آمن الطرق ولكن نبحث مع الأمان ان تكون المسألة عملية سهلة وسلسة ويقوم العميل بها بنفسه . وهذا ما اشرت اليه في مشاركتي السابقة .. من خلال استيراد البيانات من القديم بالنسبة لموقع الجداول والربط الآلي .. فلسنا بحاجة الى اكواد للربط .. فموقع البرنامج مفروض وموجه سلفا ... من خلال التنصيب ... ومع ذلك وجود الكود وظهور مربع حوار يطالب بربط الجداول شيء اساسي في كل برنامج . التجارب تفتق الذهن لعمل ضبط متكامل مع ان اكثر ما اعمله باستمرار هو تحديث الواجهات ، فاني ارسل الواجهة الجديدة للعميل بملف تنفيذي ، وعلى العميل تشغيله فقط ومن خلالها تتم عملية الاستبدال . برامجي اقوم بتنصيبها اما في مجلد C:\Program Files او على محور C:\ مباشرة واستثني قاعدة الجداول من الازالة فيما لو تم الغاء التنصيب بمعنى لو قمت بالغاء التنصيب فسوف يتم حذف جميع ما بداخل مجلد البرنامج ما عدا قاعدة الجداول

نعم كل ما ذكرت صحيح .. والاصل ان قاعدة البيانات الخلفية غير قابلة للتحديث ابدا المبرمج صاحب الخبرة مع العملاء .. يحتاط بوضع حقل او حقلين زائدين في الجداول الاساسية المتغيرة .. ( وهذا ينبع من الخبرة باحتمالية الحاجة اليها ) اذا التحديثات في القاعدة الخلفية كبير فهذا يسمى تطوير وليس تحديث . ويعالج بعمليات خاصة مثل تصدير البيانات المهمة التاريخية وغالبا لا تزيد عن 3 الى 4 جداول ثم تركيب البرنامج الجديد المطور ثم اعادة استيراد البيانات . من تجربتي : لدي برنامج يعمل لدى العملاء من سنين ... اجريت عليه الكثير من التحديث في البداية ، ثم بعد سنوات قمت بتطويره وذلك بدمج برنامجين آخرين معه ... البرنامج خاص بحضور الطلاب ثم دمجت معه برنامجا خاصا بالوكيل لرصد والتعامل مع مخالفات الطلاب وبرنامجا ثالثا تحفيزيا لجمع النقاط وحصد الجوائز والشراء . عندما تطلب المدرسة البرنامج الجديد المطور ... يتم تنصيبه على الجهاز بمسى آخر بحيث تبقى قاعدة بيانات الجداول القديمة على الجهاز ومن البرنامج الجديد يتم استيراد البيانات حسب الرغبة على النحو التالي : 1-اسماء الطلاب وبياناتهم من جدول الاسماء ( الكل او الحالية ) 2- بيانات الحضور والانصراف التاريخية 3- بيانات رسائل ( sms ) الغياب ورسائل المخالفات الى اولياء الامور 4- بصمات الطلاب عادة يكتفون بجلب اسماء الطلاب وبياناتهم الحالية ( الموجودون فعلا ) وبصماتهم . لأن بيانات الاعوام السابقة محفوظة ببرنامج الوزارة الرسمي هذا الاجراء يجب على المبرمج اخذه بالاعتبار مهما كان نوع النشاط ( اجتماعي او مالي ... الخ)

عدم الحفظ ايسر طريقة هو ان تجعل حقلا من حقول مصدر البيانات (الذي هو الجدول ) في خصائص الحقل : مطلوب= نعم ، ويتم تعبئته عند نقر زر الحفظ الثاني وهو معرفة ما يجري من تغيير .. فهي مسألة ذات شقين : 1- معرفة آخر تغيير فقط : فانت بحاجة لثلاثة اعمدة او اربعة : 1- النص الاصلي 2- النص بعد التغيير 3- تاريخ ووقت التغيير 4- معرف المستخدم الذي اجرى التغيير 2- معرفة جميع التغييرات التي تطرأ على الحقل : فانت بحاجة الى جدول فرعي يرتبط بمعرف السجل يوجد به الحقول الاربعة السابقة آمل اني اكون افدتك

هي اجابة واحدة فقط تم

انا لاحظت انك غيرت اسم الحقل في الجدول كان اسمه ID الى userid وهو موجود في جميع الاكواد الاخرى باسم ID فقمت بتعديله الى ID تفضل Private Sub ID_AfterUpdate() On Error Resume Next Dim db As DAO.Database Dim rst As DAO.Recordset Dim i As Long i = Me.ID Set db = CurrentDb Set rst = db.OpenRecordset("SELECT * FROM tbltest WHERE tbltest.ID = " & i) With rst If !ID = i Then Me.sname = ![sname] Me.sage = ![sage] .Close Else Exit Sub End If End With Me.Refresh Set rst = Nothing db.Close Set db = Nothing End Sub اذا الاسم userid يهمك يمكنك التصحيح في الجدول وتعديله في الكود userid2.accdb

الحمد لله

هههههههه حتى month محجوز في اكسس يرمز الى الشهر forms!form1!subform1.SetFocus DoCmd.GoToRecord , , acNewRec txt_month.SetFocus

forms!form1!subform1![name].SetFocus ملحوظة : كلمة name محجوزة في اكسس فحاول تعديلها اذا لم يعمل انظر الى اسم عنصر تحكم النموذج الفرعي هل هو = subform1

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

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

يقصد بالعينة رفع احد ملفات وورد هنا ... حتى لو البيانات وهمية المهم يطلع على رقم الهاتف وصيغته

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

لا يوجد ترقيم للقسط في الجدول .. العمود خالي .. هذا اولا ثانيا لا حظت انك تسمية حقل الاسم بــــ name وهذه الكلمة محجوزة في اكسس فيجب ان تضيف للكلمة حرف او رقم مثلا name1 او vname ... وهكذا

عليكم السلام نعم .. القديم يعمل على الجديد .. فقط المشكلة في النظام يجب مراعاة النواتين 32 و 64 عند كتابة الأكواد

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

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

بما ان العنوان حضور وانصراف استمع نصيحتي المختصرة اقدمها لك على طبق من ذهب آتمنى ان يستفيد منه كل من يمر من هنا ربما لن تطبقها الآن ولكن احتفظ بها عندما تريد عمل برنامج جديد للحضور والانصراف هذا التوجيه طبقا للبرامج العالمية : ويمكن التوسع فيه بحدود ضيقة 1- عمود واحد للحضور والانصراف ( تاريخ كامل ) يقابله الدالة : NOW 2- عمود لرقم الفترة ( رقمي ) 3- عمود لنوع التوقيع ( حضور / انصراف ) رقمي يتم التطبيق عبر البصمة او قارىء الباركود بالنسبة لبطاقة الباركود فيمكن ان يميز البرنامج بين الفترات من خلال البطاقة الممررة ، التوسع هو ان يكون عمود للحضور وآخر للانصراف من اجل تسهيل التعامل مع الاستعلام ، وهنا يتم الاستغناء عن عمود نوع التوقيع .

تمام استاذ قاسم يسمونه اهلاك الأصول وهو عملية عكسية للفوائد التراكمية الاول على قيمة الاصول الثابتة والثاني على الاموال المتبقية في الذمة وسبق ان عملت هنا موضوعا حول اهلاك الاصول

تفضل ملاحظات : حاول تقلل من الأكواد والاحداث قدر المستطاع اتعب قليلا على التسميات ... مثلا sum1 ، sum2 ... الخ لاحظ عند التعامل معه داخل الكود اضطررنا الى وضع علامتي تنصيص على sum لكي يعتبرها اكسس كلمة نصية وليست الدالة التي يعرفها ايضا ينطبق هذا على حقل (S) فهذا الحرف يرمز الى الدقائق عند اكسس ... حتى حقل AAAA ليس له معنى المهم ان المبرمج يتعب لينتقي تسمية مختصرة قصيرة يفهم منها وظيفة الحقل Private Sub GenerateDate() Dim x, xx As Integer Dim n As Integer Dim sName As String Dim vsr As Double Dim rs As Recordset Call Reset Set rs = CurrentDb.OpenRecordset("AAA") rs.MoveFirst Do While Not rs.EOF x = rs!id Me("DDDD" & x).Caption = rs!NM Me("D" & x).Caption = rs!id Me("S" & x) = rs!sr Me("Sum" & x) = DSum("Day" & x, "table_BAIN") rs.MoveNext Loop For x = 1 To 50 If Me("D" & x).Caption = "" Then Me("s" & x).Width = 0 Me("DDDD" & x).Width = 0 Me("D" & x).Width = 0 Me("day" & x).Width = 0 Me("SUM" & x).Width = 0 End If Next Me.Requery For xx = 1 To 50 If Me("s" & xx) = Me("Sum" & xx) Then Me("Day" & xx).ForeColor = RGB(255, 255, 255) Me("Sum" & xx).ForeColor = RGB(255, 255, 255) Me("s" & xx).ForeColor = RGB(255, 255, 255) Me("s" & xx).BackColor = RGB(255, 64, 61) Me("Day" & xx).BackColor = RGB(255, 64, 61) Me("Sum" & xx).BackColor = RGB(255, 64, 61) End If Next Reset Set rs = Nothing End Sub AA2.rar

شكرا اخي على الايضاح وانا لن اقلب الموضوع الى منتدى فقهي ولكن من اجل نصل معك لما يناسب نشاطك صاحب العقار هو حر بما يملك وحر في طرح ما يرى من خيارات وتنحصر على النحو التالي : 1- ايجار سنوي ثابت .. سواء كانت المدة سنة او اكثر 2- ايجار سنوي يتزايد كل سنة ( بنسبة محددة يتفق عليها الطرفان ) اذا مدة الايجار سنة واحدة فقط في العقد .. هنا يكون المستأجر بالخيار اما دفع الزيادة والاستمرار .. او الخروج 3- ايجار لعدة سنوات في العقد .. هنا يجب ان تحدد القيمة الكلية ويتم تقسيمها على مبالغ متساوية تدفع على فترات يتفق عليها . نرجع لمشروعك : ارى ان البند1 والبند2 لا تتوافق مع ما تم تصميمة في المرفق الذي رفعته ‘ وتتفق فقط مع البند3 زبدة الموضوع : اشرح طبيعة عملك على الارض .. اقصد العمل الورقي او كنت تستخدم وورد او اكسل بالتفصيل .. والنتائج المطلوبة أي (المدخلات/ المخرجات) وستجد ان شاء الله من يساعدك بافضل مما كنت تأمل

اعتذر عن الفهم الخاطىء مثال على العبارات التي توحي باكثر من معنى

عليكم السلام الاخ الكريم ، بما انك بدأتنا بالسلام فانت مسلم هل سمعت بشيء يسمى الربا ان ما تحاول القيام به الآن هو اعانة على الظلم .. فهو الربا الصريح بعينه اعتقد انه لم يخطر ببالك هذا . وفقنا الله واياك لكل خير ورزقنا واياك المال الحلال

تمام استاذ محمد او هكذا DoCmd.RunSQL "ALTER TABLE yourtable ADD CONSTRAINT yourtable Primary Key(fld1, fld2)" لمنع التكرار على مستوى حقلين ولن يتم صنع المفتاحين الا اذا تحقق الشرط باحد امرين : اما ان يكون الجدول جديد او تكون البيانات محققة للشرط بحيث لا يوجد تكرار

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

تفضل If MsgBox("هل انت متأكد ؟ تريد حذف درجة المادة لجميع الطلاب ؟", _ vbQuestion + vbYesNo, _ "تحذير") = vbNo Then Exit Sub End If Dim i As Integer Dim rs As Recordset Dim x As String Set rs = Me.RecordsetClone rs.MoveLast rs.MoveFirst x = txt_nshat For i = 1 To rs.RecordCount rs.Edit rs.Fields(x) = Null rs.Update rs.MoveNext Next رصد الانشطة5.rar