テキストボックスX1～Y1に数字(整数)を入力して、総和を求めたいです。  
x1□～y1□ 総和□ ボタン□

```

    Private Sub btnWa_Click()
    　
        Dim lSouwa As Long
    
        lSouwa = 0
    
        For  lSouwa = txtX1 To txtY1
               lSouwa = txtX1 + txtY1
        Next
    
        txtSouwa.Value = lSouwa
    
    End sub
    
```

一応、書いてはみましたが…。正しいプログラムを教えてください。
CC BY-SA 4.0
2018-11-26T13:08:49.640
50645
2018-12-08T08:22:41.663
2018-12-08T08:22:41.663
19110
31164
question
vba ms-access
Access VBAについて教えて下さい。
以前、@ITのサイトで [Access
VBAで学ぶ初心者のためのデータベース／SQL超入門](http://www.atmarkit.co.jp/ait/articles/1505/27/news020.html)
という連載（全12回）がありました（現在も閲覧可能です）。  
Accessのフォームの作り方、VBAによるフォームの操作・利用、SQLなどについて、とても判りやすい記事なので、一読されることをお勧めします。
CC BY-SA 4.0
2018-11-27T00:46:10.950
50658
2018-11-27T00:46:10.950
217
50645
answer