Question

access 如何通过窗体录入数据

Answer 1

用在绑定数据源的TEXTBOX中就不行.如果你的文本框没有绑定窗体的数据源,可以用以下代码把窗体的数据源移动到到第一个相同内容的记录上:

Private Sub Text查姓名_LostFocus()
Dim rst As Recordset
Dim strName As String
Set rst = Me.RecordsetClone
If IsNull(Me!Text查姓名) = True Then
strName = ""
Else
strName = Str(Me!Text查姓名)
rst.FindFirst "姓名 = " & strName
If rst.NoMatch Then
MsgBox "Record not found"
Else
Me.Bookmark = rst.Bookmark
End If
End If
rst.Close
End Sub