figo82eg

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

Private Sub kindEsal_AfterUpdate() 'kindEsal - نوع الاصال If kindEsal = "دفع نقدى" Then With Forms!البيانات الرئيسيه! If Len(.ZDate & "") = 0 Then .krd = 0 .numKrd = 0 .kst = 0 End If End With End If End Sub هو المطلوب أخى الكريم أحمد وتم تنفيذه على قاعدة البيانات لدى بالفعل ولكن واجهتنى مشكلة هى أن إسم النموذج الأساسى باللغة العربية فلا يستطيع الكود التنفيذ لوجود فاصل فى إسم النموذج فهل يوجد حل دون تغيير إسم النموذج

ارجو المساعدة أخوتى الكرام حيث لدى نموذج به بيانات معينة أريد تعديل خانة بالنموذج بناء على شرط معين بناء على قيمة خانة أخرى ومرفق مثال لما اريد New Microsoft Office Access Application.rar

للرفع

هل يوجد افكار كبداية من خبرائنا الكرام

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

ارجو المساعدة حيث قمت فى مثال سابق ساعدنى فى الحل الأخ محمد ابو عبدالله بهذا الكود العظيم وهذا فى حالة اضافة ايام وسنوات على تاريخ معين. Private Sub start_date_Exit(Cancel As Integer) Dim i As Date Dim j As Date i = DateAdd("YYYY", 7, [start_date]) j = DateAdd("d", 1, i) end_date = j End sub ما اريده هو الأن هو العكس اريد ان احذف ايام وسنوات من تاريخ معين

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

New Microsoft Office Access Application.rar ارجو المساعدة حيث اريد عند كتابة تاريخ إصدار بطاقة الرقم القومى يتم كتابة تاريخ الإنتهاء تلقائى وهو إضافة 7 سنوات + 1 يوم على تاريخ الإصدار ومرفق مثال لما اريد

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

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

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

ارجو المساعده عند تحدد نوع العميل منزلى يتم إستخدام جدول الأقساط البنكية الخاصه بالعملاء المزلى وعند اختيار نوع العميل تجارى يتم إختيار جدول الأقساط البنكية الخاصة بالعملاء التجارى لأن فوائد النشاط تختلف ومرفق مثال لما اريد Root650.rar

بارك الله فيك أستاذى الكريم هو المطلوب فعلاَ

مرفق مثال يوضح ما اريده Desktop.rar

ارجو المساعدة فى هذه الفكرة حيث لدى قاعدة بيانات اكسس بها خانة قيمة القرض و عدد الاقساط وقيمة القسط. ولدى جدول اكسل به مبالغ القروض من مبلغ ١٠٠ جنيه وحتى ١٠٠٠٠ جنيه مقسم سنوات ١٢ شهر ، ٢٤ شهر حتى ٨٤ شهر كل شهر قيمة القسط. ما اريده هو عند ادخال قيمة القرض وعدد الاقساط يتم كتابة القسط تلقائى بنموذج الاكسس وفق للجدول المرفق. مع العلم ان الجدول محفوظ على شكل ملف اكسل يتم تغييره كل فترة .

بارك الله فيك أستاذى العزيز وهو المطلوب

اشكرك استاذى على اهتمامك استخدمت تعديل حضرتك ولكن ظهر مشكلة بعد إستخدام الكود وهى ان جميع السجلات تأخذ مسار اول صورة وتكون ثابتة في جميع السجلات ومرفق مثال لما اريد New Microsoft Office Access Application.rar

ارجو المساعدة في التعديل على هذا الكود حيث أنه موضوع في تقرير لدى وفى حالة الطباعة والصورة غير محفوظة لا استطيع الطباعة وينتج عنه رسالة خطأ ما اريده هو عند الطباعة وفى حالة عدم وجود صورة يتم الطباعة بصورة عاديه بدون صوره. Me!.Picture = DLookup("figura", "BASIC_DATE")

شكرا على الرد والاهتمام

ارجو من الأخوة الأعضاء المساعدة فى التعديل على هذا الكود الذى وظيفته نقل ملفات pdf من مجلد الى أخر حيث يقوم بعملية النقل مع حذف الملف القديم اذا وجد تشابه . ما اريده هو نقل الملف داخل نفس المجلد الجديد اذا وجد ملف له نفس الإسم بمعنى انه يوجد ملفين القديم والجديد وهذا هو الكود الذى أستعمله : Private Sub Command0_Click() On Error Resume Next Dim rs As DAO.Recordset Dim fso ("Set fso = VBA.CreateObject("Scripting.FileSystemObject ("Set rs = CurrentDb.OpenRecordset("SELECT crn FROM BASIC_DATE If Not (rs.EOF And rs.BOF) Then rs.MoveFirst Do Until rs.EOF = True "sSourceFile = Application.CurrentProject.Path & "\CONTACT\" & rs!crn & ".pdf "\sDestinationFile = Application.CurrentProject.Path & "\CONTACT\old fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile rs.MoveNext Loop Else "MsgBox "no number End If "MsgBox "ok rs.Close Set rs = Nothing End Sub

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

ممكن الملف بصيغة ٢٠٠٣

ممكن الملف بصيغة ٢٠٠٣

ممكن الملف بصيغة ٢٠٠٣