طلب شرح الكود

[yms12]

الاخوة الكرام

ارجو شرح الكود التالي وبالاخص سطر

If Nz(RC1(3), "") = "" Then
****************

    Dim SQL1, SX1 As String

    Dim RC1 As Recordset

    Set RC1 = CurrentDb.OpenRecordset("01_001_015", dbOpenDynaset)

    RC1.MoveFirst

    Do Until RC1.EOF

        If Nz(RC1(3), "") = "" Then

            RC1.Edit

            RC1(3) = SX1

            RC1.Update

        Else
            SX1 = RC1(3)

        End If

        RC1.MoveNext

    Loop

    RC1.Close


       'MsgBox "Done 1 / 50 "

[رمهان]

اهلا بك

اولا يقوم الكود بفتح جدول او استعلام ثم يلف على جميع السجلات فاحصا الحقل الرابع اذا كان فارغا من نوع null يقوم بتعديله الى قيمة sx1 ولكن لاحظ ان هذا المتغير ليس به قيمة . فياهل ترى المراد من الكود هو تعديل القيم من null الى طول صفري ام ان هناك نقص في الكود .

والسطر المقصود هو الذي يفحص ان الحقل الرابع خاليا بقيمة null

بالتوفيق واعتذر حيث اكتب من الموبايل

[yms12]

الشكر موصول الى الاستاذ رمهان

جزاك الله خيرا

[رمهان]

لحظة اخي 

اتوقع يقوم الكود بتعديل الحقل اذا كان فارغا بقيمة الحقل للسجل السابق

 

واذا كنت تريد اختصار الكود لك !! فيمكن وعند الجلوس عالكمبيوتر 

بالتوفيق

تم تعديل أبريل 29, 2015 بواسطه رمهان