kaser906

الله يعطيك العافية

يعطيك العافية أخي جعفر النتائج ممتازة لكن الطريقة لم تخدمني كثيراً بسبب أن النموذج الفرعي يستند إلى جدول اخر ومربع النص بالنموذج الفرعي غير منضم فهل توجد طريقة عن طريق الكود والاستغناء عن الاستعلام علماً أني اريد اظهار رقم sn الذي تم تكراره وليس عدد مجموع التكرار

اين المرفق استاذي ابو موسى لم اجد سوى الملف الذي رفعته انا

السلام عليكم المطلوب في المرفق اظهار اكثر رقم بالنموذج الفرعي تم تكراره بالجدول من الحقل sn لما يقابله من حقل nempr بنفس السجل بناء على الرقم المدخل بالنموذج الاساسي مثلاً ادخل رقم 8 اريد اظهار اكثر رقم في حقل sn تم تكراره 1 او 2 او 3 الخ addcountForm.rar

انا عندي windos10 وجميع امتدادات ملفات الاكسس تعمل عليه اخي اشرح مشكلتك بالضبط و الشباب سيساعدونك في ايجاد الحل

هل المطلوب معقول منطقيا أم اصرف النظر عنه وابحث عن حلول أخرى

ممكن اعرف فائد اضافة هذه الاشارة للكود علما بأن الكود السابق كان يعمل بشكل جيد بدون اهاتين الاشارتين

بكون اول الحاضرين واخر المغادرين

والله ما هي شينة فكرت الزوجة الأخرى

افهم من كلامك استاذي اني اذا اردت اظهار الحرف دائمأ واستعماله مع الرقم عند الاستعلام اني يجب ان احول نوع الحقل بالجدول إلى نص

حل جميل اخي الكريم لكن ظهرت لي مشكلة عند استخدام الدالة dlookup عندما ادخل الحرف m مع الرقم ظهرت رسالة بأن نوع البيانات غير متطابق جرب بالمرفق النموذج frm_Test1 رقم الحاسب مع الحرف والنظر النتيجة اما اذا ادخلت الرقم بدون حرف تأتي النتيجة صحيحة AutoNumber2.rar دائماً مبدع اخي ابو موسى اردت ايضا الاستفسار عن هذه الطريقة هل سيظهر الحرف بالتتقارير عند الطباعة ام احتاج الى وضع التنسيق بالتقارير لكي يظهر الحرف

رفع

السلام عليكم بالمرفق نموذج يوجد به زر أمر يقوم بإعطاء رقم تلقائي يبدأ بحرف عن طريق الكود التالي Me.حاسب = AutoNumber("Test", "حاسب", "M", 0) المشكلة أن الترقيم يتوقف عند الرقم M100 واذا قمت بتعديل الرقم يدوياً مثلاً M999 وعند اعطاء رقم جديد يتوقف الرقم عند M1000 المطلوب اعطاء رقم يبدأ من M1 عندما لايكون بالجدول رقم ويستمر الترقيم إلى ما لا نهاية AutoNumber.rar

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

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

نعم اخي ابو جودي فكما تلاحظ النموذج مفتوح ونريد ان نعمل له صلاحيات من حيث عمل المستخدم داخل النموذج بناء على الصلاحيات الممنوحة له

السلام عليكم ورحمة اللله وبركاتة المطلوب تحديد صلاحية المستخدم على النموذج الفرعي استخدمت الكود التالي ولكن للاسف لم يعطي اي نتيجة Dim c As String c = "[" & Choose(Ability, "o", "A", "d", "e") & "]" r = DLookup(c, "FRM Ability", "FRM = frm_continuation and SN = " & Str(UserNum)) If O = 0 Then MsgBox "لاتملك صلاحية" Exit Sub Else If A = 0 Then Me.frm_continuation.Form.AllowAdditions = False ElseIf E = 0 Then Me.frm_continuation.Form.AllowEdits = False ElseIf D = 0 Then Me.frm_continuation.Form.AllowDeletions = False End If End If End Sub المطلوب تحديد خانات الاختيار بالنموذج form_1 من الجدول FRM Ability للنموذج frm_continuation للمستخدم الحالي فقط عن طريق معرف المستخدم SN FRM Ability Dlookup.rar

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

الان اصبح يأتي بالنتيجة المطلوبة فقط لو توجد طريقة اسهل من طريقة عمل استعلام لاستددعاء الرقم من اي مكان طالما قاعدة البيانات مفتوحة

عفوا اخي يبدو عفوا اخي اتضح لي ان الطريقة التي وضعتها تقوم بادراج اسم المستخدم وانا اريد ادراج الرقم من حقل sn بالنسبة لاسم المستخدم الطريقة عند تحميل النموذج Me.texit= myuser.fullname حاولت تطبيقها للحقل sn ولكن لم تنفع الطريقة

الله يعطيك العافية اخي الكريم الذي يظهر اسم المستخدم وانا اريد اظهار رقم sn بالجدول users للمستخدم الحالي

السلام عليكم ورحمة اللله وبركاتة المطلوب عند النقر على زر الأمر ادراج رقم ٍSN المستخدم الحالي من الجدول users بمربع النص sn في النموذج form1 Un3OpenForm.rar

رفع

مساء الخير أخوتي فكرت في ان اجعل الامر عن طريق كود تحت زر الامر cmd 1 في الفورم form1 ولكن واجه مشكلة في تعريف المتغير في هذا الكود Private Sub cmd1_GotFocus() Dim c As String c = "[" & Choose(Ability, "o", "A", "d", "e") & "]" r = DLookup(c, "FRM Ability", "FRM = Tbl_continuation and SN = " & Str(UserNum)) If O = 0 Then MsgBox "لاتملك صلاحية" Exit Sub Else If A = 0 Then Me.Tbl_continuation.Form.AllowAdditions = False ElseIf E = 0 Then Me.Tbl_continuation.Form.AllowEdits = False ElseIf D = 0 Then Me.Tbl_continuation.Form.AllowDeletions = False End If End If End Sub لكن بسبب عدم معرفتي التامة في تعريف المتغيرات واجهة مشكلة في تعريف المتغير "O" "A" "E" "D" امل المساعدة في تعريف المتغير

رفع