اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

هل ممكن تغير نعم او لا من checkbox الى نفس القيمه


hh88

الردود الموصى بها

السلام عليكم ورحمة الله وبركاتة

الاعزاء بالمنتدى المتميز 

 

عندما يراد عمل نموذج اختيار من checkbox يظهر في جدول البيانات ( نعم او لا ) حسب مسمى الحقل المختار 

 

اريد عند الاختيار في النموذج ان يظهر نفس المسمى في الجدول كسجل جديد 

 

 

هل الاكسس يمكن فيه ذلك؟  

 

ولكم الشكر 

رابط هذا التعليق
شارك

في ١٩‏/٥‏/٢٠١٧ at 21:56, jjafferr said:

 

وعليكم السلام أخي:smile:

 

واهلا وسهلا بك في المنتدى:smile:

 

الجواب هو نعم ، وتلقائيا :smile:

 

جعفر

اهلا وسهلا حبيبنا 

 

الله يحييك ويكرمك يارب 

 

هذا مثالي بالمرفق 

 

ماقدرت اعدله 

 

Database1.rar

رابط هذا التعليق
شارك

8 ساعات مضت, jjafferr said:

أحي لوسمحت لا تعمل اكثر من موضوع لنفس السؤال:smile:

لقد تم حذف الموضوع الآخر:smile:

 

شكرا لك أخي شفان:smile:

 

جعفر

تأمر أمر على رأسي

 

الف شكر حبيبنا جعفر على الرد

 

انا كان ودي يطلع نوع التعامل في الجدول مثل (مميز - عادي - غير جيد) وليس ارقام 

 

 

657.Database1.rar

رابط هذا التعليق
شارك

28 دقائق مضت, hh88 said:

انا كان ودي يطلع نوع التعامل في الجدول مثل (مميز - عادي - غير جيد) وليس ارقام 

اتفضل 
تم اضافة هذا الكود على مثال استاذنا @jjafferr

هذا لاوبشن كروب

Private Sub opt_Click()
    If Me.opt = 1 Then
            Me.نوع_التعامل = "مميز"
        ElseIf Me.opt = 2 Then
            Me.نوع_التعامل = "عادي"
        ElseIf Me.opt = 3 Then
            Me.نوع_التعامل = "جيد جدا"
    End If
End Sub

وهذا ل ليست بوكس

Private Sub lst_Click()
    If Me.lst = 1 Then
            Me.نوع_التعامل = "مميز"
        ElseIf Me.lst = 2 Then
            Me.نوع_التعامل = "عادي"
        ElseIf Me.lst = 3 Then
            Me.نوع_التعامل = "جيد جدا"
    End If
End Sub

ما في فرق بينهما

واتفضل القاعدة الك بعد اضافة الكود

 

657.Database1.accdb.zip

  • Like 2
رابط هذا التعليق
شارك

شكرا على البديل أخوي شفان:smile:

 

هنا بدون بديل:

657.Clipboard02.jpg.39ea4b0c93a57e2810bc8f6addb8a615.jpg

.

ثم الكود يصبح:


Private Sub lst_Click()

    
    Me.نوع_التعامل = DLookup("[نوع اتعامل]", "التعامل", "[رمز الخدمة]=" & Me.lst)
End Sub

Private Sub opt_Click()

    Me.نوع_التعامل = DLookup("[نوع اتعامل]", "التعامل", "[رمز الخدمة]=" & Me.opt)
End Sub

جعفر

657.Database1.accdb.zip

  • Like 2
رابط هذا التعليق
شارك

37 دقائق مضت, Shivan Rekany said:

اتفضل 
تم اضافة هذا الكود على مثال استاذنا @jjafferr

هذا لاوبشن كروب


Private Sub opt_Click()
    If Me.opt = 1 Then
            Me.نوع_التعامل = "مميز"
        ElseIf Me.opt = 2 Then
            Me.نوع_التعامل = "عادي"
        ElseIf Me.opt = 3 Then
            Me.نوع_التعامل = "جيد جدا"
    End If
End Sub

وهذا ل ليست بوكس


Private Sub lst_Click()
    If Me.lst = 1 Then
            Me.نوع_التعامل = "مميز"
        ElseIf Me.lst = 2 Then
            Me.نوع_التعامل = "عادي"
        ElseIf Me.lst = 3 Then
            Me.نوع_التعامل = "جيد جدا"
    End If
End Sub

ما في فرق بينهما

واتفضل القاعدة الك بعد اضافة الكود

 

657.Database1.accdb.zip

ماشاء الله

 

الف الف شكر استاذنا

لماذا لايضيف سطر جديد عند كل خطوة

رابط هذا التعليق
شارك

47 دقائق مضت, jjafferr said:

شكرا على البديل أخوي شفان:smile:

 

هنا بدون بديل:

657.Clipboard02.jpg.39ea4b0c93a57e2810bc8f6addb8a615.jpg

.

ثم الكود يصبح:



Private Sub lst_Click()

    
    Me.نوع_التعامل = DLookup("[نوع اتعامل]", "التعامل", "[رمز الخدمة]=" & Me.lst)
End Sub

Private Sub opt_Click()

    Me.نوع_التعامل = DLookup("[نوع اتعامل]", "التعامل", "[رمز الخدمة]=" & Me.opt)
End Sub

جعفر

657.Database1.accdb.zip

معليش تحملي استاذ جعفر حتعبك معاي

 

جزاك الله خير

 

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

وهل ممكن الاسغناء عن اللسته والاكتفاء بالاختيار من المربع

كما في المثال التالي

 

slamaa.rar

رابط هذا التعليق
شارك

1 دقيقه مضت, hh88 said:

1. حاولت اضيف عمود جديد بعنوان اخر ولكن ماهو راضي يضبط معاي ؟

