محمد سعيد رشاد قام بنشر ديسمبر 10, 2020 مشاركة قام بنشر ديسمبر 10, 2020 اخوانى اريد عند فتح الكمبيوتر بعد ثلاثه ايام أن يضيف ثلاثه سجلات فى الجدول بعد فحص اخر تاريخ ويتوقف عند تاريخ أمس حاولت مرارا دون فائده استخدمت loop دون فاءده رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر ديسمبر 10, 2020 الكاتب مشاركة قام بنشر ديسمبر 10, 2020 تفيدونا جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 11, 2020 مشاركة قام بنشر ديسمبر 11, 2020 تفضل Private Sub Form_Load() Dim i, ii As Byte Dim dt1, dt2 As Date dt1 = DMax("dater1", "table1") dt2 = (Date) - 1 i = dt2 - dt1 For ii = 1 To i DoCmd.GoToRecord , , acNewRec dt1 = dt1 + 1 Me.dater1 = dt1 Next Me.Requery End Sub وهذا تطبيق : db4.mdb 2 1 رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر ديسمبر 11, 2020 الكاتب مشاركة قام بنشر ديسمبر 11, 2020 I=dt2-dti. هذه الجمله تم تلوينها باالاصفر فى برنامج ى رغم انا مرفق حضرتك ماشاء الله هو طلبة وشغال تمام شاكر اهتمامك أستاذة مع العلم انى متابع جيد لحضرتك جعل الله كل متابعتكم فى ميزان حسناتك استاذى رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر ديسمبر 11, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 11, 2020 غريب طيب جرب تعمل تجزئة للسطر هذا : Dim i, ii As Byte بحيث يصبح Dim i As Byte Dim ii As Byte رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر ديسمبر 11, 2020 الكاتب مشاركة قام بنشر ديسمبر 11, 2020 جربت دون فائده استاذى رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 11, 2020 مشاركة قام بنشر ديسمبر 11, 2020 لو ارفقت مثالا بسيطا يشتمل على المشكلة كي يتم تشخيصها احيانا .. عمل ضغط واصلاح لقاعدة البيانات يحل بعض المشاكل رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر ديسمبر 11, 2020 مشاركة قام بنشر ديسمبر 11, 2020 3 ساعات مضت, محمد سعيد رشاد said: I=dt2-dti. هذه الجمله اضافة الي ما تفضل به أستاذي الجليل لاحظت أن هناك خطأ بالجملة التي أشرت اليه حضرتك مختلف عن كود أستاذنا أبو خليل حيث أن الكود الأصلي مكتوب هكذا 10 ساعات مضت, ابوخليل said: i = dt2 - dt1 أما كود حضرتك هو I=dt2-dti. (لاحظ حرف الـ i بدل رقم 1) ربما كان هذا هو سبب الخظأ لديك رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر ديسمبر 11, 2020 الكاتب مشاركة قام بنشر ديسمبر 11, 2020 اخى ابوخليل سأحاول رفع الملف قدر الإمكان لان النت عندى على الموبيل وليس الكمبيوتر ولكن اكيد سأحاول وساجرب الضغط والاصلاح بس اختلاف نسخه الويندوز ممكن يكون سبب. ؟؟ رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر ديسمبر 11, 2020 مشاركة قام بنشر ديسمبر 11, 2020 هل جربت التعديل وفقا لردي بالمشاركة السابقة رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر ديسمبر 11, 2020 الكاتب مشاركة قام بنشر ديسمبر 11, 2020 اخى ابو عبدالله جزاك الله خيرا لكن خطأ الكتابه ليس هو المشكله رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر ديسمبر 12, 2020 الكاتب مشاركة قام بنشر ديسمبر 12, 2020 اخى ابوخليل البرنامج بتاعك لما حذفت كل التواريخ وكتبت اول تاريخ من سنه فاتت حصلت نفس المشكله بتاعتى فى البرنامج بتاعك ممكن يكون مشكله فى تاريخ الكمبيوتر مثلا ولا ايه؟؟ رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 12, 2020 مشاركة قام بنشر ديسمبر 12, 2020 9 ساعات مضت, محمد سعيد رشاد said: اخى ابوخليل البرنامج بتاعك لما حذفت كل التواريخ وكتبت اول تاريخ من سنه فاتت حصلت نفس المشكله بتاعتى فى البرنامج بتاعك ممكن يكون مشكله فى تاريخ الكمبيوتر مثلا ولا ايه؟؟ انت ذكرت المدة يومين او ثلاثة فأعطيتك الاجابة حسب الطلب اما من سنة فهذا يعني ان عدد الايام سيزيد كثيرا لذا غير السطر التالي : Dim i, ii As Byte الى : Dim i, ii As Integer رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر ديسمبر 12, 2020 الكاتب مشاركة قام بنشر ديسمبر 12, 2020 جزاك الله خيرا فقد وفيت شكرا اخى ابو خليل 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 12, 2020 مشاركة قام بنشر ديسمبر 12, 2020 (معدل) في ١١/١٢/٢٠٢٠ at 10:24, ابوخليل said: تفضل Private Sub Form_Load() Dim i, ii As Byte Dim dt1, dt2 As Date dt1 = DMax("dater1", "table1") dt2 = (Date) - 1 i = dt2 - dt1 For ii = 1 To i DoCmd.GoToRecord , , acNewRec dt1 = dt1 + 1 Me.dater1 = dt1 Next Me.Requery End Sub السلام عليكم ورحمة الله تعالى وبركاته أستاذي الجليل و معلمي القدير و والدى الحبيب الأستاذ @ابوخليل تحية عطرة طيبة بعد اذن حضرتك ممكن أشارك بفكرة أخرى Private Sub Form_Load() Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop End Sub تم تعديل ديسمبر 12, 2020 بواسطه ابا جودى رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 13, 2020 مشاركة قام بنشر ديسمبر 13, 2020 ولا اجمل .. فكرة جميلة مختصرة رائعة .. سعدت بمشاركتك جربت الكود فوجدته يدرج حتى تاريخ الغد واخونا محمد سعيد يريده ان يتوقف عند تاريخ أمس لذا اضفت اليه سطرا لتقييده Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 13, 2020 مشاركة قام بنشر ديسمبر 13, 2020 6 ساعات مضت, ابوخليل said: ولا اجمل .. فكرة جميلة مختصرة رائعة .. سعدت بمشاركتك جربت الكود فوجدته يدرج حتى تاريخ الغد واخونا محمد سعيد يريده ان يتوقف عند تاريخ أمس لذا اضفت اليه سطرا لتقييده Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop جزاكم الله خيرا أستاذي الجليل و معلمي القدير و والدى الحبيب الأستاذ @ابوخليل تحية عطرة طيبة لم أنتبه لانه يدرج تاريخ الغد اعتذر سلمتم وسلمت يمناكم رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 13, 2020 مشاركة قام بنشر ديسمبر 13, 2020 أى طريقة افضل هذه Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop أم تلك Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("table1") Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) rs.AddNew rs("dater1") = dt + 1 rs.Update Loop rs.Close Set rs = Nothing رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر ديسمبر 14, 2020 الكاتب مشاركة قام بنشر ديسمبر 14, 2020 غمرتمونى بكرم اخلاقكم وعلمكم جزاك الله خير ا اخى ابو خليل واخى أبا جودة لكن طمعت فيكما قليلا هل من الممكن استخدام dim rs as recodest لكى استطيع ان استخدمrs.edit للتعديل على باقى السجل التانيه رائعه أبا جودة المجانيه استخدام rs.edit والتعديل على باقى السجل اخى أبا جودي رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 14, 2020 مشاركة قام بنشر ديسمبر 14, 2020 8 ساعات مضت, ابا جودى said: أى طريقة افضل حسب الاحتياج الطريقة الثانية بلا وسيط تتجاوز النموذج الى الجدول مباشرة رابط هذا التعليق شارك 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.