اذهب الي المحتوي
أوفيسنا

جعل خانة الاختيار نعم للسجل المحدد ؟


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

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

وعدم تكرار الاسم اكثر من مرة

ولكم كل الشكر ؟
مع تقديري و احترامي

chk.rar

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

5 ساعات مضت, ابو عبدلله said:

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

وعدم تكرار الاسم اكثر من مرة

ولكم كل الشكر ؟
مع تقديري و احترامي

chk.rar

اتفضل هذا 

استخدمت هذا الكود بعد اضافة حقل اخر في جدول باسم yn

Dim SQL As String
    Dim SQL1 As String
        SQL = "UPDATE stu SET stu.yn = false WHERE (stu.id_stu)<>[Forms]![stu]![id_stu]"
        DoCmd.RunSQL SQL
        Me.تدقيق7 = True
        Me.Refresh

اليك ملفك بعد تعديل

 

chk.rar

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

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

اتفضل

زادك الله فضلاً وعلماً وبارك الله بك أخي Shivan Rekany

ولكن عند الضغط على سجل فارغ يقوم بالاضافة هل من حل للمشكلة ؟

وعندما تكون المادة مضافة لا تضاف مرة أخر بالنموذج الفرعي

مع كل الشكر

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

18 ساعات مضت, ابو عبدلله said:

زادك الله فضلاً وعلماً وبارك الله بك أخي Shivan Rekany

ولكن عند الضغط على سجل فارغ يقوم بالاضافة هل من حل للمشكلة ؟

بالنسبة لاضافة سجل جديد تكدر تستخدم هذا الكود بدل الكود السابق

On Error Resume Next
If Me.id_stu = NewRecord Or IsNull(Me.id_stu) = True Then
    Exit Sub
Else
    Dim SQL As String
        Dim SQL1 As String
            SQL = "UPDATE stu SET stu.yn = false WHERE (stu.id_stu)<>[Forms]![stu]![id_stu]"
            DoCmd.RunSQL SQL
        Me.ÊÏÞíÞ7 = True
    Me.Refresh
End If

لكن 

18 ساعات مضت, ابو عبدلله said:

وعندما تكون المادة مضافة لا تضاف مرة أخر بالنموذج الفرعي

ما فهمت قصدك

اليك قاعدة بعد تعديل

 

 

chk.rar

تم تعديل بواسطه Shivan Rekany
مسح القاعدة قبل التعديل وارفاق قاعدة بعد التعديل
  • Like 1
رابط هذا التعليق
شارك

1 ساعه مضت, Shivan Rekany said:

اليك قاعدة بعد تعديل

شكرك كل الشكر أخي الكريم شفان والكود يعمل بشكل المطلوب

ولكن سؤال هل نستطيع اخفاء سجل الجديد واظهاره بعد ادخال اسم جديد ؟؟

اي السجل المستمر التالي

1 ساعه مضت, Shivan Rekany said:

ما فهمت قصدك

أقصد أنه منع تكرار نفس الاسم

تحياتي

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

2 ساعات مضت, ابو عبدلله said:

ولكن سؤال هل نستطيع اخفاء سجل الجديد واظهاره بعد ادخال اسم جديد ؟؟

كيف ندخل اسم جديد حين بيكون سجل جديد مخفي ؟ او انا مافهمت قصدك

2 ساعات مضت, ابو عبدلله said:

أقصد أنه منع تكرار نفس الاسم

اتفضل

استخدم هذا الكود قبل اوبديت اي قبل تحديث لحقل اي دي نام

If DCount("[id_name]", "STU", "[id_name]='" & Me.id_name & "'") > 0 Then
MsgBox ("هذا الاسم مدخل مسبقا")
Cancel = -1
End If

اتفضل ملفك بعد تعديل

 

 

chk.rar

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

1 ساعه مضت, Shivan Rekany said:

كيف ندخل اسم جديد حين بيكون سجل جديد مخفي

اذا كان هذا السجل رقمه 1 يكون ظاهر ولا يظهر السجل الذي يليه إلا عندما نكمل الاسم والخروج منه

مع جزيل الشكر

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

17 دقائق مضت, ابو عبدلله said:

اذا كان هذا السجل رقمه 1 يكون ظاهر ولا يظهر السجل الذي يليه إلا عندما نكمل الاسم والخروج منه

مع جزيل الشكر

اي يعني ما تريد ان يظهر السجلات الا سجل واحد لكي تدخل البيانات ؟
هل انا فهمت بالصحيح 

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

  • 2 weeks later...

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