| |
登録フォームは名簿をレコードソースにしていて
各登録項目は非連結にしております。
項目入力後に登録のコマンドボタンを押すと下記コードで保存するようにしています。
-------------------------------------------
Dim oRS As DAO.Recordset
If InputCheck() = False Then
Exit Sub
End If
Set oRS = CurrentDb.OpenRecordset("名簿", dbOpenDynaset)
With oRS
.AddNew
.Fields("氏名").Value = 氏名.Value
.Fields("ふりがな").Value = Me.ふりがな.Value
.Update
End With
oRS.Close
Set oRS = Nothing
MsgBox Me.氏名 & " を登録しました", vbOKOnly + vbInformation, "登録"
DoCmd.Close acForm, "登録"
-------------------------------------------
名簿の主キーは連番をオートナンバーで登録してあり、
テキスト型・日付/時刻型・数値型は問題なくボタンを押すと反映されます。
同じようにyes/no型を下記のようにするとエラーがでて保存ができませんでした。
--------------------------------------
.Fields("資格").Value = Me.資格.Value
--------------------------------------
チェックボックスは全部で12個ほどあります。
▼かるびの さん：
> そちらの状況が全く見えません。
>
> 「登録」フォームは、連結フォームですか、非連結フォームですか。
>
> 連結フォームだとすれば、フォームのレコードソースは何ですか。
>
> フォームのレコードソースがクエリだとすれば、どのようなクエリですか（クエリをＳＱＬ文で提示してもらうとわかりやすいです。）。
>
>
> 「登録」フォームが連結であるにせよ、非連結であるにせよ、
>フォームのデータを格納するテーブルのテーブル構成はどうなっていますか。
> つまり、テーブル名、主キーのフィールド名及びデータ型並びに主要なフィールド名とデータ型は何ですか。
>
>
> 「登録」フォームには、チェックボックスはいくつありますか。
>
> 「登録」フォームのチェックボックスは、オプショングループ・コントロール内にありますか、
>それとも、オプショングループ・コントロールは配置していませんか。
>
> 「登録」フォームが連結フォームの場合、
>それぞれのチェックボックスのコントロールソースは何ですか。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
