رمهان

جيد معناته تم المطلوب ام لسا اخي الكريم ؟!!

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

حسب فهمي : اذا كان رقم العملية لايقبل التكرار حسب تحليلك فانه يكفي لان يكون معيار وشرط الفتح للنموذج الوجهة . وسيصبح الكود كالتالي : Private Sub AutoNum_DblClick(Cancel As Integer) Dim stLinkCriteria As String stLinkCriteria = "[AutoNum]=" & Me![AutoNum] DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria End Sub حيث تم حذف المعايير الاخرى ! بالتوفيق

الفكرة واحدة وتختلف طريقة التنفيذ حيث الاشارة الى العناصر فمثلا على افتراض ان رقم القرار موجود بالنموذج الفرعي وباسم a1 وترشيح موجود بالنموذج الرئيسي باسم s1 تذهب للعنصر a1 بالنموذج الفرعي وتختار حدث بعد التحديث وتلصق الكود التالي : me.parent!s1=not isnull(a1) حيث parent كفيلة بارجاع اسم النموذج الرئيسي بالتوفيق

تشرفنا بمشاركتك اخي ابو عبدالله الحلواني واي وقت وباي فكرة او معلومة اعتذر عن عدم رؤية المرفقات السابقة لضيق وقتي اخي ابو بلال هذا الرابط لعل به ضالتك http://www.officena.net/ib/topic/26291-كيف-يمكن-اجراء-التفقيط-التالى/ تحياتي

جميل جدا وتنبيه بسيط : يجب ان تكون جميع الجداول المرتبطه في القاعدة الامامية مغلقة حتى يسمح بنسخ القاعدة الخلفية كما انه يمكن الاستغناء عن الدالة الموجودة ومباشرة التعامل مع الامر filecopy تحياتي

قبل ما اواصل معاك حبيت الفت الانتباه الى كود الاستاذ ابا خليل في الرابط السابق ! واستنتاجا من ما ذكرت بانه تمام معك على mdb ! الانتباه : في كود ابا خليل يوجد السطر: NewFile = [DBNew] & "\" & DBwithoutEXT & "-" & (Format(Date, "yyyy") - 1) & "-" & Format(Date, "yyyy") & Right(DBwithEXT, 4) لاحظ الملون بالاحمر ! فهو يخص ال mdb ! جرب ان تعدل الرقم 4 الى 6 ! ثم جرب وطبق على accdb بالتوفيق لم يتم التلوين اقصد الجزئية: Right(DBwithEXT, 4) وكذلك في السطر التالي ومن الرابط السابق: DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) عدل 4 الى 6

تمام هل تريد نسخ القاعدة الخلفية على نفس مسارها وباسم مختلف ؟

معليش اخ بلال ممكن تكتب الحروف للتاريخ السابق يدويا لنرى الشكل المطلوب !

ممكن تكتب نص الحروف المطلوب ! هل سيشمل اليوم والشهر والسنة مثلا ؟ تحياتي

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

ماهو الخطأ اخ ابراهيم العملية سهلة جدا اذهب لخصائص مربع رقم القرار والذي اسمه a1 ومن تبويب حدث وعند الحدث بعد التحديث اختر اجراء حدث ثم الضغط على النقاط سيفتح صفحة الكود وعلى اجراء بعد التحديث الصق هذا السطر مباشرة بين السطرين الظاهرين : نموذج_فرعي_tabl2!s1 = Not IsNull(a1) بالتوفيق

يقول المثل ابا خليل قديمك نديمك لذلك شغلك القديم اصح ! واسمح لي باختصاره الى الكود التالي Shell "cmd.exe /C copy " & """" & CurrentProject.FullName & """" & " " & """" & CurrentProject.Path & "\abc.mdb" & """" حيث الانتباه الى تساوي الامتداد بين الملف الحالي والوجهة ! تحياتي

في حدث بعد التحديث لرقم القرار . ليصبح شكل الكود كاملا : Private Sub a1_AfterUpdate() نموذج_فرعي_tabl2!s1 = Not IsNull(a1) End Sub بالتوفيق

واعتقد فصل الجدول الى جدول موردين وجدول الفواتير ويتم الربط بكود المورد سيكون افضل !

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

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

اضف هذا السطر في نهاية الكود : cmd.ForeColor = IIf(cmd.Caption = "اضافة وتعديل", vbBlue, vbRed) بالتوفيق

معليش اخ صابر : حملت الملف ولم اجد تطبيق المشاركة رقم 6 ! اريد ارى تغييرك لمصدر السجلات وكذلك تطبيقك للكود ! تحياتي

ماهي الاداة او الطريقة المستخدمة في التقاط الصورة ؟ واذا ممكن المرفق وبه الية كود التقاط الصورة ! بالتوفيق

اخ صابر : ممكن ترفق الملف مرة اخرى بعد تطبيق الكود به لتجربته لدي !

مشاركة مع اعزائي وحسب فهمي Private Sub cmd_Click() If Me.Tab1sub.Visible = False Then Me.Tab1sub.Visible = True Me.Tab1sub.Form.RecordsetType = IIf(cmd.Caption = "اضافة وتعديل", 0, 2) If cmd.Caption = "اضافة وتعديل" Then Me.Tab1sub.SetFocus: DoCmd.GoToRecord , , acNewRec: Me.Tab1sub![NAME].SetFocus cmd.Caption = IIf(cmd.Caption = "اضافة وتعديل", "بحث وفلترة", "اضافة وتعديل") End Sub بالتوفيق Aziz.rar

عزيزي :للعلم لم نستخدم قناع الادخال .. مجرد كود قبل التحديث ! بالتوفيق

مشاركة مع اعزائي واثراء للموضوع ضع التعبيرين التالين للعنصر كل على حده لتصبح خاصية مصدر عنصر التحكم هكذا: =-DSum("[مجاز]";"tab1") =-DSum("[غير مجاز]";"tab1") بالتوفيق