hh88 قام بنشر مايو 19, 2017 قام بنشر مايو 19, 2017 السلام عليكم ورحمة الله وبركاتة الاعزاء بالمنتدى المتميز عندما يراد عمل نموذج اختيار من checkbox يظهر في جدول البيانات ( نعم او لا ) حسب مسمى الحقل المختار اريد عند الاختيار في النموذج ان يظهر نفس المسمى في الجدول كسجل جديد هل الاكسس يمكن فيه ذلك؟ ولكم الشكر
jjafferr قام بنشر مايو 19, 2017 قام بنشر مايو 19, 2017 في 19/5/2017 at 17:53, hh88 said: هل الاكسس يمكن فيه ذلك؟ Expand وعليكم السلام أخي واهلا وسهلا بك في المنتدى الجواب هو نعم ، وتلقائيا جعفر 1
hh88 قام بنشر مايو 21, 2017 الكاتب قام بنشر مايو 21, 2017 في 19/5/2017 at 18:56, jjafferr said: وعليكم السلام أخي واهلا وسهلا بك في المنتدى الجواب هو نعم ، وتلقائيا جعفر Expand اهلا وسهلا حبيبنا الله يحييك ويكرمك يارب هذا مثالي بالمرفق ماقدرت اعدله Database1.rar
jjafferr قام بنشر مايو 21, 2017 قام بنشر مايو 21, 2017 تفضل ، حسب فهمي للسؤال . جعفر 657.Database1.accdb.zip 2
jjafferr قام بنشر مايو 21, 2017 قام بنشر مايو 21, 2017 أحي لوسمحت لا تعمل اكثر من موضوع لنفس السؤال لقد تم حذف الموضوع الآخر شكرا لك أخي شفان جعفر 2
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 في 21/5/2017 at 22:01, jjafferr said: أحي لوسمحت لا تعمل اكثر من موضوع لنفس السؤال لقد تم حذف الموضوع الآخر شكرا لك أخي شفان جعفر Expand تأمر أمر على رأسي الف شكر حبيبنا جعفر على الرد انا كان ودي يطلع نوع التعامل في الجدول مثل (مميز - عادي - غير جيد) وليس ارقام 657.Database1.rar
Shivan Rekany قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 في 22/5/2017 at 06:27, hh88 said: انا كان ودي يطلع نوع التعامل في الجدول مثل (مميز - عادي - غير جيد) وليس ارقام Expand اتفضل تم اضافة هذا الكود على مثال استاذنا @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 في 22/5/2017 at 06:59, 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.zipFetching info... Expand ماشاء الله الف الف شكر استاذنا لماذا لايضيف سطر جديد عند كل خطوة
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 في 22/5/2017 at 07:25, 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.zipFetching info... Expand معليش تحملي استاذ جعفر حتعبك معاي جزاك الله خير حاولت اضيف عمود جديد بعنوان اخر ولكن ماهو راضي يضبط معاي ؟ وهل ممكن الاسغناء عن اللسته والاكتفاء بالاختيار من المربع كما في المثال التالي slamaa.rar
jjafferr قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 في 22/5/2017 at 08:16, hh88 said: 1. حاولت اضيف عمود جديد بعنوان اخر ولكن ماهو راضي يضبط معاي ؟ 2. وهل ممكن الاسغناء عن اللسته والاكتفاء بالاختيار من المربع Expand 1. هناك طريقتين لإضافة كائنات في Option Group: أ- اختار اللي تريده من قائمة التصميم Menu ، سنختار علامة الصح مثلا ، ثم لما تمرر الفأرة على Option Group ، سترى ان لونه اصبح اسود ، هنا تستطيع ان تضيف علامة الصح مع بقية الكائنات هناك ، ب- ان تعمل نسخ لكائن موجود مسبقا في Option Group ، وتلصقه مرة ثانية ، وبعد ها يجب ان تغير Option Value الكائن الجديد. 2. نعم تستطيع ، فانا كتبت لك "او" ، يعني عندك اختيارين وانت تختار الافضل لك ، وانا تعمدت ووضعت لك البديل الثاني (قائمة سرد وتحرير ListBox) ، حتى لما تضيف اي جديد في الجدول ، فانه يظهر لك مباشرة ، يعني عملية استباقية جعفر
Shivan Rekany قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 في 22/5/2017 at 07:37, hh88 said: لماذا لايضيف سطر جديد عند كل خطوة Expand ما فهمت قصدك ... هل قصدك سجل جديد ؟ 1
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 في 22/5/2017 at 08:25, jjafferr said: 1. هناك طريقتين لإضافة كائنات في Option Group: أ- اختار اللي تريده من قائمة التصميم Menu ، سنختار علامة الصح مثلا ، ثم لما تمرر الفأرة على Option Group ، سترى ان لونه اصبح اسود ، هنا تستطيع ان تضيف علامة الصح مع بقية الكائنات هناك ، ب- ان تعمل نسخ لكائن موجود مسبقا في Option Group ، وتلصقه مرة ثانية ، وبعد ها يجب ان تغير Option Value الكائن الجديد. 2. نعم تستطيع ، فانا كتبت لك "او" ، يعني عندك اختيارين وانت تختار الافضل لك ، وانا تعمدت ووضعت لك البديل الثاني (قائمة سرد وتحرير ListBox) ، حتى لما تضيف اي جديد في الجدول ، فانه يظهر لك مباشرة ، يعني عملية استباقية جعفر Expand اضفت حقل جديد في الجدول اسمه : (الاستقبال) ويحتوي على عناصر (مميز - عادي - غير جيد ) ولم استطع ارتباط النموذج بالجدول عند الاختيار آمل النظر في المرفق اخي جعفر slamaa.rar
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 (معدل) في 22/5/2017 at 09:06, Shivan Rekany said: ما فهمت قصدك ... هل قصدك سجل جديد ؟ Expand نعم استاذنا اقصد ان يتم اضافة سجل جديد slamaa.rar تم تعديل مايو 22, 2017 بواسطه hh88
Shivan Rekany قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 (معدل) في 22/5/2017 at 09:26, hh88 said: نعم استاذنا اقصد ان يتم اضافة سجل جديد Expand لانك ليس في سجل جديد بل انت على سجل قديم تعمل تعديلات اتفضل عند تضغط على زر الحفظ راح يحفظ ما عملت ويفتح سجل جديد لكي تعمل سجل جديد اي اضفت هذا الكود Private Sub ÃãÑ80_Click() Docmd.Runcommand accmdsaverecord DoCmd.GoToRecord , , acNewRec End Sub اتفضل مع القاعدة شكرا لملاحظتك استاذنا @jjafferr slamaa.rar تم تعديل مايو 22, 2017 بواسطه Shivan Rekany
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 في 22/5/2017 at 09:59, Shivan Rekany said: لانك ليس في سجل جديد بل انت على سجل قديم تعمل تعديلات اتفضل عند تضغط على زر الحفظ راح يحفظ ما عملت ويفتح سجل جديد لكي تعمل سجل جديد اي اضفت هذا الكود Private Sub ÃãÑ80_Click() Docmd.Runcommand accmdsaverecord DoCmd.GoToRecord , , acNewRec End Sub اتفضل مع القاعدة شكرا لملاحظتك استاذنا @jjafferr slamaa.rarFetching info... Expand الف مليون شكر لكم الاخ شفان والاخ جعفر والله استفدت كثير من تفاعلكم , اسال الله ان يرزقكم بواسع رزقه انا اضفت حقل جديد اسمه الرضا وعند الحفظ لايتم حفظه في الجدول كم في المثال المرفق اذا امكن الشرح لي في حاله الرغبة في اضافة حقل جديد CODE.rar
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 في 22/5/2017 at 11:51, Shivan Rekany said: القي نظرتا الى هذا CODE.rarFetching info... Expand جميل جدا ماشا الله تبارك الله انا بحاول اضيف حقل جديد واطبق الطريقة واشوف شكراً استاذي المتميز
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 في 22/5/2017 at 12:04, hh88 said: في 22/5/2017 at 11:51, Shivan Rekany said: القي نظرتا الى هذا CODE.rarFetching info... Expand حاولت اضيف حقلين جديدة ولكن لازلت لم تضبط معي Expand CODE11201.rar
Shivan Rekany قام بنشر مايو 22, 2017 قام بنشر مايو 22, 2017 جرب بدل ان تستخدم Me.السرعة استعمل هذا Me![السرعة] ووافيني بالنتيجة
hh88 قام بنشر مايو 22, 2017 الكاتب قام بنشر مايو 22, 2017 في 22/5/2017 at 12:44, Shivan Rekany said: جرب بدل ان تستخدم Me.السرعة استعمل هذا Me![السرعة] ووافيني بالنتيجة Expand بجرب واعطيك خبر ان شاء الله
hh88 قام بنشر مايو 23, 2017 الكاتب قام بنشر مايو 23, 2017 في 22/5/2017 at 12:44, Shivan Rekany said: جرب بدل ان تستخدم Me.السرعة استعمل هذا Me![السرعة] ووافيني بالنتيجة Expand السلام عليكم حبيبنا واستاذي شفان ماشاء الله عليك اشتغل ضبط معاي والحمدلله الف شكر اخوي شفان على الشرح هل اقدر اعدل كل الاكواد مثل هذا , وهل اذا حبيت اضيف عنصر رابع جديد للسرعه هل يمكن بحيث يصبح (سريع - عادي - بطيئ - أخر : ويتم كتابة نص ) كما في المرفق CODE20177.rar
Shivan Rekany قام بنشر مايو 23, 2017 قام بنشر مايو 23, 2017 اضف في جدول السرعة "اخر " والقي نظرتا الى الكود الكود هو نفس الكود السابق تقريبا CODE20177.rar 1
hh88 قام بنشر مايو 27, 2017 الكاتب قام بنشر مايو 27, 2017 في 23/5/2017 at 13:01, Shivan Rekany said: اضف في جدول السرعة "اخر " والقي نظرتا الى الكود الكود هو نفس الكود السابق تقريبا CODE20177.rarFetching info... Expand كل عام وانت بخير اخي شفان تم اضافة نص في حقل المستوى , اشكرك اخي شفان تم اضافة نموذج فرز , هل بالامكان الفرز حسب ماهو في القائمة, مرفق المثال وتقبل تحياتي CODE20177.rar
Shivan Rekany قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 في 27/5/2017 at 11:37, hh88 said: تم اضافة نموذج فرز , هل بالامكان الفرز حسب ماهو في القائمة, مرفق المثال Expand اهلا بك اخي الحبيب لكي لا يخرق القوانين المنتدى ولان هذه الطلب ليس كطلبك الاول لذا اذا تفضل ان تبحث عن كلمة فرز واذا ما وجدت ما تريد فتح موضوع جديد وان شاء الله راح تجدوني و كتير من الاعضاء المنتدى هناك حتى توصل الى مطلبك تقبل تحياتي 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.