This simple project will simply insert a null value to a date/time field if the checkbox within DateTimePicker is False.

In order to determine if the Checkbox is true/false you need to use the isNull function.

1. Private
   
   Sub
   
   CmdInsert_Click()
   
2. Dim
   
   cn As
   
   New
   
   Connection
   
3. Dim
   
   strSQL As
   
   String
   
4. 
   
5. cn.Open
   
   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
   
   & App.Path & "\Data.mdb;"
   
6. 
   
7. strSQL = "INSERT INTO NOSOld (Name, Specialization, Date_of_NOS, Date_Encoded, Case_Officer, Notes, Status) "
   
   _
   
8. & "VALUES ('MORENO, JOSAPED', 'HACKER', "
   
   & IIf(IsNull(DTPicker1), "Null"
   
   , DTPicker1.Value) & ", "
   
   & IIf(IsNull(DTPicker2), "Null"
   
   , DTPicker2.Value) & ", 'AVECILLA, PAUL VINCENT', 'ENCODED BY SEM', 'OLD')"
   
9. 
   
10. Debug.Print
    
    strSQL
    
11. 
    
12. cn.Execute strSQL
    
13. 
    
14. MsgBox "Record inserted successfully..."
    
    , vbInformation
    
15. End
    
    Sub
    

I created this sample project to answer the question of shaolin at http://www.sourcecodester.com/forum...icker-ms-access-db-with-a-datetime-field-type.

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.

2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.