حلقة تكرارية داخل نمودج فرعي

[رشبد]

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

اخواني الكرام

في المرفق اريد انشاء كود يعمل حلقة تكرارية داخل نمودج فرعي 

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

for next.accdb

[محمد احمد لطفى]

تفضل 
عند تشغيله على النموذج الموجود لا يعمل 
ولكن عند عمل نموذج جديد يعمل 
أعتقد ان هناك مشكلة فى النموذج المرفوع
 

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE Table1 SET Table1.[date a] = Date() " & vbCrLf & "WHERE (((Table1.[date a]) Is Null));"
    DoCmd.SetWarnings True

 

for next.accdb

[رشبد]

عفوا استاد ليس هذا ما اقصد

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

وشكرا على مرورك

sub test
dim lr:lr=cells(rows.count,1).end(xlup).row
dim x
for x = 1 to lr
if cells(x,1)="" then
cells(x,1)=date
end if
next x

end sub

 

[ابوبسمله]

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

مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا

اتفضل

Private Sub Commande3_Click()
    Dim rs As Recordset
    
    Set rs = Me.Table1sub.Form.RecordsetClone
    
    For i = 0 To rs.RecordCount - 1
        If Len(rs.Fields("date a") & "") = 0 Then
            rs.Edit
            rs.Fields("date a") = Date
            rs.Update
        End If
        rs.MoveNext
    Next
    rs.Close
    Set rs = Nothing
End Sub

وبالنسبه لما ذكره اخى محمد فالنموذج ليس به مشكله ولكن تقريبا اخى رشيد يستخدم اللغه الفرنسيه بجهازه فلذلك لم يعمل معك ومعى ايضا واحسنت بالاستيراد والتعديل

بالتوفيق اخوانى

[رشبد]

جزاك الله خيرا استاد ابوبسمله

نعم هدا ما اريد بالظبط