2. وهل ممكن الاسغناء عن اللسته والاكتفاء بالاختيار من المربع

 

1. هناك طريقتين لإضافة كائنات في Option Group:

  • أ- اختار اللي تريده من قائمة التصميم Menu ، سنختار علامة الصح مثلا ، ثم لما تمرر الفأرة على Option Group ، سترى ان لونه اصبح اسود ، هنا تستطيع ان تضيف علامة الصح مع بقية الكائنات هناك ،
  • ب- ان تعمل نسخ لكائن موجود مسبقا في Option Group ، وتلصقه مرة ثانية ، وبعد ها يجب ان تغير Option Value الكائن الجديد.

2. نعم تستطيع ، فانا كتبت لك "او" ، يعني عندك اختيارين وانت تختار الافضل لك ،

وانا تعمدت ووضعت لك البديل الثاني (قائمة سرد وتحرير ListBox) ، حتى لما تضيف اي جديد في الجدول ، فانه يظهر لك مباشرة ، يعني عملية استباقية:smile:

 

جعفر

رابط هذا التعليق
شارك

38 دقائق مضت, jjafferr said:

 

1. هناك طريقتين لإضافة كائنات في Option Group:

  • أ- اختار اللي تريده من قائمة التصميم Menu ، سنختار علامة الصح مثلا ، ثم لما تمرر الفأرة على Option Group ، سترى ان لونه اصبح اسود ، هنا تستطيع ان تضيف علامة الصح مع بقية الكائنات هناك ،
  • ب- ان تعمل نسخ لكائن موجود مسبقا في Option Group ، وتلصقه مرة ثانية ، وبعد ها يجب ان تغير Option Value الكائن الجديد.

2. نعم تستطيع ، فانا كتبت لك "او" ، يعني عندك اختيارين وانت تختار الافضل لك ،

وانا تعمدت ووضعت لك البديل الثاني (قائمة سرد وتحرير ListBox) ، حتى لما تضيف اي جديد في الجدول ، فانه يظهر لك مباشرة ، يعني عملية استباقية:smile:

 

جعفر

اضفت حقل جديد في الجدول اسمه : (الاستقبال) ويحتوي على عناصر (مميز - عادي - غير جيد )

ولم استطع ارتباط النموذج بالجدول عند الاختيار

 

آمل النظر في المرفق اخي جعفر :smile:

slamaa.rar

رابط هذا التعليق
شارك

منذ ساعه, hh88 said:

نعم استاذنا اقصد ان يتم اضافة سجل جديد

لانك ليس في سجل جديد بل انت على سجل قديم تعمل تعديلات

اتفضل

عند تضغط على زر الحفظ راح يحفظ ما عملت ويفتح سجل جديد لكي تعمل سجل جديد

اي اضفت هذا الكود

Private Sub ÃãÑ80_Click()
	Docmd.Runcommand accmdsaverecord
    DoCmd.GoToRecord , , acNewRec
End Sub

اتفضل مع القاعدة

شكرا لملاحظتك استاذنا @jjafferr

 

slamaa.rar

تم تعديل بواسطه Shivan Rekany
رابط هذا التعليق
شارك

منذ ساعه, Shivan Rekany said:

لانك ليس في سجل جديد بل انت على سجل قديم تعمل تعديلات

اتفضل

عند تضغط على زر الحفظ راح يحفظ ما عملت ويفتح سجل جديد لكي تعمل سجل جديد

اي اضفت هذا الكود


Private Sub ÃãÑ80_Click()
	Docmd.Runcommand accmdsaverecord
    DoCmd.GoToRecord , , acNewRec
End Sub

اتفضل مع القاعدة

شكرا لملاحظتك استاذنا @jjafferr

 

slamaa.rar

الف مليون شكر لكم

الاخ شفان والاخ جعفر

 

والله استفدت كثير من تفاعلكم , اسال الله ان يرزقكم بواسع رزقه

 

انا اضفت حقل جديد اسمه الرضا وعند الحفظ لايتم حفظه في الجدول كم في المثال المرفق

 

اذا امكن الشرح لي في حاله الرغبة في اضافة حقل جديد

CODE.rar

رابط هذا التعليق
شارك

17 ساعات مضت, Shivan Rekany said:

جرب بدل ان تستخدم


Me.السرعة

استعمل هذا


Me![السرعة]

ووافيني بالنتيجة

السلام عليكم حبيبنا واستاذي شفان

 

ماشاء الله عليك اشتغل ضبط معاي والحمدلله

الف شكر اخوي شفان على الشرح

 

هل اقدر اعدل كل الاكواد مثل هذا , وهل اذا حبيت اضيف عنصر رابع جديد للسرعه هل يمكن بحيث يصبح (سريع - عادي - بطيئ - أخر  :  ويتم كتابة نص ) كما في المرفق

CODE20177.rar

رابط هذا التعليق
شارك

في ٢٣‏/٥‏/٢٠١٧ at 16:01, Shivan Rekany said:

اضف في جدول السرعة "اخر "

والقي نظرتا الى الكود 
الكود هو نفس الكود السابق تقريبا

CODE20177.rar

كل عام وانت بخير اخي شفان 

 

تم اضافة نص في حقل المستوى , اشكرك اخي شفان 

 

تم اضافة نموذج فرز , هل بالامكان الفرز حسب ماهو في القائمة, مرفق المثال 

 

وتقبل تحياتي 

CODE20177.rar

رابط هذا التعليق
شارك

2 ساعات مضت, hh88 said:

تم اضافة نموذج فرز , هل بالامكان الفرز حسب ماهو في القائمة, مرفق المثال

اهلا بك اخي الحبيب

لكي لا يخرق القوانين المنتدى

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

تقبل تحياتي

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information