تسجيل الحقول تلقائياً

[Fouad Aldalwe]

السلام عليكم ورحمة الله وبركاته، قمت بأنشاء قاعدة بيانات وقمت بإدخال بيانات 80 سجل وقد أضفت حقل جديد يأخذ قيمة نصية محددة، كيف أضيف هذه القيمة لجميع السجلات دفعة واحدة بدون المرور بالنسخ واللصق لكل سجل ولا يمكن اللجوء للقيمة الافتراضية لاني بالفعل قد ادخلت 80 سجل. شكراً لتفهمكم أساتذتي. 

[kanory]

6 ساعات مضت, Fouad Aldalwe said:

السلام عليكم ورحمة الله وبركاته، قمت بأنشاء قاعدة بيانات وقمت بإدخال بيانات 80 سجل وقد أضفت حقل جديد يأخذ قيمة نصية محددة، كيف أضيف هذه القيمة لجميع السجلات دفعة واحدة بدون المرور بالنسخ واللصق لكل سجل ولا يمكن اللجوء للقيمة الافتراضية لاني بالفعل قد ادخلت 80 سجل. شكراً لتفهمكم أساتذتي. 

ابسط طريقة هو عمل استعلام تحديث

اذا لم تعرف تطبقها ضع مثال مبسط للتنفيذ

[Eng.Qassim]

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

انسخ هذا الفكشن في موديول

Function updateMyField() As Boolean

    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("Table1")
    
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        Do Until rs.EOF
            If Nz(rs!Field1, "") = "" Then
                rs.Edit
                rs!Field1 = "اوفيسنا"
                rs.Update
            End If
            rs.MoveNext
        Loop
    End If
    
    Set rs = Nothing
    
     updateMyField = True

End Function

   Table1  اسم الجدول

Field1 اسم الحقل الجديد في الجدول

"اوفيسنا"  ..النص الذي تريد نسخه

ثم تقوم بأستدعاء الدالة من زر في النموذج هكذا

call updateMyField

 

 

[Moosak]

ويمكنك استخدام السطر التالي لتحديث جميع الحقول 🙂 :

CurrentDb.Execute "UPDATE TableName SET FieldName = 'النص المراد إضافته' "

 

[Eng.Qassim]

21 ساعات مضت, Moosak said:

ويمكنك استخدام السطر التالي لتحديث جميع الحقول

اختصرها استاذ موسى بجملة سكوال واحدة 😃