كيف اخزن المتغير المرسل الى استعلام في جدول

insert_2.zip

مرحبا لقد قمت بتعديل الكود بحيث و ضعت بدل d1 و d2

startdate and enddate

و لغيت المتغيرين d1 , d2

,و نجحت في ذلك

و لكن بقي كيف نمنع ظهور التنبيه بانه سيتم ادخال بيان جديد للجدول

مرفق اليكم الملف بعد التعديل

insert3.rar

اخي الفاضل

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

انظر للكود بعد التعديل بعد اضافة او سطر فيه وهو خاص بإيقاف رسائل تحذير الإستعلامات الإجرائية مثل ( الحذف و الإلحاق والتحديث ) DoCmd.SetWarnings False

Private Sub CmdView_Click()
Dim sqlins As String
DoCmd.SetWarnings False
sqlins = "insert into logs (date1,date2) values(startDate,endDate)"
If IsNull(Me.startDate) Or IsNull(Me.endDate) Then
MsgBox "عذرا أخي الكريم فلم تقم بإدخال تاريخ البداية او النهاية"
Exit Sub
Me.startDate.SetFocus
Else
	DoCmd.OpenReport "models", acViewPreview
	DoCmd.RunSQL (sqlins)
End If
DoCmd.SetWarnings True
End Sub

وفي نهاية الكود نعيد تشغيل رسائل الأخطاء DoCmd.SetWarnings True

شكرا لك اختي الفاضلة زهرة و اله ما قصرتي ابدا

باقي لي استفسار بسيط جدا و هو هل استطيع جعل المستخدم يدخل تاريخ البداية و النهاية من اليمين الى اليسار بنفس الفورمات الموجود بالملف يعني ان يبدأ بكتابة اليوم ثم الشهر ثم السنة بدل ان يبدا بالسنة ثم الشهر ثم اليوم

و شكرا لك