2

カスケードコンボボックスを実装する必要があるアクセスでフォームを作成しています。下部のコンボボックスのデータは、ユーザーが選択した親の値によって異なります。これがフォームですここに画像の説明を入力してください

左側がテーブルの構造、右側がフォームです。問題は、データ型の不一致のエラーが発生し、なぜこれが発生しているのか理解できないことです。ドリルの直径の更新後のイベントで、切削速度を入力しています。切断速度のドロップダウンを押すたびに、「基準式のデータ型の不一致」が発生します。これがDiametreofDrillのafterupdateイベントのコードです

Private Sub cboDiameterDrilling_AfterUpdate()
cboCuttingSpeedDrilling.RowSource = "Select DISTINCT tblDrilling.cuttingSpeed " & _
"FROM tblDrilling " & _
`"WHERE tblDrilling.materials = '" & cboMaterialDrilling.Value & "' AND tblDrilling.diaOfDrill = '` `cboDiameterDrilling.Value ' " & _`
"ORDER BY tblDrilling.cuttingSpeed;"

End Sub

問題はWHERE句にあると思います。どんな助けでも大歓迎です。ありがとうございました

4

2 に答える 2

3

オブジェクトの値（cboDiameterDrilling.Value）への参照を一重引用符で囲みました。

 AND tblDrilling.diaOfDrill = ' & cboDiameterDrilling.Value & "'"

解決 ：AND tblDrilling.diaOfDrill = " & cboDiameterDrilling.Value & " " & _

于 2013-01-07T18:44:55.487 に答える
0

私はあなたが"を逃したと思います。試してみてください：

Private Sub cboDiameterDrilling_AfterUpdate()
cboCuttingSpeedDrilling.RowSource = "Select DISTINCT tblDrilling.cuttingSpeed " & _
"FROM tblDrilling " & _
`"WHERE tblDrilling.materials = '" & cboMaterialDrilling.Value & "' AND tblDrilling.diaOfDrill = '" & cboDiameterDrilling.Value & "' " & _
"ORDER BY tblDrilling.cuttingSpeed;"

End Sub
于 2013-01-07T18:42:29.993 に答える