zahrah

اخي الفاضل : الزير وعليكم السلام ورحمة الله وبركاته تفضل ملفك بعد التعديل za-AL-ZAIR.rar بالتوفيق

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

بارك الله بك اخي الكريم : جعفر على المشاركة اعتقد ان الكود الصحيح هو ان يوضع في حدث بعد تحديث حقل ID_No بهذه الطريقة Private Sub ID_No_AfterUpdate() Me.ID_No = Replace([ID_No], "ا", "أ") Me.ID_No = Replace([ID_No], "إ", "أ") Me.ID_No = Replace([ID_No], "آ", "أ…

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

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

اخي الفاضل : M.saleh السلام عليكم ورحمة الله وبركاته ولماذا يتم النقل من منتدى آخر وأساس الموضوع هنا من قبل الأستاذ كمال النحال منذ عام 2010 على هذا الرابط /index.php/topic/213297-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%A7%D9%84%D8%B1%D9%88%D8%A7%D8%AA%D8%A8-…

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

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

تفضل اخي الكريم الكود كامل If Left(CurrentProject.Name, Len(CurrentProject.Name) - 4) = "النقل المدرسي" Then Dim strPath As String Dim fs, OldFile, DBwithEXT, DBwithoutEXT, NewFile OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT…

اخي الفاضل ضع هذا الكود في النهاية للكود الخاص بك MsgBox "تم نسخ قاعدة البيانات" Else MsgBox "عذرا اخي الكريم .... اسم قاعدة البيانات مختلف" DoCmd.CancelEvent End if

نعم اخي الكريم : فتى عمان يمكن عمل ذلك بكل بساطة وسهوله za-SplitName.rar بالتوفيق

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

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

اين البيانات الناقصة في الإستعلام !!!!!!!!!!!

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

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

تفضل اخي الكريم : عمر الزريقي ملفك بعد التعديل بناء على طلبك za-الحلقة.rar بالتوفيق

اخي الفاضل استبدل هذه الأرقام القديمة بما هو موجود لديك القياس الموجود في الكود Public Const conOrigWd = 1024Public Const conOrigHt = 768 استبدله بقياس الشاشة الخاصة بك Public Const conOrigWd = 1366Public Const conOrigHt = 768 بالتوفيق

نسخة اكسيس 2003 نسخة اكسيس 2007 نسخة اكسيس 2010 بالتوفيق

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