Setting the Default Value for a table column using a parameter 1

[bdpitta]

I have a button on one of my forms that sets the defualt value for a column in one of my tables. Here is the code:

Private Sub Command3_Click()
Dim con As ADODB.Connection
Dim sql As String

Set con = CurrentProject.Connection
sql = "ALTER TABLE BadDebts
ALTER COLUMN DateReserved SET DEFAULT 1/1/2000"

With con
.Execute sql
.Close
End With
Set con = Nothing
End Sub

This code works just fine, but what I would like to do is to enable the user to enter a default date of their choosing. How can I alter this code (or write something completely different) that would allow for the user to enter a date to be used in the alter table statement? (perhaps with a textbox or inputbox..)?

Thankyou

 

[kewo99]

Try this:
sql = "ALTER TABLE BadDebts
ALTER COLUMN DateReserved SET DEFAULT " & inputbox("Enter Default Date in m/d/yyyy format.&quot


Ken

 

[bdpitta]

Perfect!
Thank you very much.