はじめまして。
VBでフォームに作ったテキストボックス(text1、text2、text3)に値を入れてコマンドボタンを押したらAccessのテーブルに値を登録できるようにしたいのですが上手くいきません。自分で調べながらコーディングしたのですが上手く動かずどうすれば動くのかVBのコーディングを教えていただきたいです。よろしくお願いします。
[Accessのファイル名]
db1.mdb
[db1.mdbのテーブル名]
ListName
[ListNameの各項目]
名前、住所、生年月日
[VBのフォーム]
text1.textbox、text2.textbox、text3.textbox
Add.command
[コーディングの内容]
Microsoft DAO 3.6 Object Library参照設定
Private Sub Add_Click()
Dim strSQL As String
Dim dbName As String
Dim dbs As DAO.Database
Dim myset As DAO.Recordset
Dim ws As DAO.Workspace
Set ws = DBEngine.Workspaces(0)
Set dbs = ws.OpenDatabase("C:\db1.mdb")
If Dir("C:\db1.mdb") <> "" Then
strSQL = "INSERT INTO Listname (名前,生年月日, _
住所) values(text1.text, text2.text, text3.text)"
Me.AutoRedraw = True
Set myset = dbs.OpenRecordset(strSQL)
End If
End Sub
※無効な処理です。というエラーが出ます。
「Cell（ n , "A" ）よりも10上のセルに1 or 2 が記入されていなければ、Cell（ n , "A" ）に1を記入する」
というコードを作ってみましたが、メチャクチャな動きになってしまいます（動きが読めません）。
どこが間違っているのか教えてください。
また、もし、よりわかりやすいコードがありましたら教えていただけると嬉しいです。
よろしくお願いいたします。
Sub Cell（ n , "A" ）に1を記入する()
Dim n As Long
Dim m As Long
Dim s As Long
'現在のセル（ n , "A" ）より14行上に数値がないことを確認するために
'14行上のセルを全て足し算しています。
For m = n - 14 To n - 1
s = s + Worksheets("Sheet1").Cells(m, "A").Value
Next
'足し算結果がゼロならば何も記入していないと判断し、
'数字の「1」を記入します。
If s >= 1 Then
Worksheets("Sheet1").Cells(n - 1, "A").Value = 0
ElseIf s = 0 Then
Worksheets("Sheet1").Cells(n - 1, "A").Value = 1
End If
End Sub
「Cell（ n , "A" ）よりも10上のセルに1 or 2 が記入されていなければ、Cell（ n , "A" ）に1を記入する」
というコードを作ってみましたが、メチャクチャな動きになってしまいます（動きが読めません）。
どこが間違っているのか教えてください。
また、もし、よりわかりやすいコードがありましたら教えていただけると嬉しいです。
よろしくお願いいたします。
Sub Cell（ n , "A" ）に1を記入する()
Dim n As Long
Dim m As Long
Dim s As Long
'現在のセル（ n , "A" ）より14行上に数値がないことを確認するために
'14行上のセルを全て足し算しています。
For m = n - 14 To n - 1
s = s + Worksheets("Sheet1").Cells(m, "A").Value
Next
'足し算結果がゼロならば何も記入していないと判断し、
'数字の「1」を記入します。
If s >= 1 Then
Worksheets("Sheet1").Cells(n - 1, "A").Value = 0
ElseIf s = 0 Then
Worksheets("Sheet1").Cells(n - 1, "A").Value = 1
End If
End Sub
「Cell（ n , "A" ）よりも10上のセルに1 or 2 が記入されていなければ、Cell（ n , "A" ）に1を記入する」
というコードを作ってみましたが、メチャクチャな動きになってしまいます（動きが読めません）。
どこが間違っているのか教えてください。
また、もし、よりわかりやすいコードがありましたら教えていただけると嬉しいです。
よろしくお願いいたします。
Sub Cell（ n , "A" ）に1を記入する()
Dim n As Long
Dim m As Long
Dim s As Long
'現在のセル（ n , "A" ）より14行上に数値がないことを確認するために
'14行上のセルを全て足し算しています。
For m = n - 14 To n - 1
s = s + Worksheets("Sheet1").Cells(m, "A").Value
Next
'足し算結果がゼロならば何も記入していないと判断し、
'数字の「1」を記入します。
If s >= 1 Then
Worksheets("Sheet1").Cells(n - 1, "A").Value = 0
ElseIf s = 0 Then
Worksheets("Sheet1").Cells(n - 1, "A").Value = 1
End If
End Sub
