تفضل
عند تشغيله على النموذج الموجود لا يعمل
ولكن عند عمل نموذج جديد يعمل
أعتقد ان هناك مشكلة فى النموذج المرفوع
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