[ تمت الإجابة ]تعبئة جدول بالكود

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

اخي الكريم ...

مثال لو سمحت حتى نتمكن من محاولة الحل عليه

======

طبتم واهتديتم

الأخ ايهاب عثمان تحية طيبة

هذا المثال في المرفق

ونسعد بمشاركتك

1.zip

ساعدونا يا شباب!!!!!!!!!!!!!!!!

	Dim d1 As Date, d2 As Date
	T_1.SetFocus
	d1 = CDate(T_1.Text)
	T_2.SetFocus
	d2 = CDate(T_2.Text)

	If d1 > d2 Then
		MsgBox "The initial date is after the finish date!"
		Exit Sub
	End If

	DoCmd.SetWarnings False
	Do Until d1 >= d2
		DoCmd.RunSQL "insert into T_1 (dateField) values (#" & d1 & "#);"
		d1 = DateAdd("d", 1, d1)
	Loop
	DoCmd.SetWarnings True

أحسنت وبارك الله فيك على هذا الكود الجميل

هذا هو المطلوب بالضبط