如何通过VBA将数据保存到组合框避免“数据类型转换错误”？

Question

我有一个表中的Access与一些组合框字段（组合框作为行源）。每个组合框有2列（第一个是整数类型，第二个是文本类型）。第二栏是用户可见的内容。第一个是绑定列。

如果我打开表格并键入与列表相关的文本，它不会导致任何错误。我想要做的是通过VBA填充组合框，但使用文本而不是整数。

例如，在第一个组合框中，用户可以看到2个选项：“C”和“V”。绑定列中的“C”是1，“V”是2.我需要将字符发送到组合框并保存。当我尝试输入文本时，会发生“数据类型转换错误”。在这种情况下我能做什么？

在此先感谢。

代码：

Public Sub SalvarAreaRangeNoBD(registro As DAO.Recordset, areaRange As Range) 
    Dim totalLin, l As Integer 
    Dim totalCol, c As Integer 
    Dim deletar As Boolean 

    totalLin = areaRange.Rows.Count 
    totalCol = areaRange.Columns.Count 
    deletar = True 

    Call mdlUtil.LimparRegistro(registro) 
    registro.AddNew 

    For l = 1 To totalLin 
     For c = 1 To totalCol 
      If ((areaRange.Cells(l, c) & "") = "") Then 
       registro.Fields(c - 1).Value = Empty 
      Else 
       registro.Fields(c - 1).Value = areaRange.Cells(l, c) 

       If (deletar <> False) Then 
        deletar = False 
       End If 
      End If 
     Next c 

     If (deletar) Then 
      registro.CancelUpdate 
     Else 
      registro.Update 
     End If 

     registro.AddNew 
     deletar = True 
    Next l 
End Sub 

Answer 1

打开表到你试图写入数据，并期待在现场与ComboBox查找。什么是数据类型？

我几乎可以保证它是一个Number→Long Integer。

你遇到的问题是，组合框使它看起来就像你存储的字符串值，但它真的存储在ComboBox的第1列的整数值，但显示人类可读的字符串值在第2列。

你需要做的是查找整数值。如果ComboBox的记录源绑定到另一个表，那就太容易了。如果它是value list，那有点烦人，但仍然完全可行。

下面是一个例子：

Public Sub SalvarAreaRangeNoBD(registro As DAO.Recordset, areaRange As Range) 
    Dim totalLin, l As Integer 
    Dim totalCol, c As Integer 
    Dim cellValue as Variant 

    'New code. Be sure to add a reference to Microsoft Scripting Runtime: 
    Dim simpleLookup as Scripting.Dictionary 

    set simpleLookup=getLookup("LookupTableName","DisplayFieldName","NumberFieldName") 

    totalLin = areaRange.Rows.Count 
    totalCol = areaRange.Columns.Count 

    Call mdlUtil.LimparRegistro(registro) 
    registro.AddNew 

    For l = 1 To totalLin 
    For c = 1 To totalCol 
     cellValue=areaRange.Cells(l, c) 
     'If ((cellValue & "") = "") Then 
     ' 'Do nothing 
     'Else 
     If simpleLookup.exists (cellValue) then 
      'Only add the row to the recordset if you're actually going to use it. 
      registro.AddNew 
      registro.Fields(c - 1).Value = simpleLookup(cellValue) 
      registro.Update 
     Else 
      'Do nothing 
     End If 
     'End If 
    Next c 
    Next l 
End Sub 

Public Function getLookup(tableName as String, displayField as String, recordField as String) as Scripting.Dictionary 
    dim rs as DAO.Recordset 
    Set getLookup = new Scripting.Dictionary 
    Set rs = CurrentDB.OpenRecordset(tableName) 
    With rs 
    Do Until .eof 
     getLookup.Add .fields(displayField).value, .fields(recordField) 
     .MoveNext 
    Loop 
    End With 
End Function