hh88 قام بنشر مايو 19, 2017 قام بنشر مايو 19, 2017 السلام عليكم ورحمة الله وبركاتة الاعزاء بالمنتدى المتميز عندما يراد عمل نموذج اختيار من checkbox يظهر في جدول البيانات ( نعم او لا ) حسب مسمى الحقل المختار اريد عند الاختيار في النموذج ان يظهر نفس المسمى في الجدول كسجل جديد هل الاكسس يمكن فيه ذلك؟ ولكم الشكر
jjafferr قام بنشر مايو 19, 2017 قام بنشر مايو 19, 2017 منذ ساعه, hh88 said: هل الاكسس يمكن فيه ذلك؟ وعليكم السلام أخي واهلا وسهلا بك في المنتدى الجواب هو نعم ، وتلقائيا جعفر 1
hh88 قام بنشر مايو 21, 2017 الكاتب قام بنشر مايو 21, 2017 في ١٩/٥/٢٠١٧ at 21:56, jjafferr said: وعليكم السلام أخي واهلا وسهلا بك في المنتدى الجواب هو نعم ، وتلقائيا جعفر اهلا وسهلا حبيبنا الله يحييك ويكرمك يارب هذا مثالي بالمرفق ماقدرت اعدله Database1.rar
jjafferr قام بنشر مايو 21, 2017 قام بنشر مايو 21, 2017 تفضل ، حسب فهمي للسؤال . جعفر 657.Database1.accdb.zip 2
jjafferr قام بنشر مايو 21, 2017 قام بنشر مايو 21, 2017 أحي لوسمحت لا تعمل اكثر من موضوع لنفس السؤال لقد تم حذف الموضوع الآخر شكرا لك أخي شفان جعفر 2
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 8 ساعات مضت, jjafferr said: أحي لوسمحت لا تعمل اكثر من موضوع لنفس السؤال لقد تم حذف الموضوع الآخر شكرا لك أخي شفان جعفر تأمر أمر على رأسي الف شكر حبيبنا جعفر على الرد انا كان ودي يطلع نوع التعامل في الجدول مثل (مميز - عادي - غير جيد) وليس ارقام 657.Database1.rar
Shivan Rekany قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 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 2
jjafferr قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 شكرا على البديل أخوي شفان هنا بدون بديل: . ثم الكود يصبح: Private Sub lst_Click() Me.نوع_التعامل = DLookup("[نوع اتعامل]", "التعامل", "[رمز الخدمة]=" & Me.lst) End Sub Private Sub opt_Click() Me.نوع_التعامل = DLookup("[نوع اتعامل]", "التعامل", "[رمز الخدمة]=" & Me.opt) End Sub جعفر 657.Database1.accdb.zip 2
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 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 ماشاء الله الف الف شكر استاذنا لماذا لايضيف سطر جديد عند كل خطوة
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 47 دقائق مضت, jjafferr said: شكرا على البديل أخوي شفان هنا بدون بديل: . ثم الكود يصبح: 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
jjafferr قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 1 دقيقه مضت, hh88 said: 1. حاولت اضيف عمود جديد بعنوان اخر ولكن ماهو راضي يضبط معاي ؟ 2. وهل ممكن الاسغناء عن اللسته والاكتفاء بالاختيار من المربع 1. هناك طريقتين لإضافة كائنات في Option Group: أ- اختار اللي تريده من قائمة التصميم Menu ، سنختار علامة الصح مثلا ، ثم لما تمرر الفأرة على Option Group ، سترى ان لونه اصبح اسود ، هنا تستطيع ان تضيف علامة الصح مع بقية الكائنات هناك ، ب- ان تعمل نسخ لكائن موجود مسبقا في Option Group ، وتلصقه مرة ثانية ، وبعد ها يجب ان تغير Option Value الكائن الجديد. 2. نعم تستطيع ، فانا كتبت لك "او" ، يعني عندك اختيارين وانت تختار الافضل لك ، وانا تعمدت ووضعت لك البديل الثاني (قائمة سرد وتحرير ListBox) ، حتى لما تضيف اي جديد في الجدول ، فانه يظهر لك مباشرة ، يعني عملية استباقية جعفر
Shivan Rekany قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 منذ ساعه, hh88 said: لماذا لايضيف سطر جديد عند كل خطوة ما فهمت قصدك ... هل قصدك سجل جديد ؟ 1
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 38 دقائق مضت, jjafferr said: 1. هناك طريقتين لإضافة كائنات في Option Group: أ- اختار اللي تريده من قائمة التصميم Menu ، سنختار علامة الصح مثلا ، ثم لما تمرر الفأرة على Option Group ، سترى ان لونه اصبح اسود ، هنا تستطيع ان تضيف علامة الصح مع بقية الكائنات هناك ، ب- ان تعمل نسخ لكائن موجود مسبقا في Option Group ، وتلصقه مرة ثانية ، وبعد ها يجب ان تغير Option Value الكائن الجديد. 2. نعم تستطيع ، فانا كتبت لك "او" ، يعني عندك اختيارين وانت تختار الافضل لك ، وانا تعمدت ووضعت لك البديل الثاني (قائمة سرد وتحرير ListBox) ، حتى لما تضيف اي جديد في الجدول ، فانه يظهر لك مباشرة ، يعني عملية استباقية جعفر اضفت حقل جديد في الجدول اسمه : (الاستقبال) ويحتوي على عناصر (مميز - عادي - غير جيد ) ولم استطع ارتباط النموذج بالجدول عند الاختيار آمل النظر في المرفق اخي جعفر slamaa.rar
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 (معدل) 20 دقائق مضت, Shivan Rekany said: ما فهمت قصدك ... هل قصدك سجل جديد ؟ نعم استاذنا اقصد ان يتم اضافة سجل جديد slamaa.rar تم تعديل مايو 22, 2017 بواسطه hh88
Shivan Rekany قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 (معدل) منذ ساعه, hh88 said: نعم استاذنا اقصد ان يتم اضافة سجل جديد لانك ليس في سجل جديد بل انت على سجل قديم تعمل تعديلات اتفضل عند تضغط على زر الحفظ راح يحفظ ما عملت ويفتح سجل جديد لكي تعمل سجل جديد اي اضفت هذا الكود Private Sub ÃãÑ80_Click() Docmd.Runcommand accmdsaverecord DoCmd.GoToRecord , , acNewRec End Sub اتفضل مع القاعدة شكرا لملاحظتك استاذنا @jjafferr slamaa.rar تم تعديل مايو 22, 2017 بواسطه Shivan Rekany
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 منذ ساعه, Shivan Rekany said: لانك ليس في سجل جديد بل انت على سجل قديم تعمل تعديلات اتفضل عند تضغط على زر الحفظ راح يحفظ ما عملت ويفتح سجل جديد لكي تعمل سجل جديد اي اضفت هذا الكود Private Sub ÃãÑ80_Click() Docmd.Runcommand accmdsaverecord DoCmd.GoToRecord , , acNewRec End Sub اتفضل مع القاعدة شكرا لملاحظتك استاذنا @jjafferr slamaa.rar الف مليون شكر لكم الاخ شفان والاخ جعفر والله استفدت كثير من تفاعلكم , اسال الله ان يرزقكم بواسع رزقه انا اضفت حقل جديد اسمه الرضا وعند الحفظ لايتم حفظه في الجدول كم في المثال المرفق اذا امكن الشرح لي في حاله الرغبة في اضافة حقل جديد CODE.rar
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 11 دقائق مضت, Shivan Rekany said: القي نظرتا الى هذا CODE.rar جميل جدا ماشا الله تبارك الله انا بحاول اضيف حقل جديد واطبق الطريقة واشوف شكراً استاذي المتميز
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 19 دقائق مضت, hh88 said: 33 دقائق مضت, Shivan Rekany said: القي نظرتا الى هذا CODE.rar حاولت اضيف حقلين جديدة ولكن لازلت لم تضبط معي CODE11201.rar
Shivan Rekany قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 جرب بدل ان تستخدم Me.السرعة استعمل هذا Me![السرعة] ووافيني بالنتيجة
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 منذ ساعه, Shivan Rekany said: جرب بدل ان تستخدم Me.السرعة استعمل هذا Me![السرعة] ووافيني بالنتيجة بجرب واعطيك خبر ان شاء الله
hh88 قام بنشر مايو 23, 2017 الكاتب قام بنشر مايو 23, 2017 17 ساعات مضت, Shivan Rekany said: جرب بدل ان تستخدم Me.السرعة استعمل هذا Me![السرعة] ووافيني بالنتيجة السلام عليكم حبيبنا واستاذي شفان ماشاء الله عليك اشتغل ضبط معاي والحمدلله الف شكر اخوي شفان على الشرح هل اقدر اعدل كل الاكواد مثل هذا , وهل اذا حبيت اضيف عنصر رابع جديد للسرعه هل يمكن بحيث يصبح (سريع - عادي - بطيئ - أخر : ويتم كتابة نص ) كما في المرفق CODE20177.rar
Shivan Rekany قام بنشر مايو 23, 2017 قام بنشر مايو 23, 2017 اضف في جدول السرعة "اخر " والقي نظرتا الى الكود الكود هو نفس الكود السابق تقريبا CODE20177.rar 1
hh88 قام بنشر مايو 27, 2017 الكاتب قام بنشر مايو 27, 2017 في ٢٣/٥/٢٠١٧ at 16:01, Shivan Rekany said: اضف في جدول السرعة "اخر " والقي نظرتا الى الكود الكود هو نفس الكود السابق تقريبا CODE20177.rar كل عام وانت بخير اخي شفان تم اضافة نص في حقل المستوى , اشكرك اخي شفان تم اضافة نموذج فرز , هل بالامكان الفرز حسب ماهو في القائمة, مرفق المثال وتقبل تحياتي CODE20177.rar
Shivan Rekany قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 2 ساعات مضت, hh88 said: تم اضافة نموذج فرز , هل بالامكان الفرز حسب ماهو في القائمة, مرفق المثال اهلا بك اخي الحبيب لكي لا يخرق القوانين المنتدى ولان هذه الطلب ليس كطلبك الاول لذا اذا تفضل ان تبحث عن كلمة فرز واذا ما وجدت ما تريد فتح موضوع جديد وان شاء الله راح تجدوني و كتير من الاعضاء المنتدى هناك حتى توصل الى مطلبك تقبل تحياتي 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.