VBAを使用してMS Accessで新しいレコードを追加する方法？

Question

私は、新規または既存の顧客に関する情報を更新するために、ユーザーにバインドフォームを使用しています。今は、私はVBAを使って新しいレコードを追加または保存する方法がわからないため、SubmitボタンでAdd New Recordマクロを使用しています。

VBAを使用して更新前イベントを追加して、フォームを終了する前に変更を保存することをユーザーに確認させました。何らかの理由でこれがレコードの追加ボタンを無効にしているため、ユーザーはフォームを終了するまで新しいレコードを追加できません。

VBAを使用して新しい顧客情報を正しいテーブルに追加するにはどうすればよいですか？代わりにマクロで行うべきことですか？

フォームのBeforeUpdateコード：

Private Sub Form_BeforeUpdate(Cancel As Integer) 
Dim strmsg As String 
strmsg = "Data has been changed." 
strmsg = strmsg & " Save this record?" 
If MsgBox(strmsg, vbYesNo, "") = vbNo Then 
    DoCmd.RunCommand acCmdUndo 
Else 
End If 
End Sub 

録音ボタン追加：、VBAを使用してレコードを提出ボタンのOn Clickイベントを作成し、そのSubに次のように実行するために

Private Sub btnAddRecord_Click() 
Dim tblCustomers As DAO.Recordset 

Set tblCustomers = CurrentDb.OpenRecordset("SELECT * FROM [tblCustomers]") 
tblCustomers.AddNew 
tblCustomers![Customer_ID] = Me.txtCustomerID.Value 
tblCustomers![CustomerName] = Me.txtCustomerName.Value 
tblCustomers![CustomerAddressLine1] = Me.txtCustomerAddressLine1.Value 
tblCustomers![City] = Me.txtCity.Value 
tblCustomers![Zip] = Me.txtZip.Value 
tblCustomers.Update 
tblCustomers.Close 
Set tblCustomers = Nothing 
DoCmd.Close 
End Sub 

Answer 1

をコマンド：

Private Sub submitButton_Click() 

'All the code to validate user input. Prompt user to make sure they want to submit form, etc. 

DoCmd.RunSQL "INSERT INTO tblCustomers (txtCustomerID.Value, txtCustomerName.Value, txtCustomerAddressLine1.Value, txtCity.Value, txtZip.Value)" 

End Sub 

このサブでは、ユーザーが入力した値を検証し、レコードを提出するかどうかを選択するすべてのコード。 VBAを使用してフォームを送信するコントロールがたくさんあるので、BeforeUpdateイベントは必要ありません。

また、このメソッドではバインドされたフォームを使用しないでください。私は反響が何であるか分からないが、私はそれを試していないだろう。アクセスは初心者には大変ですが、もっと複雑なことをしたいので、VBAを使う方が簡単です。

Answer 2

フォームを閉じる前にプロンプ​​トを作成するための更新イベントを作成するのは変です。おそらくあなたはcloseイベントで代わりに試してみるべきでしょう。 vbaを使用してフォームから新しいレコードを追加する場合は、文を簡略化できます。 Access DB用に独自のフォームを設計するときも同様の状況に遭遇しました。このコードは、テストされ、働いている：

Dim sVIN, sMake, sModel, sColor, sType As String 
Dim intYear As Integer 

Me.txtVIN.SetFocus: sVIN = Me.txtVIN.Value 
Me.txtMake.SetFocus: sMake = Me.txtMake.Value 
Me.txtModel.SetFocus: sModel = Me.txtModel.Value 
Me.txtColor.SetFocus: sColor = Me.txtColor.Value 
Me.comboType.SetFocus: sType = Me.comboType.SelText 
Me.txtVehicleYear.SetFocus: intYear = Me.txtVehicleYear.Value 

DoCmd.RunSQL "INSERT INTO Vehicles (VIN, Make, Model, VehicleYear, Color, Type) VALUES ('" & sVIN & "', '" & sMake & "', '" & sModel & "', " & intYear & ", '" & sColor & "', '" & sType & "')" 

あなたは自分のプロジェクトに1 DBを使用している場合、あなたは時々このような単純なDoCmd.RunSQLステートメントを実行することができます起動時に接続しています。ここで構文を取り、それを自分のプロジェクトに適用することができます。私はW3の学校から基本的な構文を得ました。 SQLクエリを書くための優れたサイト。検証テストはここには含まれていないことにも注意してください。フォームの検証規則またはvbaコードに含まれていることを確認する必要があります。もう一つは...あなたのSQLでは、テキストボックスのエントリからIDカラムに値を代入しようとしているようです。 IDが自動番号列の場合は、これを行わないでください。 ID列には通常自動的に番号が割り当てられるため、挿入値を指定する必要はありません（または指定する必要があります）。