我有一个带有员工名字和姓氏的表格。我已经提出了一个代码,该代码将打开另一个带有员工详细信息的表单
Private Sub cmdRecords_Click()
Dim QUOTE As String
QUOTE = Chr(34)
Dim name As String
name = Me.NameFirst & " " & Me.NameLast
Dim lookUp As String
lookUp = "[EmployeeName] = " & QUOTE & name & QUOTE
DoCmd.OpenForm "PayrollPeriod", acNormal, , lookUp
End Sub
除了第一个记录之外,该代码适用于所有人。它将打开下一个表单但没有结果。但是,如果我转到主表单上的最后一条记录并使用相同的名字和姓氏输入新记录,则雇用的记录显示
答案 0 :(得分:0)
答案 1 :(得分:0)
找到解决方案。与名称的拼写不一致。无论谁为员工输入数据,都会在两个表中的每一个中以不同的方式拼写姓氏。我在复制时拼写正确,导致它出现。转到Employees表并修复名称。现在一切都很好看