ในช่อง textbox ผมทำรันตัวเลขเพิ่มอัตโนมัติไว้แล้ว
เเต่อยากถามเพิ่มว่า จะกำหนดอย่างไรว่าถ้า textbox ไม่มีค่าหรือเปิดมาใหม่ให้ใส่เป็น 1000 อัตโนมัต แล้วพอกดเพิ่มใส่ก็ค่อยบวกเพิ่มครับ

สรุปประมาณว่า ถ้าเปิดมาช่องไม่มีค่าใส่ 1000 เเต่มีค่าอยู่เเล้วก็บวกเพิ่มไป ครับ
รบกวนทีครับ

*ไม่มีค่าหรือเปิดมาใหม่ให้ใส่เป็น 1000 อัตโนมัต

- ที่เหตุการณ์ On Current ของฟอร์ม

Private Sub Form_Current()
    If IsNull(Me.Text0) Or Me.NewRecord Then
        Me.Text0 = 1000
    End If
End Sub

*แล้วพอกดเพิ่มใส่ก็ค่อยบวกเพิ่มครับ

- ที่เหตุการณ์ On Click

    Me.Text0 = Text0 + จำนวนที่ต้องการเพิ่ม

ประมาณนี้ครับ ปรับใช้ดู