Question

Is there a way to autoincrement default value in text box assuming data type as text without having to create table? i needed this to happen when form loads.

Answer 1

This cannot be done when a form is opened, so you would need to call this Sub (located in a Module) to open the form:

Sub ChangeDefaultValue()
  DoCmd.Close acForm, "Form1"
  DoCmd.OpenForm "Form1", acDesign, , , , acHidden
  Dim f As Form
  Set f = Forms("Form1")
  Dim dv As Integer
  dv = f.Controls!Text0.DefaultValue
  f.Controls!Text0.DefaultValue = dv + 1
  DoCmd.Close acForm, "Form1", acSaveYes
  DoCmd.OpenForm ("Form1")
End Sub

You will need to change the form name “Form1” and TextBox name “Text0” to your names.