VBA 增删改记录

 1 Private Sub cmdAdd_Click()
 2     res = MsgBox("确定要添加这条记录吗？", vbYesNo + vbQuestion, "添加记录")
 3     If res = vbYes Then
 4         myres.AddNew
 5         myres.Fields("1") = TextBox11.Value
 6         myres.Fields("2") = TextBox22.Value
 7         myres.Fields("3") = TextBox33.Value
 8         myres.Fields("4") = ComboBox1.Value
 9         myres.Fields("5") = ComboBox2.Value
10         myres.Fields("6") = ComboBox3.Value
11         myres.Update
12         TextBox44.Value = "共有 " & myres.RecordCount & " 條記錄!"
13     ElseIf res = vbNo Then
14         If myres.BOF = True And myres.EOF = True Then
15             Exit Sub
16         Else
17             myres.MoveFirst
18             Call display
19         End If
20     End If
21 End Sub
22 
23 
24 Private Sub cmdDel_Click()
25     res = MsgBox("确定要刪除这条记录吗？", vbYesNo + vbQuestion, "刪除记录")
26     If res = vbYes Then
27         myres.Delete
28         If myres.EOF = True Then Exit Sub
29         myres.MoveNext
30         myres.Update
31         Call display
32         TextBox44.Value = "共有 " & myres.RecordCount & " 條記錄!"
33     ElseIf res = vbNo Then
34         If myres.BOF = True And myres.EOF = True Then
35             Exit Sub
36         Else
37             myres.MoveFirst
38             Call display
39         End If
40     End If
41 End Sub
42 
43 Private Sub cmdUpdate_Click()
44     res = MsgBox("确定要修改这条记录吗？", vbYesNo + vbQuestion, "修改记录")
45     If res = vbYes Then
46         myres.Fields("1") = TextBox11.Value
47         myres.Fields("2") = TextBox22.Value
48         myres.Fields("3") = TextBox33.Value
49         myres.Fields("4") = ComboBox1.Value
50         myres.Fields("5") = ComboBox2.Value
51         myres.Fields("6") = ComboBox3.Value
52         myres.Update
53         TextBox44.Value = "共有 " & myres.RecordCount & " 條記錄!"
54     ElseIf res = vbNo Then
55         If myres.BOF = True And myres.EOF = True Then
56             Exit Sub
57         Else
58             myres.MoveFirst
59             Call display
60         End If
61     End If
62 End Sub