ناقل

ما شاء الله تبارك الله ..... باقي خطوة وتصل ..... طيب ... الكود كما ذكرنا سابقا عبارة عن ثلاث مكونات : اسم الفانك : (متغيرنص التشفير , متغير الحقل المشفر )decode متغير نص التشفير متغير الحقل المشفر في الكودين يظهر كالتالي الكود القديم :::::::::::::::::::::::::::::::::: والكود الجديد ::::::::::::::::::::::::::::::::::::::::::: تفضل الكود .... Private Sub Form_Open(Cancel As Integer) If Nz(OpenArgs, "") = "Add" Then Me.Caption = "إضافة مستخدم جديد" Else UNUM = OpenArgs UN = XORDecryption("User", DLookup("[UName]", "Users", "ID_User = " & Nz(OpenArgs, 0))) UN2 = XORDecryption("User", DLookup("[fname]", "Users", "ID_User = " & Nz(OpenArgs, 0))) oldusr = UN End If End Sub

امين .... وان ارت الكود فهو جاهز بغيت انزلها بس لما شفت ردك توقفت ...

....؟

منكم نتعلم .... جزاك الله خيرا

البرنامج يعمل لدي بدون مشاكل انظر .....

تفضل ..... فلتر.accdb

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

بارك الله فيك اخي الكريم ..... كفيناك المؤنة .... هههههه

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

تفضل .... لاني كنت مقفل كود عند الفتح ..... encoder replacement.rar

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

تفضل المستخدم ناقل والباس 123 encoder replacement.rar

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

كدة .... عند اضافة البيانات ..... عند اضافة عدد الشهور .... يظهر تاريخ النهاية تلقائيا .... file.rar

جرب كده المستخدم ناقل باس 123 Usrse1.accdb

تفضل ....... ابا الحسن ... استيراد_ناقل.accdb

وعليكم السلام ضع هذا في حدث الحالي مثلا ..... مربع البحث a Me.a.SetFocus

هل هذا ماتريد ؟؟؟؟ استيراد_ناقل.accdb

من خصائص النموذج .....

في حدث عند التغيير لمربع نص بداية الشهر ...... او ارفق مثال للتعديل عليه

x = DateAdd("m", 5, Date()) ضع مكاة الخمسة الحقل الذي فية الزيادة المطلوبة

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

بل انا تلميذ وطالب علم اتعلم من الاساتذة امثالكم بارك الله فيك ....

استخدم هذا ..... Me.a = WeekdayName(Weekday(Date), False) أو ..... Me.a = Format(Date, "ddd")