I really need help

[fdelpuerto]

I’m trying to record date in access DB, but I’ve the following problem:

First at all, my regional setting is formated “dd-mm-yyyy” and I can’t change it

Well, if I enter date with day less 12, the program record date on format “mm-dd-yyyy”, but if I enter date with day more 12, the program record date on format “dd-mm-yyyy”, for example:

Enter date 3-6-2002 result 6-3-2002
Enter date 13-6-2002 result 13-6-2002

What is happening and how can I fix it.

I attach a sample

[mendhak]

I haven't downloaded the ZIP, but are you using the format() function to format your dates?

[khalik]

use formatdatetime() function

[fdelpuerto]

Can you try to downloaded the ZIP again...please

[oh1mie]

Do it this way:

Private Sub Command1_Click()
 
    Set db = OpenDatabase(App.Path & "\fecha.mdb")
    
    SQLGrabar = "INSERT INTO prueba (Inicio,fin) VALUES (" & gSQLDate(DTPicker1) & "," & gSQLDate(DTPicker2) & ")"
    db.Execute SQLGrabar
    
    Set rs = db.OpenRecordset("SELECT * FROM [prueba]")
   
    rs.MoveLast
    Label1 = rs!inicio
    Label2 = rs!fin
    
    
End Sub
Public Function gSQLDate(x As Date) As String
    If IsNull(x) Then
       gSQLDate = "NULL"
    Else
       gSQLDate = "#" & Month(x) & "/" & Day(x) & "/" & Year(x) & "#"
    End If
End Function

[fdelpuerto]

I try using format function, but it's the same

[khalik]

try out this

SQLGrabar = "INSERT INTO prueba(Inicio,fin) VALUES (#" & DTPicker1 & "#, #" & DTPicker2 & "#)"
    
  'change it to...

  
    SQLGrabar = "INSERT INTO prueba(Inicio,fin) VALUES (#" & FormatDateTime(DTPicker1, vbShortDate) & "#, #" & FormatDateTime(DTPicker1, vbShortDate) & "#)"

[mendhak]

or this way

SQLGrabar = "INSERT INTO prueba(Inicio,fin) VALUES (#" & format(DTPicker1,"dd/mm/yyyy") & "#, #" & format(DTPicker2,"dd/mm/yyyy") & "#)"

[fdelpuerto]

Thank oh1mie/Vic
that work properly