ناقل

تفضل تابع هذا الموضوع

With Application.Forms If .Count - 1 = 0 Then DoCmd.Close Else For I = .Count - 1 To 0 Step -1 With .Item(I) If .Name <> "Main_Form" Then MsgBox .Name End If End With Next I End If End With

جرب هذا اخي الكريم

في المديول القديم كان يتطلب متغيرين ( نص التشفير و الحقل المشفر ) اما المديول الاخير يتطلب فقط ( الحقل المشفر ) هذا الفرق فقط ....

مشاركة مع استاذي الفاضل ..... db1.mdb

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

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

هههههه ..... تفضل .... encoder replacement 2.rar

تفضل ........ Dim myWhere As String myWhere = "[FirstName] ='" & [txtFirstName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[DateOfBirth] =#" & Format(Me.txtDateOfBirth.Value, "mm/dd/yyyy") & "#" myWhere = myWhere & " And" myWhere = myWhere & "[SIR]= " & [ChckSIR] Debug.Print myWhere Me.txtCount = DCount("*", "[tblTestCount]", myWhere) If DCount("*", "[tblTestCount]", myWhere) > 0 Then MsgBox "This data is present and it cannot be repeated": Exit Sub Test Dcout.mdb

هل النتيجة تساوي صفر ؟؟؟؟؟؟

قد يكون هذا التعديل افضل :::: لانك ممكن تختار A فقط او تختار A و B فقط أو تختار A و B و C معا جرب ................................ www.accdb

منكم تعلمنا الاخلاق وبتشجيعكم ابدعنا ..... بارك الله فيك اخي الكريم

تفضل ....... www.accdb

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

ما شاء الله تبارك الله ..... باقي خطوة وتصل ..... طيب ... الكود كما ذكرنا سابقا عبارة عن ثلاث مكونات : اسم الفانك : (متغيرنص التشفير , متغير الحقل المشفر )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