osama ababneh

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

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

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

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

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

تفضل اخي الملف بعد التعديل form.rar

اخي الكريم الكود التالي سيؤدي الغرض بأذن الله aa=CurrentProject.Path حيث ان aa هو اسم مربع النص والمثال المرفق يوضح ذلك file_path.rar

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

بارك الله فيك اخي Bluemind كلامك صحيح 100% واشكر لك مداخلتك حيث ان الخطأ وارد

تفضل اخي المثال ولكن هذه المرة باستخدام الكود ارجو ان تستفيد من الفكرة form.rar

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

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

اخي الكريم ستجد الحل في الصورة المرفقة والمثال بعد التعديل form.rar

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

عزيزي الجشعمي في البداية ارجو منك ان تقوم بفصل طلباتك في المرات القادمة كل طلب في مشاركة لكي تحصل على القدر الكافي من المساعدة وعلى كل حال بالنسبة للطلب الاول : اختيار 3 سجلات فقط .... عليك الدخول الى تصميم الاستعلام ثم فتح محرر SQL وبعد كلمة Select تضع كلمة" Top 3 " فيصبح الكود كما يلي SELECT TOP 3 OrdersTbl.SalesId, OrdersTbl.CustomerId, OrdersTbl.T_Date, OrdersTbl.Shek, OrdersTbl.Cash, OrdersTbl.Dept, OrdersTbl.payment, OrdersTbl.Notes, OrdersTbl.User FROM OrdersTbl ORDER BY OrdersTbl.SalesId; ولا تنسى السطر الاخير ORDER BY فهو يدل على معيار فرز البيانات وفي هذا المثال استخدمت رقم الفاتورة كمعيار وهنا ستظهر لي في الاستعلام اكبر 3 ارقام فواتير وبياناتها ومن الممكن استخدام التاريخ او ما شابه والمثال المرفق سيوضح ذلك بالنسبة للطلب الثاني بامكانك ذلك عن طريق اضافة زر امر الى الفورم واستخدم المعالج واختر حذف السجلات او قم بوضع الكود التالي DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 وستجد ذلك في النموذج الموجود في المثال وفي النهاية ارجو منك فصل المشاركات مستقبلا db1.rar

اخي الكريم في البداية عليك انشاء استعلام وتختار الحقول المطلوبة فية ويجب ان يتضمن الاستعلام حقل التاريخ ثم تضع المعيار التالي في التاريخ Between [begining date] And [end date] وهذا مثالك بعد التعديل db1.rar

اخي العزيز للاسف لا توجد لدي الخبرة الكافية في موضوع الربط على الشبكات ولكن حسب ما اعرفة فان الطريقة كالاتي 1 - تقسيم قاعدة البيانات 2- وضع الملفات التي تم تقسيمها في السيرفر 3- عمل نسخة من ملفات الواجهة 4- وضع هذه النسخة في الاجهزة الاخرى وربطها مع ملف الداتا (الجداول) الموجود في السيرفر من خلال (Linked Table Manager)

اخي العزيز انشئ زر الامر وفي حدث عند النقر ادخل الكود التالي cell.Value = OutCorrespName.Value وهذا المثال بعد التعديل sample.rar

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

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

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

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

اخواني الاعزاء وجدت هذه الطريقة في احد المواقع الاجنبية لاضافة ايقونة للفورم (عنوان الفورم) واحببت ان اشارككم بها 1- انشاء مودل جديد من خلال محرر الكود ووضع الوظيفة التالية فية Private Declare Function LoadImage Lib "user32" _ Alias "LoadImageA" _ (ByVal hInst As Long, _ ByVal lpsz As String, _ ByVal un1 As Long, _ ByVal n1 As Long, _ ByVal n2 As Long, _ ByVal un2 As Long) _ As Long Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ LParam As Any) _ As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const WM_SETICON = &H80 Private Const IMAGE_ICON = 1 Private Const LR_LOADFROMFILE = &H10 Private Const SM_CXSMICON As Long = 49 Private Const SM_CYSMICON As Long = 50 Public Function SetFormIcon(hWnd As Long, strIconPath As String) As Boolean Dim lIcon As Long Dim lResult As Long Dim X As Long, Y As Long X = GetSystemMetrics(SM_CXSMICON) Y = GetSystemMetrics(SM_CYSMICON) lIcon = LoadImage(0, strIconPath, 1, X, Y, LR_LOADFROMFILE) lResult = SendMessage(hWnd, WM_SETICON, 0, ByVal lIcon) End Function 2- في الفورم الذي تريد اضافة الايقونة لة وفي حدث عند الفتح ضع الكود التالي SetFormIcon Me.hWnd, "C:\MyIcon.ico" مع مراعاة انه يجب تغيير المسار حسب المجلد واسم الملف مع تمنياتي بالتوفيق

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

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