رشبد قام بنشر مايو 20, 2023 مشاركة قام بنشر مايو 20, 2023 السلام عليكم ورحمة الله اخواني الكرام في المرفق اريد انشاء كود يعمل حلقة تكرارية داخل نمودج فرعي وجزاكم الله خيرا for next.accdb رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر مايو 20, 2023 مشاركة قام بنشر مايو 20, 2023 تفضل عند تشغيله على النموذج الموجود لا يعمل ولكن عند عمل نموذج جديد يعمل أعتقد ان هناك مشكلة فى النموذج المرفوع 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 رابط هذا التعليق شارك More sharing options...
رشبد قام بنشر مايو 20, 2023 الكاتب مشاركة قام بنشر مايو 20, 2023 عفوا استاد ليس هذا ما اقصد اريد كود يعمل حلقة تكرارية كهدا مثلا ولكن في اكسيل اريد تطبيقه على نمودج فرعي اكسيس وشكرا على مرورك 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوبسمله قام بنشر مايو 20, 2023 أفضل إجابة مشاركة قام بنشر مايو 20, 2023 السلام عليكم ورحمه الله وبركاته مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا اتفضل 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 وبالنسبه لما ذكره اخى محمد فالنموذج ليس به مشكله ولكن تقريبا اخى رشيد يستخدم اللغه الفرنسيه بجهازه فلذلك لم يعمل معك ومعى ايضا واحسنت بالاستيراد والتعديل بالتوفيق اخوانى 2 1 رابط هذا التعليق شارك More sharing options...
رشبد قام بنشر مايو 20, 2023 الكاتب مشاركة قام بنشر مايو 20, 2023 جزاك الله خيرا استاد ابوبسمله نعم هدا ما اريد بالظبط 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.