ناقل

طيب أخي الكريم ::::: ملاحظه هامة :::: يجب تذكير العميل قبل البدء بالتحديث باخذ اكثر من نسخة لبرنامجه ..... وممكن زيادة في الحرص برنامج التحديث نجعله يقوم بذلك ايضا للاحتياط اولا : نفترض ان العميل لديه قاعدة بيانات فيه نموذج frm_1 بدون حقل رقم هاتف ويريد اضافة رقم هاتف في برنامجة للعملاء واظهارة في النموذج المذكور علما أن برنامج العميل لدية جدول وليس فيه حقل للهاتف .... ثانيا : نحن ( المبرمج ) يريد تعديل النموذج frm_1 وأيضا اضافة حقل TEL في الجدول لدية ( شرط عدم تأثر البيانات لديه ) ثالثا : قام المبرمج ( نحن ) ببرمجة برنامج صغير لهذا الغرض وارساله للعميل عن طريق البريد او اي طريقة اخرى رابعا : شغل العميل البرنامج بعد وضعه في مجلد البرنامج لديه حيث قام البرنامج تلقائيا بالعمل قبل تجريب البرنامج افتح برنامج العميل المسمى nnn ولاحظ النموذج جيدا وافتح الجدول لترى عدم وجود الحقل ...... ثم اغلق البرنامج وشغل البرنامج Update >>>> افتح برنامج العميل وتأكد من التعديلات ....... ( هذا شرح ومثال مبسط للطريق ) ....... ناقل.rar

طيب شوف المرفق .... مرفق.accdb

تفضل :::: انت ليش عامل استعلامين :::: المشكلة عندك مافي علاقه بين الاستعلامين الموجودين في النموذج عملت لك استعلام واحد يعتمد عليه النموذج ... مرفق.accdb

تفضل ..... Expr1: [name] & " " & [date] & " " & [salary]

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

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

احسن الله اليك ... ممكن لاحظ .... تاريخ .accdb

واياك ... لكن هل هو المطلوب

هههههه .... لان بعض كتاب المواضيع يظن ان الكل يعرف عن برنامجه .... فيضع السؤال ظانا ان الجميع يعرف كيف يعمل البرنامج او حتى تشعبات البرنامج فالمفروض اعطي شرح كامل لفكرة برنامجي ( وليس باقساط ميسرة ... ههههه ....) .... ثم اطرح السؤال ايضا بشكل واضح على العموم ... بارك الله فيك ...

جرب المرفق ... nnn.accdb

اجاباتك ... اقساط ؟؟؟؟

تمام هذه مفهومة ... ولكن ملالذي يحدث هل هو بيانات أم لون أم ماذا ؟

شغلت المرفق اكثر من مرة ولم افهم ما هو المطلوب ؟؟؟ هل المطلوب تغيير لون النموذج الثاني حسب اللون المختار في النموذج الاول ؟؟؟ وضح رجاءا اكثر .

تفضل .... تاريخ .accdb

جرب هذا الكود !!! Private Sub txtEmpNumber_AfterUpdate() Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "") Me.txtFullNameEN = DLookup("[FullNameEN]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "") Me.txtintUser!D = DLookup("[txtAutoIntPersonID]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "") End Sub

لم تجب هل جربت هذه الطريقة ؟؟؟؟؟؟؟؟

ممكن صورة للخطأ الذي يظهر تكرما ....

ما قلنا نزل القاعدة كاملة ,,,, الجزء الخاص بالسؤال .... على العموم ممكن تستخدم .... s2.Caption = DLookup("[edarah1]", "sch_start1")

ممكن ميال بسيط مرفق للتطبيق عليه

استخدم هذا الكود DoCmd.OpenReport "R_RemarksSub", acViewPreview, , "[date_in]=Date()" R_RemarksSub=اسم التقرير

هل ملف PDF متوفر منه ملف word اذا كان نعم فاستخدم دمج البيانات الى ال word ثم حول المدمج الى PDF

لم اشاهد النقص ؟؟؟

الدوران عن طريق الجدول او الاستعلام افضل من النموذج .... والله اعلم

ابحث عن هذا With imsg With imsg .to = StudentEmaile .from = DLookup("settingsUsername", "settings", "settingNO=1") .Subject = "ÔåÇÏÉ" .HTMLBody = Mymsg .AddAttachment (MyAttachment) Set .Configuration = iconf .Send End With واستبدله بهذا ..... With imsg .BodyPart.Charset = "UTF-8" .to = StudentEmaile .from = DLookup("settingsUsername", "settings", "settingNO=1") .Subject = "ÔåÇÏÉ" .HTMLBody = Mymsg .AddAttachment (MyAttachment) Set .Configuration = iconf .Send End With تم اضافة هذا السطر .BodyPart.Charset = "UTF-8"

ادخل على حسابك من خلال الرابط التالي وفعل التطبيقات الاقل امانا ويعمل معك https://www.google.com/settings/security/lesssecureapps