だから、テーブル、2 つのフォーム、サブ フォーム、2 つのボタン、および多数のテキスト ボックスがあります。これらを使用して、テキスト ボックスに情報を入力する「フィールドの追加」をポップアップ表示するボタンを作成し、[追加] をクリックすると、他のサブフォームに戻ってそのデータが表示されるテーブルに追加されます。私はそれが働いています。ただし、すべてのフィールドを空白のままにすると、データを追加しないようにする方法がわかりません(注;すべてのフィールドにしたいだけです。1つのフィールドに入力し、残りがnullであれば問題ありません)。すべてのフィールドが null の場合、テキスト ボックスにデータを入力してくださいというメッセージ ボックスがユーザーに送信されます。
このデータベースの将来の部分で私が探しているもう 1 つのことは、必須フィールドです。10 個のテキスト ボックスがあるとします。フォームを使用してテーブルにデータを追加する前に、10 個のテキスト ボックスのうち 6 個を入力する必要があります (必要なものは * でマークされています)。 、[入力されていないテキスト ボックス] に記入してからもう一度やり直すというエラーを伝えます。6 つの必須フィールドがすべて入力されている場合は、他の 4 つが null であるかどうかにかかわらず、テーブルに保存できます。
これは、追加ボタン内にあるコードです。
Private Sub CustomerAddBtn_Click()
Dim db As Database
Dim rec As Recordset
Set db = CurrentDb
Set rec = db.OpenRecordset("Select * from CustomersT")
rec.AddNew
rec("CustomerName") = Me.CustomerAddSupplierNameTxt
rec("Address") = Me.CustomerAddAddressTxt
rec("City") = Me.CustomerAddCityTxt
rec("ProvinceState") = Me.CustomerAddProvinceStateTxt
rec("PostalZip") = Me.CustomerAddPostalZipTxt
rec("Phone") = Me.CustomerAddPhoneTxt
rec("Fax") = Me.CustomerAddFaxTxt
rec("CustomerSince") = Me.CustomerAddCustomerSinceTxt
rec("Email") = Me.CustomerAddEmailTxt
rec("Notes") = Me.CustomerAddNotesTxT
rec.Update
Set rec = Nothing
Set db = Nothing
'Send message to user saying it was saved, so they know
Dim intReply As Integer
intReply = MsgBox("Customer has been successfully saved to the database!", vbOKOnly, "Success!")
End Sub
前もって感謝します。