ابوخليل

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

العمل الذي تم في الموضوع السابق كان متقنا عند تغيير الجداول والمسميات يختلف الأمر .. وكأنك بدأت التصميم من أول وجديد .. وهذا تفسير فشل محاولتك ومثلك انا اتعب كثيرا حتى ارجع الامور في نصابها دوما انا اتبع طريقة في التصميم .. وهي انه يكون لدي قالب خاص بكل نوع من انواع المشاريع المشاريع المالية او المشتريات والمبيعات او الخدمات والافراد او البرامج المدرسية ، او العسكرية ... الخ عند بداية المشروع اسحب الجداول من القالب .. وقد يتبعه سحب الكثير من النماذج والتقارير وايضا الوحدات النمطية تكون مبنية غالبا على هذه التسميات. وهذ يختصر علي 70% من الجهد والوقت في المشروع الجديد . حاول ان تهتم بان يكون لك قالب معتمد لكل نوع من انواع المشاريع _____------------------------------------------------------------------------------------------ تم تعديل مرفقك حسب الكائنات الجديدة التي ادرجتها آمل ان تتمكن من اكمال مشروعك Data20.rar

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

راجع معلوماتك .. بل هي اشهر كلمة محجوزة . ليس في اكسس فقط

عادة الطبيب لا يصف العلاج الا بعد الكشف على المريض وفحصه حسب فهمي ان النموذج عندك بدون مصدر بيانات .. اي بدون جدول اذا بدون جدول والحقول غير منضمة يمكنك كتابة اسماء جميع الحقول في حدث الزر .. كما وضحت لك اعلاه أي : text1= Null text2= Null text3= Null وهكذا ... اما اذا الحقول منضمة ومصدرها الجدول فيمكنك حذق السجل كامل من الجدول باستخدام هذا السطر في الحدث بدلا من الحقول DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 أو DoCmd.SetWarnings False DoCmd.RunSQL "delete * from table1 " DoCmd.SetWarnings True ' table1 هو اسم الجدول عندك

نعم يوجد على اعتبار اسم الحقل : text1 حدث النقر على الزر سيكون مثل هذا text1 = Null أو text1 = ""

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

عجيب !! البحث من خلال 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

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