ارجو حل هذه المعضله في كود حفظ البيانات في القاعدة

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

ممكن حضرتك ترفق البرنامج وسنحاول التعديل عليه ان شاء الله

========

الى اللقاء

انت مستخدم شرطين ينطبق على قيمه واحده :

If T = True Then .AddNew

و عندك هنا

If T = True Then

لكن شوف جرب واستخدم الكود كالتالي رغم انني ماني فاهم وش تقصد بالضبط .

If T = True Then 
With rc
  .AddNew
  ![flday] = lbday
  ![fldate] = Date
  ![flclose] = Time
  .Update
End With

Exit Sub
End if

If T = True Then
   rc.Requery
   rc.MoveNext
End if

بسم الله الرحمن الرحيم

اشكركم على المبادرة ..

لقد جربت الكود الذي ارفقه الاخ ( العقده ) ولكن هذا الكود وكأنه لم يعمل لايعدل ولا يضيف بعكس السابق

فهل من منقذ لهذا الكود

وشكرا

اختبر قيمة T قبل التنفيذ حتى تتاكد من تنفيذ العمليات في حالة اصبحت قيمة T صحيحة :

Msgbox T

If T = True Then 
With rc
  .AddNew
  ![flday] = lbday
  ![fldate] = Date
  ![flclose] = Time
  .Update
End With

Exit Sub
End if

If T = True Then
   rc.Requery
   rc.MoveNext
End if

فالكود كله يعتمد على قيمة T