Elsayed Bn Gemy

2346.rar

السلا عليكم تم اعادة تسمية حقل رقم الملف من عربى الى انجليزى (ينصح به بشدة ) الى Numfile تم عمل نموذج رسالة ادارية حتى لا يتم المسح الا بعد التاكد تم عمل تصفية للنموذج Tb4 حيث عن الضغط على زر حذف للملف رقم 1 مثلا وكان له سجلات مرتبطة به يقوم بفتح النموذج tb4 على السجلات المرتبطه فقط بالملف رقم 1 شرح الكود 'اذا كان عدد السجلات فى الجدول الفرعى تساوى صفر بشرط تساوى ارقام الملفات ' حيث numfile = اسم حقل رقم الملف فى الجدول الفرعى ' حيث textnumfile = اسم مربع النص فى النموذج if DCount("Numfile", "tb2", "[Numfile]=" & Me.textNumfile& "") = 0 Then DoCmd.OpenForm "mared" Else DoCmd.OpenForm "tb4" End If

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

ارفق مثالا يااخى انا اعمل فى بيئة اوفيس 2013 .

السلام عليكم اخى الكريم اعاننا الله على ما تريد شرح الكود اولا وقبل كل شئ قمت باضافة زر (جديد + اضافة الاصناف ) وجدت انك تقوم بكتابة رقم الصفحة يدويا وهذا غير مجدى قد تنسى رقم او ما شابه فاستبدلت ذلك كله بالكود فالكود يقوم باضافة صفحة جديدة تلقائيا وترقيم تلقائى بالكود حتى اذا قمت بمسح صفحة فى يوم ما لا يفوتك رقمها 'فرض متغيرات باعداد السجلات فى كلا الجدولين الفرعى والاصناف Dim X Dim Rs 'الذهاب الى سجل جديد DoCmd.GoToRecord , , acNewRec 'قيمة مربع نص رقم الصفحات يساوى مجموع سجلات جدول الصفحات + 1 Me.page_no = DCount("*", "[/page][page]") + 1 'تحديث النموذج DoCmd.Requery 'الذهاب الى اخلر سجل الاضافة السلع والاسعار DoCmd.GoToRecord , , acLast 'الاتصال بجدول الاصناف وفتحه Set Rs = CurrentDb.OpenRecordset("page_sub") 'المتغير x يساوى مجموع السجلات جدول الاصناف For X = 1 To DCount("*", "[items]") Rs.AddNew Rs![page_no] = Me.[page_no].Value Rs!items = DLookup("[items]", "[items]", "[id]=" & X & "") Rs!coast = DLookup("[coast]", "[items]", "[id]=" & X & "") Rs!sell = DLookup("[sell]", "[items]", "[id]=" & X & "") Rs.Update Next Rs.Close Set Rs = Nothing Me.[page_sub_Subform].Requery stocktaken 2015-2.rar

مش فاهم تقصد عند اضافة مرفق فقط ياخذ القيد رقم جديد ؟؟ وهل تم حل مشكلة المرفقات ام لا

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

شكرا لك اخى الكريم ولك مثل ما دعوت لنا اللهم امين

بارك الله فيك عموما اعاننا الله على تصميم مرفق لك صغير كما ذكرت فى اول الموضوع نموذج به مربعى نصوص الاول يساوى الثانى قم بادخال البينات التى تريدها فى مربع النص الاول وستجد مربع النص الثانى اخذ نفس القيمة ثم قم بتغيير البيانات فى مربع النص الاول واتحداك ههههههههههه ان تتغير فى مربع النص الثانى 'صرحنا عن المتغير mared Dim mared As String 'قلنا ان المتغير يساوى مجموع سجلات الجدول بدون شروط mared = DCount("[f1]", "tb1") If mared = 0 Then DoCmd.SetWarnings False 'الحاق القيمة الاوليه لمربع النص الاول (البروسيسور الاول على حسب كلامك ) DoCmd.RunSQL "INSERT INTO tb1 ( f1)values ('" & [text1] & "');" DoCmd.SetWarnings True End If DoCmd.Requery تثبيت قيم مربعات النصوص.rar تثبيت قيم مربعات النصوص.rar

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

اخى الكريم ما طرحته فى مشاركتى بخصوص رقم المعالج . المح لفكرة اخرى تستعملها جميع شركات البرمجيات وهو كلمات السر عموما انظر الى هذا المثال فيه ما اقصد .. عموما المرفق الاتى يعمل لمرة واحدة فقط ويمكن التعديل عليه برمجيا ليتوافق مع ما نريد كلمة السر هى 1111-2222-3333-4444 معالج قاعدة بيانات اكسس.rar

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

اخى الكريم عفوا لاحظت خطا ما فى الكود السابق الكود السابق بعد 10 سجلات سيقوم بترقيم الاتى (A-11 / A-12 ) واعتقد ان هذا ليس مرادك ويمكنك استبداله بالكود التالى Dim f As String f = DCount("id", "mytable") If f >= 10 Then id = "A-" & (DCount("id", "mytable")) - 10 + 1 Else id = DCount("id", "mytable") + 1 End If

وعليكم السلام ورحمة الله تعالى وبركاته شكرا لك اخى الفاضل

'فرضنا متغير f Dim f As String 'قلنا ان المتغير يساوى مجموع سجلات حقل الترقيم f = DCount("id", "mytable") 'اذا كان المتغير اكبر من 10 سيقوم بادراج الرمز A وتستطيع ان تغيرها بعد ذلك الى 10000 If f >= 10 Then id = "A-" & DCount("id", "mytable") + 1 Else id = DCount("id", "mytable") + 1 End If الحدث موجود بعد تحديث مربع نص التاريخ فقط اكتب تاريخ الفاتورة وسيتم الترقيم ترقيم رموز.rar

اخى الكريم فضلا انتظر جارى تجهيز مرفقك

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

جزاكم الله خيرا اخوانى وشكر الله لكم سعيكم

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

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

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

اخى الكريم شروحات جميلة لاستاذنا الاستاذ ستارت نت وجدتها عندى فرفعتها لك - شرح فيديو + قواعد البيانات المطبق عليها الشرح http://www.mediafire.com/download/zt813nwcjjpd53k/%D8%B4%D8%B1%D8%AD_%D8%A8%D8%B9%D8%B6_%D8%AE%D8%B5%D8%A7%D8%A6%D8%B5_%D8%A7%D9%84%D8%B4%D8%AC%D8%B1%D8%A9.zip

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

اقترح ارفاق مثال للتعديل عليه ولو انك كلفت نفسك قليلا من الجهد لوجدت ضالتك فى المنتدى فقط ابحث وستجد الكثير عموما هذا الفيديو فيه ضالتك https://www.youtube.com/watch?v=xLGfV9WNDVA

تفضل اخى الكريم هل هذا ما تريد؟؟ salary.rar