菜鸟求助

kikeki

在窗体里有员工编号；中文名；入职日期；部门；照片等。
我想要的是在窗体里输入员工编号，其他信息自动显示。先谢过！

kangking

1# kikeki

todaynew

不如文本框邦定员工基本信息表中的编号，用滚轮查找简单。

kikeki

3# todaynew
我都说了是菜鸟了，恳请您把我的附件改好，我下载研究。十分感谢！

kikeki

2# kangking
不行啊！

Henry D. Sy

1. Private Sub Combo10_AfterUpdate()
   
2.     Dim strWhat As String
   
3.     If Not IsNull(Me.Combo10) Then
   
4.         strWhat = Me.Combo10
   
5.         Me.员工编号.SetFocus
   
6.         DoCmd.FindRecord strWhat
   
7.     End If
   
8. End Sub

复制代码

kangking

2# kangking  
34882 不行啊！
kikeki 发表于 2009-2-6 17:46

晕！根据你的图例子做在窗体1中。

dxssxd

用焦点丢失触发事件
Me.中文名 = DLookup("中文名", "你的员工信息表", "员工编号 = " & Me.员工编号 & "")
括号内的中文名和员工编号都是你的员工信息表内的字段
我没下你的附件 不过Dlookup可以实现 你试一下

changweiren

学习学习

kikeki

7# kangking
对不起，是我没看错窗体了。十分感谢你帮助。