ابوخليل

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

عجيب !! البحث من خلال 13 حقل هل تتخيل ان جميع حقولك يمكنك البحث فيها من خلال حقل واحد على كل حال .. كلٌُ بفكره راضي تفضل تم تحقيق طلبك abc2.rar

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

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

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

انا اردت ان تأخذ الفكرة والتي هي استخدام مربع تص بدلا من صندوق الرسالة وتعديل بسيط على كود الأستاذ القدير أزهر لتحويل الصندوق الى حقل يتحقق المطلوب On Error GoTo Err_Dell_Click_Error If Me.TextPass.Visible = False Then Me.TextPass.Visible = True Beep MsgBox "ادخل كلمة المرور", vbOKOnly, _ "Important Information" Exit Sub End If If Me.TextPass = "12345" Then DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Me.TextPass.Visible = False MsgBox "تم الحذف", vbOKOnly, _ "Important Information" Else Beep MsgBox "ليس لك الحق بالوصول", vbOKOnly, _ "Important Information" Me.TextPass.Visible = False Exit Sub End If Exit_Err_Dell: Exit Sub Err_Dell_Click_Error: If Err.Number = 2001 Then Resume Exit_Err_Dell End If base_pass.rar

طيب على راحتك نحن نتعلم .. لنتجاوز أخطاءنا .. ونطبق الطرق السليمة كي نطور انفسنا كتابة الحقول بحروف عربية ستتعبك كثيرا ويصعب عليك التعلم .. تفضل : تم تحقيق طلبك كما تريده بالضبط من دون اي تعديلات على المرفق.. If Me.TXT = "مقيم" Then Me.Form.Filter = "مقيم like '" & "نعم" & "'" Me.Form.FilterOn = True ElseIf Me.TXT = "لديه كفيل" Then Me.Form.Filter = "[لديه كفالة] like '" & "نعم" & "'" Me.Form.FilterOn = True ElseIf Me.TXT = "لديه اقامة" Then Me.Form.Filter = "[لديه اقامة] like '" & "نعم" & "'" Me.Form.FilterOn = True End If test4.rar

تمام اللي عملته لك في المرفق السابق شيء ضمن خصائص الحقل بما يسمى قاعدة التحقق من الصحة .. اذا ما يساوي 14 رقم اصلا لا يدرج تاريخ الميلاد وانما يقف الحدث حتى يصحح الرقم . على كل حال تم تحقيق طلبك كما تحب اما بالنسبة لــــ : فالتعديل تم على الحدث : Private Sub cartno_AfterUpdate() طبعا الكود يقارن بين تاريخ الميلاد وتاريخ اليوم والكود كان يأخذ تاريخ اليوم من حقل غير منضم على النموذج قيمته = Date() وهذا يادكتور ينطبق عليه المثل : وين ودنك يا جحا فأنا قطعت اذن جحا ووضعت دالة التاريخ مباشرة داخل الكود الخطأ الذي وقعت فيه هو وجود حقل على النموذج باسم BrDate وهذا الاسم هو اسم الدالة في محرر الفيجوال وهذا تعارض كبير .. يتوقف الكود ولا يعمل راجع مثالك في اول مشاركة وسيتضح لك الاشكال . الرقم القومى3.rar

موجود في المثال المرفوع .. انا عملته لك

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

هل افهم منك انك اعتمدت التعديل الذي رفعته لك ؟ اذا لا : لماذا اكلف نفسي بتعبئة ثلاث حقول نعم او لا .. والمطلوب اصلا نعم لنوع الحالة ... لأن الحالة واحدة ولا يمكن ان يأخذ نعم في اكثر من واحدة لذا الاولى والافضل اختيار الحالة من الحالات الثلاث ، وهذا انت ترى التعثر في التصفية من البداية ..

اخوي فؤاد لا تزعل اذا قلت لك تصميمك ( كإدخال بيانات) في الجدول خطأ حاول تبسيط الامور دائما .. خطوة واحدة بدلا من ثلاث خطوات انظر التعديل test2.rar

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

نعم وصلت الفكرة .. وهذه هي الأصل .. وانت صح .. يبدوا اني لم اجرب .. دعني القي نظرة

اولا التقرير بمجموعه ليس له خصيصة خلفية .. انما يحل محلها الصورة كخلفية والسبب ان التقرير ينقسم الى خمسة اقسام (مقاطع) .. كل قسم له خصائصه لوحده فيمكنك التحكم بخلفية راس و ذيل الصفحة او راس وذيل التقرير او مقطع التفاصيل نرجع لطلبك : جدول الألوان يجب ان يكون وحيدا وبعيدا .. يمنع جعله مصدرا لنموذج او تقرير باعتباره جدول تحكم انظر التعديل ويمكنك تكملة التسميات العربية في الجدول تغيير لون خلفية التقرير 2.rar

😃 عجيب 😃 فسر لنا .. اليست + تعمل عمل & ؟ الــــــــ Text2 + "-" التي ظهرت 89 اين الشرطة ؟ بفتح الشين وليس ضمها ههههههههه

التعديل جميل جزيت خيرا .. ولكن العمل بحاجة الى لمسة صغيرة اخرى حيث اني لم اقل : " نوعا ما " عبثا 🙃 والسبب هو الشرطة الأخيرة ابو احمد قال : "" وهل يوجد طريقة لنتمكن من كتابة حرف ال X أحيانا وعدم كتابته احيانا أخرى "" بمعنى اذا لم يكن بحاجة الى كتابة x فلا معنى لوجود الشرطة طبعا انا قدمت العمل على عجالة . ومؤكد يمكن تجاوز هذا الخلل وضبط الرقم المدخل بدون الشرطة .. وأول ما تبادر الى ذهني وضع شرط في حقل x اذا كان خاليا لا يتم ادراج الشرطة وهذا النهج يستلزم تقسيم الدالة الى عدة اسطر .. فانا قلت انزل التعديل وصاحب الشأن اعرف بحاجته .. وسلامتكم

تفضل الرقم القومى2.rar

تم تعديل العنوان بما يناسب الموضوع

وهذا تطبيق نوعا ما للفكرة .. xx.rar

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

المفترض ان رقم الطالب يكون فريد وغير قابل للتكرار .. التعديل كالتالي : 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 هو حقل كلمة المرور في الجدول