ابوخليل

المفترض ان رقم الطالب يكون فريد وغير قابل للتكرار .. التعديل كالتالي : 1- جعل رقم الطالب فريد لا يقبل التكرار 2- اضافة وتعديل طفيف على الكود المسؤول ........... الآن يتم جلب اي طالب من الجدول البعيد بشرط يكون غير موجود في الجدول الحالي Downloads.rar

تفضل مع اني اتحاشى استخدام الماكرو في اعمالي ، لذا راعيت ان ابقي على التصميم الذي انت عملته ستلاحظ اين وظفت اكوادي baset2.rar

تفضل زر واحد فقط للتشفير او الغاؤه users.rar

عليكم السلام ضع هذه الدالة في وحدة نمطية عامة Function EncryptDecrypt(strIn As String, strpass As String) As String Dim intLen As Integer Dim intCounter As Integer Dim varTmp As Variant Dim strTmp As String intLen = Len(strpass) strTmp = strIn For intCounter = 1 To Len(strIn) varTmp = Asc(Mid$(strpass, (intCounter Mod intLen) - intLen * ((intCounter Mod intLen) = 0), 1)) Mid$(strTmp, intCounter, 1) = Chr$(Asc(Mid$(strIn, intCounter, 1)) Xor varTmp) Next EncryptDecrypt = strTmp End Function يتم مناداتها سواء للتشفير او فك التشفير على النحو التالي : rst!PassWord = EncryptDecrypt(password, userName) على اعتبار rst!PassWord هو حقل كلمة المرور في الجدول

انظر ايضا هنا ستجد بعض التوجيهات المفيدة في عملك

مشاركة مع اخي ازهر انظر هنا في هذه المشاركة .. طريقة اخرى لتحقيق الفكرة

انظر هنا .. سيساعدك في بناء جداولك وانظر ايضا هنا

فضلا لا ترفع طلبك على مواضيع قديمة . يكفيك ان تكتب طلبك في موضوع جديد ، وتشير الى رابط الموضوع فقط

راجعت المرفق وجدته يسجل تاريخ ووقت الدخول في جدول المستخدمين .. ويتم تحديثه في كل مرة يتم الدخول .. اذا تريد الدخول والخروج وحفظه كبيانات تاريخية يكفي ان تضيف جدول واحد يشتمل على : رقم المستخدم / اسمه / نوع الحركة ( in - out ) / تاريخ ووقت الحركة بمعنى ان الدخول والخروج في حقل واحد الذي يفرق بينهما هو نوع الحركة ... لماذا ؟ من اجل مرونة البيانات فقد يدخل المستخدم ويخرج اكثر من مرة في اليوم ملحوظة : الافضل استبدال الماكرو بكود داخل المحرر

اخي الكريم يجب الاهتمام باختيار العنوان المناسب الذي يصف الموضوع بشكل مختصر تم تعديل العنوان ،،

هذا واحد منها

طلبك في الصفحة نفسها هنا

تم تعديل العنوان تفضل : تم عمل وحدة نمطية تأخذ اسم المستخدم ورقمه الصحيح .. وتضيفه الى الجدول عند الدخول وعند الخروج Public regUserName As String Public regUserId As Integer Public Function funRegUserNameIn() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("date in") rs.AddNew rs!UserID = regUserId rs!UserName = regUserName rs.Update rs.Close: Set rs = Nothing End Function Public Function funRegUserNameOut() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("date out") rs.AddNew rs!UserID = regUserId rs!UserName = regUserName rs.Update rs.Close: Set rs = Nothing End Function بالنسبة لتسجيل التعديل على البيانات فهذا يطول شرحه .. يمكنك البحث في المنتدى .. يوجد الكثير من المواضيع والأمثلة توضح ذلك لأن التعديل يتم تسجيله على مستوى نماذج محددة اما تسجيل الدخول والخروج فهو عام يخص فتح واغلاق قاعدة البيانات data test2.rar

الموضوع قديم يمكنك فتح موضوع جديد بطلبك

التصدير لا يتم على النموذج التصدير دوما يكون من الاستعلام او الجدول او التقرير تضع فيه الحقول التي تريد تصديرها فقط

افيدك في هذه الجزئية : 1- افتح النموذج على التصميم 2- من قائمة الخصائص اختر لسان التبويب : بيانات 3- عدل القيمة (ادخال بيانات ) من : (لا) الى ( نعم ) ثم احفظ

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

تفضل aa (1).rar

الحقيقة ان ميكروسفت قيدت الاستعلام الجدولي بحقل واحد لاسم العمود وحقل واحد للقيمة لذا نحن بحاجة لأن نتجاوز هذا التقييد ونعمل استعلام جدولي اوسع يلبي حاجتنا وهذا ما تم عمله : 1- عمل استعلام تجميعي للمواد حسب ( الكهربائي / تاريخ اليوم / المادة ) مصدره الجدول الرئيسي 2- من الاستعلام المذكور تم عمل جدول مؤقت يمثل ثلاث استعلامات جدولية .. ويكون هو مصدر بيانات التقرير 3- اعداد هذا الجدول يتم من خلال زر في النموذج 4- كل نقرة على الزر يتم حذف البيانات في الجدول واعدادها من جديد .. ( لأن البيانات المدخلة متجددة يوميا ) ملحوظة : تم تعديل تسمية الحقل Date الى sDate لأن الاسم محجوز في اكسس عذرا على التأخير وشكرا لصبرك ،،، Datash5.rar

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

اهلا اخي لو ارفقت هذا التقرير الجميل من اجل يتم التطبيق عليه

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

اتمنى اني فهمت عنك انظر المرفق aa.rar

اثبت يا دكتور .. تعجبني الثقة بالنفس .. امامك مقاومات : قاعدة الجداول عندك محمية بكلمة مرور وايضا تريد المرونة في تحديث قيمة الحقل لأي قيمة تستجد ملحوظة صغيرة : تسمية الجدول بـــــــ TABLE خطأ

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