السلام عليكم ورحمة الله وبركاته .. وكل عام وأنتم بألف خير بمناسبة قرب إطلاله هلال شهر رمضان ، أعاده الله علينا وعليكم وعلى الأمة الإسلامية بالخير واليمن والبركات ..
وبعد
واجهتني مشكلة بسيطة عندي محاولتي بإجراء تحديث على بعض السجلات داخل نطاق معين ، وقد أرفقت الكود أدناه للإطلاع عليه مشكورين ..
Dim db As Database
Dim rstStock As Recordset
Set db = CurrentDb()
هنا تكمن المشكلة ، لا يتم إجراء أي تحديث للسجلات داخل النطاق Between
Set rstStock = db.OpenRecordset("SELECT Stock.TicketID FROM Stock WHERE TicketID Between Me![From] And Me![To]")
With rstStock
.Edit
rstStock!DeleveryDate = Date
rstStock!InStock = False
.Update
End Withبارك الله فيكم