値をAccessコンボボックスから文字列に変換する

Question

値をコンボボックスから文字列に変換して、その文字列を変数に追加して最終的にデータベースに追加する関数に追加する必要があります。

Private Sub cbRowStudentGrade_Change() 


    Course_ID.SetFocus 
    rowCourseID = Course_ID.Text 

    StuRed_ID.SetFocus 
    rowStudentRedID = StuRed_ID.Text 

    cbRowStudentGrade.SetFocus 
    cbRowStudentGrade = cbRowStudentGrade.Column(0) 

    CurrentDb.Execute "qryInputGrades" 


    MsgBox (rowCourseID) 
    MsgBox (rowStudentRedID) 
    MsgBox (cbRowStudentGrade) 


    Requery 
    Repaint 
End Sub 

そして、ここで私は私のAccessクエリビルダでの基準として使用しています関数です： はここに私のフォームから、コンボボックスからテキストをつかむ私のサブです。

Public Function funcRowCourseID() As String 

    funcRowCourseID = rowCourseID 

End Function 


Public Function funcRowStudentRedID() As String 

    funcRowStudentRedID = rowStudentRedID 

End Function 


Public Function funcCbRowStudentGrade() As String 

    funcCbRowStudentGrade = cbRowStudentGrade 

End Function 

マイクエリ：

INSERT INTO tblRegistrationGrade (Red_ID, Course_ID, Grade) 
VALUES (funcRowStudentRedID(), funcRowCourseID(), funcCbRowStudentGrade()); 

私は、データベースとどのようなコンボボックスの値が実際にある間のデータ型の不一致があると思います。しかし、データ型の不一致があった場合、そのようなエラーはないでしょうか？私のデータベースにはshort textが必要です。

Answer 1

あなたはこのように複雑すぎます。

あなたは直接フォームコントロールに、あなたのINSERTクエリから参照できます。

INSERT INTO tblRegistrationGrade (Red_ID, Course_ID, Grade) 
VALUES (Forms!myForm!StuRed_ID, Forms!myForm!Course_ID, Forms!myForm!cbRowStudentGrade); 

とクエリを呼び出すことを除いて、ほぼすべてのコードを取り除きます。

ジョンが書いたように、それはcbRowStudentGrade_AfterUpdate()に入れるのがよいでしょう。

---

または、代わりにINSERTクエリの参照、AddNewでDAO.Recordsetを使用します。そこ
How to: Add a Record to a DAO Recordset

あなたも直接データ型を気にすることなくお使いのコントロールからの値を使用することができます。