ACCESS判断字段不能重复录入的方法

1,016次阅读
没有评论

共计 991 个字符,预计需要花费 3 分钟才能阅读完成。

1、DCount

文本型数据

If DCount(“ 文本型字段名 ”, “ 表名称 ”, “ 文本型字段名 ='” & Me. 文本型字段名 & “‘”) > 0 Then
MsgBox “ 你输入的数据已经存在,请重新输入 ”, vbCritical, “ 警告 ”
Me. 文本型字段名.SetFocus
Exit Sub
End If

 

 

文本型数据

‘判断数字型不能重复录入使用 DCount 函数方法:

If DCount(“ 数值型字段名 ”, “ 表名称 ”, “ 数值型字段名 =” & Me. 数值型字段名) > 0 Then

MsgBox “ 你输入的数字已经存在,请重新输入 ”, vbCritical, “ 警告 ”

Me. 数值型字段名.SetFocus

Exit Sub

End If

2、Dlookup

Dim z As Long

z = DLookup(“ 数值型字段名 ”, “ 表名称 ”, “ 数值型字段名 = ” & Me. 数值型字段名)

If Not IsNull(z) Then

MsgBox “ 你输入的数字已经存在,请重新输入 ”, vbCritical, “ 警告 ”

Me. 数值型字段名.SetFocus

Exit Sub

End If

 

日期型数据

Dim x As Variant

x = DLookup(“ 日期型字段名 ”, “ 表名称 ”, “ 日期型字段名 = #” & Me. 日期型字段名 & “#”)

If Not IsNull(x) Then
MsgBox “ 你输入的日期已经存在,请重新输入 ”, vbCritical, “ 警告 ”
Me. 日期型字段名.SetFocus
Exit Sub

End If

 

3、ADO 遍历数据库

Dim Rs As ADODB.Recordset

Dim strtemp As String

Dim i As Integer

Dim Xitong As Boolean

 

Set Rs = New ADODB.Recordset

strtemp = “select * from 字段所在表 ”

Rs.Open strtemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If Rs.RecordCount <= 0 Then

‘ 判断记录是否存在

Rs.MoveFirst

For i = 0 To Rs.RecordCount – 1

If (Rs(“ 字段名称 ”) = Me![字段名称]) Then

MsgBox “ 你输入的数据已经存在,请重新输入 ”, vbCritical, “ 警告 ”

Me. 字段名称.SetFocus
Exit Sub

Else

Rs.MoveNext

End If

Next i

End If

ACCESS 判断字段不能重复录入的方法

正文完
 
水东柳
版权声明:本站原创文章,由 水东柳 2019-02-07发表,共计991字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
评论(没有评论)