中級學(xué)員可獲取完整教程 |
只有VIP中級學(xué)員才可查看本章【子窗體創(chuàng)建和子窗體設(shè)計】的 完整課件、完整源碼、清晰視頻(講師逐個知識點專業(yè)講解),系統(tǒng)、高效、專業(yè)地學(xué)習(xí)Access應(yīng)用及開發(fā),讓您節(jié)約大量的時間和精力,我們帶給您的不只是知識的講解,還有普通培訓(xùn)機(jī)構(gòu)無法提供給您的更多行業(yè)的編程經(jīng)驗以及實戰(zhàn)開發(fā)中的技巧,這些可以讓您少花很多無謂的時間,少走很多彎路,輕松直達(dá)專業(yè)開發(fā)之路。
如需【子窗體創(chuàng)建和子窗體設(shè)計】完整培訓(xùn)視頻與源碼下載,請咨詢:
培訓(xùn)課件部分內(nèi)容預(yù)覽 |
1. 第六節(jié) 子窗體創(chuàng)建和子窗體設(shè)計-部分PPT之1
2. 第六節(jié) 子窗體創(chuàng)建和子窗體設(shè)計-部分PPT之2
3. 第六節(jié) 子窗體創(chuàng)建和子窗體設(shè)計-部分PPT之3
4. 第六節(jié) 子窗體創(chuàng)建和子窗體設(shè)計-部分PPT之4
5. 第六節(jié) 子窗體創(chuàng)建和子窗體設(shè)計-部分PPT之5
6. 第六節(jié) 子窗體創(chuàng)建和子窗體設(shè)計-部分PPT之6
培訓(xùn)內(nèi)容部分關(guān)鍵字 |
內(nèi)容摘要:
本Access培訓(xùn)視頻由Office中國出品
Access中級培訓(xùn)
窗體設(shè)計 中級培訓(xùn)
本節(jié)講師:楊仕航
第六節(jié) 子窗體創(chuàng)建和子窗體設(shè)計
本節(jié)摘要
創(chuàng)建子窗體
1
子窗體設(shè)計
2
子窗體創(chuàng)建和子窗體設(shè)計
快速創(chuàng)建窗體
方法1:直接拖拽
方法2:插入
子窗體創(chuàng)建和子窗體設(shè)計
創(chuàng)建子窗體
1
窗體模式:數(shù)據(jù)表
特殊效果:效果
導(dǎo)航按鈕:有
滾動條:兩者都有
子窗體創(chuàng)建和子窗體設(shè)計
子窗體設(shè)計
2
本節(jié)摘要
子窗體創(chuàng)建和子窗體設(shè)計
創(chuàng)建子窗體
1
子窗體設(shè)計
2
謝 謝!
Access中級培訓(xùn)
Access課程源碼-部分預(yù)覽 |
部分代碼展示
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) '設(shè)置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 '提交數(shù)據(jù)
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) '設(shè)置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() '用執(zhí)行SQL語句 批量刪除記錄
45 On Error Resume Next
46 Dim Conn As New ADODB.Connection
47 Dim strSQL As String
48 Set Conn = CurrentProject.Connection '把系統(tǒng)默認(rèn)的連接給Conn
49 strSQL = "Delete from tblPerson where FName = '" & Nz(Me.FName) & "'"
50
51 Conn.Execute strSQL '執(zhí)行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:應(yīng)用篩選
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) '對應(yīng)字段賦值
83 Rs.Fields("FSex") = Nz(Me.FSex, "男")
84 Rs.Fields("FAge") = Nz(Me.FAge, 10)
85 Rs.Update '提交數(shù)據(jù)
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