كيف يتم السماح بادخال قيمة فارغة لحقل من نوع تاريخ

[sandanet]

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

 

اخوتي واساتذتي الكرام تحية طيبة وبعد..

 

أبحث عن طريقة يمكن من خلالها السماح بادراج قيمة فارغة في خانة التاريخ عن طريق استخدام عبارة INSERT بشرط ان لا اضطر الى استعمال صيغتين لعبارة الـ INSERT واحدة في حال كانت خانة التاريخ فارغة واخرى لا.

 

 

 

example.accdb

[ابوبسمله]

وعليكم السلام اخى واستاذى @sandanet

اتفضل ان شاء الله يكون ما تريد

Private Sub Command25_Click()
Dim mydb, mydac
Dim strSQL As String

mydb = IIf(Nz(Me!textbox2.Value) = "", "Null", "#" & Me!textbox2.Value & "#")

    strSQL$ = ("INSERT INTO table1 ([fullname] , [date_birth]) VALUES('" & Me!textbox1 & "', " & mydb & ")")
    CurrentDb.Execute strSQL, dbFailOnError
    subfrm.Requery

MsgBox "تم حفظ البيانات بنجاح", vbInformation + vbMsgBoxRight, "تنبيه"

End Sub

بالتوفيق اخى

example(1).accdb

[sandanet]

3 ساعات مضت, احمد الفلاحجي said:

اتفضل ان شاء الله يكون ما تريد

اشكرك جزيل الشكر أخي احمد .. نعم هذا هو بالضبط ماكنت ابحث عنه .. الموضوع غريب نوعا ما حيث ان الكود دائما ماكان يعطيني خطأ حتى بالصيغة التي تفضلت بها خصوصا بعد اضافته الى برنامجي الرئيسي

وبعد البحث والتمحيص اكتشفت ان سبب الخطأ هو باستخدام Deftype statement في بداية الـ Modules كالتالي

Option Compare Database
Option Explicit
DefLng A-Z

 

تم تعديل مارس 3, 2021 بواسطه sandanet

[ابوبسمله]

السلام عليكم اخى اوس

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا والحمدلله انى قدرت اساعدك بشئ بالامس كنت مشغول شويه ولاننى لا علم لى بماذكرته عن Deftype statement فتركت التعليق حتى اقوم بالبحث والفهم  فقمت بالبحث ووجدت التالى ع موقع ميكروسوفت

الرابط

A Deftype statement affects only the module where it is used. For example, a DefInt statement in one module affects only the default data type of variables, arguments passed to procedures, and the return type for Function and Property Get procedures declared in that module; the default data type of variables, arguments, and return types in other modules is unaffected. If not explicitly declared with a Deftype statement, the default data type for all variables, all arguments, all Function procedures, and all Property Get procedures is Variant.

اتفضل تعديل فى وجود Deftype statement ولعلك وجدت الحل فى ظل وجوده

Option Compare Database
DefLng A-Z
Private Sub Command25_Click()
Dim mydb As Variant, mydac As Variant
Dim strSQL As String

mydb = IIf(Nz(Me!textbox2.Value) = "", "Null", "#" & Me!textbox2.Value & "#")

    strSQL$ = ("INSERT INTO table1 ([fullname] , [date_birth]) VALUES('" & Me!textbox1 & "', " & mydb & ")")
    CurrentDb.Execute strSQL, dbFailOnError
    subfrm.Requery

MsgBox "تم حفظ البيانات بنجاح", vbInformation + vbMsgBoxRight, "تنبيه"

End Sub

بالتوفيق اخى

example(1).accdb