Я пытаюсь создать многоцелевую функцию многократного использования с DCOUNT. В попытке сделать это я должен использовать переменные для всего. Я считаю, что все настроено правильно, но критерии продолжают давать 0, даже если данные существуют. Куда бы я ни посмотрел, первая часть критериев - это имя поля, а не переменная, поэтому я не уверен, что мне не хватает
Dim dc_ValueExists As Integer
Dim v_Value As String
Dim v_Table As String
Dim v_TableField As String
'Set the value, table, and table field to be tested
v_Value = Me.Text6
v_Table = "tblList_Outfall_Ownership"
v_TableField = "Outfall_Ownership"
'Check to see if the value is in the table
dc_ValueExists = DCount(v_TableField, v_Table, "'" & v_TableField & "' = '" & v_Value & "'")
MsgBox (dc_ValueExists)
Это работает, хотя
Dim dc_ValueExists As Integer
Dim v_Value As String
Dim v_Table As String
Dim v_TableField As String
'Set the value, table, and table field to be tested
v_Value = Me.Text6
v_Table = "tblList_Outfall_Ownership"
v_TableField = "Outfall_Ownership"
'Check to see if the value is in the table
dc_ValueExists = DCount(v_TableField, v_Table, "[Outfall_Ownership] = '" & v_Value & "'")
MsgBox (dc_ValueExists)