记录集的字段名用变量表示的方法

刘晓俊　发表于：2016-06-15 10:35:41 　

想做个函数，里面有个参数是字段名

Public Function IsExistName(ByVal sTableName As String, _
ByVal sFieldName As String, ByVal sAccountName As String) As Boolean

sFieldName 是字段名

我想判断 sAccountName 是否在 sTableName 表内的 sFieldName 中

怎么实现比较好？

煮江品茶发表于：2016-06-15 11:00:05

方法很多种。

最简单的方法是在窗体上放一个组合框或列表框，将其行来源类型设置为“字段列表”，行来源设置为某个表名称。然后在代码中遍历这个组合框的值与某个名称字符串比对。

此外还可以打开记录集通过fields遍历来比对，也可打开adox中的字典对象，遍历fields进行比对。

zhaoyoulong 发表于：2016-08-03 10:52:51

Public Function IsExistName(ByVal sTableName As String, ByVal sAccountName As String) As Boolean

Dim i As Integer

Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset(sTableName)

IsExistName=false

For i = 0 To rst.Fields.Count - 1

if sAccountName =rst.Fields(i).name then IsExistName=true:exit for

end Function

总记录：2篇页次：1/1 9 1 :

Access交流中心