Vba 尝试在access窗体上使用Controls()函数时出错
我正试图从access中的几个表单控件值构建一个SQL insert语句 我已经读到可以使用Controls()函数动态引用我的控件 我尝试过这样做:Vba 尝试在access窗体上使用Controls()函数时出错,vba,ms-access,Vba,Ms Access,我正试图从access中的几个表单控件值构建一个SQL insert语句 我已经读到可以使用Controls()函数动态引用我的控件 我尝试过这样做: Private Sub InsertCoeff(ByVal prov As String, ByVal region As String) Dim strSQL As String Dim insertSQL As String Dim valuesSQL As String insertSQL = "INS
Private Sub InsertCoeff(ByVal prov As String, ByVal region As String)
Dim strSQL As String
Dim insertSQL As String
Dim valuesSQL As String
insertSQL = "INSERT INTO 'Coefficient de Fermage'"
valuesSQL = "("
valuesSQL = valuesSQL & "('1F','2F')"
valuesSQL = valuesSQL & ",('" & Me.Controls(prov & region & "Lbl") & "','" & Me.Controls(prov & region & "Lbl") & "')"
valuesSQL = valuesSQL & ",('" & Me.Controls(prov & "Lbl") & "','" & Me.Controls(prov & "Lbl") & "')"
valuesSQL = valuesSQL & ",('" & Me.Controls(prov & region & "Terres") & "','" & Me.Controls(prov & "Bat") & "')"
valuesSQL = valuesSQL & ",('" & Me.DateEff & "','" & Me.DateEff & "')"
valuesSQL = valuesSQL & ")"
strSQL = insertSQL & " VALUES " & valuesSQL
End Sub
但我得到一个运行时错误438(对象不支持此属性或方法),即使在我开始键入“Me”时vba自动建议Controls()方法
知道为什么会失败吗?我在引用标签,所以正确的语法是
valuesSQL = valuesSQL & ",('" & Me.Controls(prov & region & "Lbl").Caption & "','" & Me.Controls(prov & region & "Lbl").Caption & "')"