Office中国论坛/Access中国论坛

标题: 看了“红尘如烟”数据录入的例子，请教其中的几个问题？谢谢 [打印本页]

---

作者: olderdream2007@    时间: 2013-2-8 23:56
标题: 看了“红尘如烟”数据录入的例子，请教其中的几个问题？谢谢
数据录入的例子的问题，看了“红尘如烟”的例子，有不懂得 请教下：http://www.office-cn.net/thread-62774-1-1.html

Me.Recordset.AddNew 这个是啥意思？ 与 DoCmd.RunCommand acCmdSaveRecord（保存记录）有啥区别？
Private Sub Form_Current()事件不是很理解（不知道这个事件干啥） ctl.Value = Me.Recordset("F" & Mid(ctl.Name, 4))
这个干啥的？

请大家帮忙指点下  谢谢！

1. Option Compare Database
   
2. Option Explicit
   
3. 
   
4. Private Sub cmdAdd_Click()
   
5. On Error Resume Next
   
6. Dim ctl As Control
   
7. 
   
8. For Each ctl In Me.Controls
   
9. ctl.Value = Null
   
10. Next
    
11. <FONT color=red>Me.Recordset.AddNew
    
12. </FONT>
    
13. End Sub
    
14. 
    
15. Private Sub cmdSave_Click()
    
16. On Error GoTo Err_cmdSave_Click
    
17. 
    
18. Dim i As Integer
    
19. Dim rs As New ADODB.Recordset
    
20. 
    
21. If Nz(Me.txtClientID, "") = "" Or _
    
22. Nz(Me.txtForShort, "") = "" Or _
    
23. Nz(Me.txtPinYin, "") = "" _
    
24. Then
    
25. MsgBox "必填项不能为空，数据不能保存", vbCritical
    
26. Exit Sub
    
27. Else
    
28. Me![FForShort] = Me.txtForShort
    
29. Me![FPinYin] = Me.txtPinYin
    
30. Me![FClientName] = Me.txtClientName
    
31. Me![FLinkman] = Me.txtLinkman
    
32. Me![FMobileNumber] = Me.txtMobileNumber
    
33. Me![FTelNumber] = Me.txtTelNumber
    
34. Me![FFaxNumber] = Me.txtFaxNumber
    
35. Me![FAddress] = Me.txtAddress
    
36. Me![FPostalcode] = Me.txtPostalcode
    
37. Me![FClientType] = Me.txtClientType
    
38. Me![FRemark] = Me.txtRemark
    
39. 
    
40. <FONT color=red>DoCmd.RunCommand acCmdSaveRecord
    
41. </FONT>End If
    
42. 
    
43. Exit_cmdSave_Click:
    
44. Exit Sub
    
45. Err_cmdSave_Click:
    
46. If Err.Number = 3022 Then
    
47. MsgBox "必填项均不允许重复操作被撤消", vbCritical
    
48. Me.Undo
    
49. Call Form_Current
    
50. Else
    
51. MsgBox Err.Number & Chr(13) & Err.Description
    
52. End If
    
53. Resume Exit_cmdSave_Click
    
54. 
    
55. End Sub
    
56. 
    
57. Private Sub cmdUndo_Click()
    
58. Call Form_Current
    
59. End Sub
    
60. 
    
61. <FONT color=red>Private Sub Form_Current()</FONT>
    
62. On Error Resume Next
    
63. Dim ctl As Control
    
64. 
    
65. If Me.NewRecord Then
    
66. Call cmdAdd_Click
    
67. Else
    
68. For Each ctl In Me.Controls
    
69. <FONT color=red>ctl.Value = Me.Recordset("F" & Mid(ctl.Name, 4))</FONT>
    
70. Next
    
71. End If
    

复制代码

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3