Setting data defaults programmatically

J

Jim Kennedy

Hi,
Instead of changing the default value of the table, I
would focus on the form. Here's one way I did this. I
added a command button next to the text box I wanted to
set the default value and added this code:

Private Sub cmdAccession_Click()
Dim strDefault As String

strDefault = Chr(34) & Me.Accession & Chr(34)

Me.Accession.DefaultValue = strDefault

End Sub
 
Top