Date Format in MS Access using a query

[astersathya]

Date Format in MS Access using a query

Hi

I want to alter the existing column's format using the alter query. The issue I am facing is I want to set the default date format of an existing "Date_Edit" column in "DD/MM/YYYY" format irrespective of Date format of the Operating System.
It would also be really appreciable if any body provides me the details regarding altering the attributes of an existing column.

Thanks and Regards
Sathya

[ADezii]

Date Format in MS Access using a query

Hi

I want to alter the existing column's format using the alter query. The issue I am facing is I want to set the default date format of an existing "Date_Edit" column in "DD/MM/YYYY" format irrespective of Date format of the Operating System.
It would also be really appreciable if any body provides me the details regarding altering the attributes of an existing column.

Thanks and Regards
Sathya

The best way to show you how you can Set/Retrieve Column Attributes is via an illustration. The following code will display certain Properties for a [DOB] (DATE) Field in tblEmployees. It will also modify its Default Value via 2 seperate Methods. Any other questions, feel free to ask.

Dim MyDB As DAO.Database, MyTDF As DAO.TableDef
Set MyDB = CurrentDb()
Set MyTDF = MyDB.TableDefs("tblEmployees")
 
With MyTDF
  Debug.Print "Allow Zero Lewngth: " & .Fields("DOB").AllowZeroLength
  Debug.Print "Attribute Value: " & .Fields("DOB").Attributes
  Debug.Print "Data Updateable: " & .Fields("DOB").DataUpdatable
  Debug.Print "Default Value: " & .Fields("DOB").DefaultValue
  'Change the Field's Default Value to #12/12/1960#
  .Fields("DOB").DefaultValue = #12/12/1960#        'OR
  CurrentDb.TableDefs("tblEmployees").Fields("DOB").DefaultValue = #12/12/1960#
  Debug.Print "Input Mask: & .Fields("; DOB; ").Properties("; InputMask; ").Value"
  Debug.Print "Name: " & .Fields("DOB").Name
  Debug.Print "Ordinal Position: " & .Fields("DOB").OrdinalPosition
  Debug.Print "Number of Properties: " & .Fields("DOB").Properties.Count
  Debug.Print "1st Property Name: " & .Fields("DOB").Properties(0).Name
  Debug.Print "6th Property Name: " & .Fields("DOB").Properties(5).Name
  Debug.Print "Required Field: " & .Fields("DOB").Required
  Debug.Print "Field Size: " & .Fields("DOB").Size
  Debug.Print "Source Table: " & .Fields("DOB").SourceTable
  Debug.Print "Field Type: " & .Fields("DOB").Type
  Debug.Print "Validation Rule: " & .Fields("DOB").ValidationRule
  Debug.Print "Validation Text: " & .Fields("DOB").ValidationText
End With