Ｐａｇｅ 617 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼リスト外入力 長島監督退院！！ 04/4/15(木) 16:01 ┗Re:リスト外入力 [名前なし] 04/5/10(月) 13:54 ─────────────────────────────────────── ■題名 ： リスト外入力 ■名前 ： 長島監督退院！！ <t1312865@hotmail.com> ■日付 ： 04/4/15(木) 16:01 -------------------------------------------------------------------------
| Private Sub 趣味_NotInList(NewData As String, Response As Integer) Dim cnc As New ADODB.Connection Dim rst As New ADODB.Recordset Dim tuika As Integer 'システムメッセージが表示されないようにする Response = acDataErrContinue Beep tuika = MsgBox("「" & NewData & "」" & "をリストに追加しますか？", _ vbYesNo + vbQuestion, "追加の確認") Select Case tuika Case vbYes '入力値をリストに追加する Set cnc = CurrentProject.Connection rst.Open "趣味一覧", cnc, adOpenKeyset, adLockOptimistic rst.AddNew rst!趣味 = NewData rst.Update rst.Close cnc.Close 'コンボボックスの再クエリを行う Me!趣味 = NewData Me!趣味.Requery Me!誕生日.SetFocus Case vbNo Me!趣味 = Null Me!趣味.Dropdown End Select End Sub リスト外入力時の対処のソースなんですが、rst!趣味 = NewData で、マスタテーブルが主キーが無く、テキスト型データだけの場合だとエラー表示は無いのですが、マスタテーブルに主キーがあり、その場合だと、”種類が一致しません。”というエラー表示がされ、 ”rst!趣味 = NewData”が強調表示されます。ここで、どう修正すればよいのかを教えていただけませんか。どうか、良い方法をご提案ください. |
| もうすでに解決しています。取るに足らない質問でした。あしからず。 |