texbox의 기본값을 자동 증가시키는 방법

Question

테이블을 만들 필요없이 데이터 형식을 텍스트로 가정하고 텍스트 상자의 기본값을 자동 증가시키는 방법이 있습니까? 양식이로드 될 때이 작업이 필요했습니다.

Answer 1

양식이 열릴 때 양식 열 (모듈에 위치)이 하위 호출해야하는데, 그래서 이것은, 할 수 없습니다 :

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 

당신은 양식 이름 "Form1을 변경해야합니다을 "및 TextBox 이름"Text0 "을 입력하십시오.