---

 

 

     只有VIP中级学员才可查看本章【子窗体创建和子窗体设计】的 完整课件、完整源码、清晰视频（讲师逐个知识点专业讲解），系统、高效、专业地学习Access应用及开发，让您节约大量的时间和精力，我们带给您的不只是知识的讲解，还有普通培训机构无法提供给您的更多行业的编程经验以及实战开发中的技巧，这些可以让您少花很多无谓的时间，少走很多弯路，轻松直达专业开发之路。

 

     如需【子窗体创建和子窗体设计】完整培训视频与源码下载，请咨询：

 

 

---

 

 

1. 第六节 子窗体创建和子窗体设计-部分PPT之1

 

 

 

 

2. 第六节 子窗体创建和子窗体设计-部分PPT之2

 

 

 

 

3. 第六节 子窗体创建和子窗体设计-部分PPT之3

 

 

 

 

4. 第六节 子窗体创建和子窗体设计-部分PPT之4

 

 

 

 

5. 第六节 子窗体创建和子窗体设计-部分PPT之5

 

 

 

 

6. 第六节 子窗体创建和子窗体设计-部分PPT之6

 

 

 

---

 

内容摘要：

 

本Access培训视频由Office中国出品

Access中级培训

窗体设计 中级培训

本节讲师：杨仕航

第六节 子窗体创建和子窗体设计

本节摘要

创建子窗体

1

子窗体设计

2

子窗体创建和子窗体设计

快速创建窗体

 

方法1：直接拖拽

 

方法2：插入

子窗体创建和子窗体设计

创建子窗体

1

窗体模式：数据表

 

特殊效果：效果

 

导航按钮：有

 

滚动条：两者都有

子窗体创建和子窗体设计

子窗体设计

2

本节摘要

子窗体创建和子窗体设计

创建子窗体

1

子窗体设计

2

 

谢 谢！

Access中级培训

 

 

---

 

  部分代码展示

 

 

 1 Option Compare Database

 2

 3 Private Sub cmdChange_Click()   '修改记录

 4   Dim Rs As New ADODB.Recordset

 5   Dim strSQL As String

 6  

 7    strSQL = "select * from tblPerson where ID = " & Nz(ID.Value, 0)   '设置SQL语句

 8    Rs.Open strSQL, CurrentProject.Connection, 1, 3

 9       If Rs.RecordCount > 0 Then

10           If Nz(FName) <> "" Then Rs.Fields("FName") = Nz(FName)

11            Rs.Fields("FSex") = Nz(FSex, "男")

12            Rs.Fields("FAge") = Nz(FAge, 10)

13            Rs.Update   '提交数据

14       Else

15            MsgBox "没有记录，修改失败！"

16       End If

17    Rs.Close

18  

19   Me.frmSub.Requery   '刷新子窗体

20 End Sub

21

22 Private Sub cmdClear_Click()

23   Me.frmSub.Form.FilterOn = False

24   Me.frmSub.Requery

25 End Sub

26

27 Private Sub cmdDelete_Click()

28 On Error Resume Next

29   Dim Rs As New ADODB.Recordset

30   Dim strSQL As String

31  

32    strSQL = "select * from tblPerson where ID = " & Nz(ID.Value, 0)   '设置SQL语句

33    Rs.Open strSQL, CurrentProject.Connection, 1, 3

34       If Rs.RecordCount > 0 Then

35            Rs.Delete

36            Rs.Update

37       End If

38    Rs.Close

39  

40   Set Rs = Nothing

41   Me.frmSub.Requery   '刷新子窗体

42 End Sub

43

44 Private Sub cmdDelete2_Click() '用执行SQL语句 批量删除记录

45 On Error Resume Next

46   Dim Conn As New ADODB.Connection

47   Dim strSQL As String

48   Set Conn = CurrentProject.Connection '把系统默认的连接给Conn

49    strSQL = "Delete from tblPerson where FName = '" & Nz(Me.FName) & "'"

50  

51    Conn.Execute strSQL '执行SQL语句

52  

53   Set Conn = Nothing

54   Me.frmSub.Requery

55 End Sub

56

57 Private Sub cmdFind_Click()

58 '查询方法1：修改记录源

59 '    Dim strSQL As String

60 '    strSQL = "select * from tblPerson where FName = '" & Nz(FName) & "'"

61 '    Me.frmSub.Form.RecordSource = strSQL

62

63 '查询方法2：应用筛选

64   Dim strFilter As String

65    strFilter = "True"

66 '    strFilter = strFilter & " and FName like '*" & Nz(Me.FName) & "*'"

67 '    strFilter = strFilter & " or FSex like '*" & Nz(Me.FSex) & "*'"

68    strFilter = strFilter & " and FAge like '*1*'"

69    Debug.Print strFilter

70   Me.frmSub.Form.Filter = strFilter

71   Me.frmSub.Form.FilterOn = True

72   Me.frmSub.Requery

73 End Sub

74

75 Private Sub cmdNew_Click()

76   Dim Rs As New ADODB.Recordset   '定义一个ADO 记录集

77   Dim strSQL As String           '保存SQL语句

78    strSQL = "select * from tblPerson"

79  

80    Rs.Open strSQL, CurrentProject.Connection, 1, 3

81        Rs.AddNew '新增操作

82        Rs.Fields("FName") = Nz(FName)   '对应字段赋值

83        Rs.Fields("FSex") = Nz(Me.FSex, "男")

84        Rs.Fields("FAge") = Nz(Me.FAge, 10)

85        Rs.Update   '提交数据

86    Rs.Close

87  

88   Me.frmSub.Form.RecordSource = strSQL

89   Me.frmSub.Requery '刷新子窗体

90  

91   Me.frmSub.SetFocus

92    DoCmd.GoToRecord acActiveDataObject, , acLast

93   Set Rs = Nothing

94 End Sub

95

96 Private Sub Form_Load()

97

98 End Sub