hh88

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

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

القي نظرتا الى هذا

 

CODE.rar

حاولت اضيف حقلين جديدة ولكن لازلت لم تضبط معي

CODE11201.rar

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

القي نظرتا الى هذا

 

CODE.rar

جميل جدا ماشا الله تبارك الله

انا بحاول اضيف حقل جديد واطبق الطريقة واشوف

شكراً استاذي المتميز

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

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

اتفضل

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

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

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

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

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

 

slamaa.rar

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

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

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

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

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

CODE.rar

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

ما فهمت قصدك ... هل قصدك سجل جديد ؟
 

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

slamaa.rar

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

 

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

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

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

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

 

جعفر

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

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

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

slamaa.rar

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

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

ماشاء الله

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

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

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

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

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

 

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

 

جعفر

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

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

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

657.Database1.rar

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

 

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

 

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

 

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

 

جعفر

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

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

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

ماقدرت اعدله 

Database1.rar

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

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

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

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

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

ولكم الشكر