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

[ابو عبدلله]

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

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

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

chk.rar

تم تعديل مارس 11, 2017 بواسطه ابو عبدلله

[Shivan Rekany]

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

[ابو عبدلله]

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

اتفضل

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

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

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

مع كل الشكر

[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

تم تعديل مارس 12, 2017 بواسطه Shivan Rekany
مسح القاعدة قبل التعديل وارفاق قاعدة بعد التعديل

[ابو عبدلله]

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

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

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

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

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

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

ما فهمت قصدك

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

تحياتي

تم تعديل مارس 12, 2017 بواسطه ابو عبدلله

[Shivan Rekany]

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

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

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

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

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

اتفضل

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

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

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

 

 

chk.rar

تم تعديل مارس 12, 2017 بواسطه Shivan Rekany

[ابو عبدلله]

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

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

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

مع جزيل الشكر

[Shivan Rekany]

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

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

مع جزيل الشكر

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

[ابو عبدلله]

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

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

نعم

[Shivan Rekany]

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

نعم

غير خاصية النموذج داتا انتري الى نعم

شوف الصور

[ابو عبدلله]

الشكر الجزيل استاذ شفان بارك الله بك وزادك علماً

مع تقديري