Giáo trình phân tích ứng dụng những kỹ năng để xử lý lỗi bằng lệnh On error goto p2 pptx

Giáo trình Microsoft Access 2000 Copyright
®
Nguyễn Sơn Hải
Trang 159
Và mã lệnh cho form như sau:
'
'Hàm xác định USCNN của 2 số nguyên (thuật toán Ơ-cơ-lít)
'
Function usc(a, b As Integer) As Integer
Dim a1, b1 As Integer

a1 = a
b1 = b
While a1 <> b1
If a1 > b1 Then
a1 = a1 - b1
Else
b1 = b1 - a1
End If
Wend
usc = a1

End Function

'
'Mã lệnh cho nút Tính toán
'
Private Sub cmdTinhToan_Click()
txtUSC = usc(txtA, txtB)
txtBSC = txtA * txtB / usc(txtA, txtB)
End Sub

'
'Mã lệnh cho nút ĐÓng
'
Private Sub cmdClose_Click()
DoCmd.Close
End Sub

Bài toán 3: Nhập vào 3 hệ số A, B, C của phương trình bậc hai Ax
2

+ Bx+C =0
và cho biết nghiệm phương trình đó:
Thiết kế form như sau:
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e

V
i
e

w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
Click to buy NOW!
P
D
F
-
X
C
h
a

n
g
e

V
i
e
w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
.
Giáo trình Microsoft Access 2000 Copyright

®
Nguyễn Sơn Hải
Trang 160

Thiết lập thuộc tính cho các đối tượng như sau:
Form
Caption:
Giải phương trình bậc 2
Default view:
Single Form
Scroll bar:
Neither
Record selector:
No
Navigation Buttons:
No
Diving line:
No
Ô nhập số cần kiểm tra
Ô Thuộc tính Name
A: txtA
B: txtB
C: txtC
Nút Tính toán
Name:
cmdGPTB2
Caption:
Giải phương trình
Nút Đóng
Name:

cmdClose
Caption:
Đóng
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e

V
i
e
w
e
r
w
w
w
.
d
o
c
u

-
t
r
a
c
k
.
c
o
m
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e

V
i
e
w
e
r
w

w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
.
Giáo trình Microsoft Access 2000 Copyright
®
Nguyễn Sơn Hải
Trang 161
Và mã lệnh cho form như sau:

'
'Mã lệnh cho nút Giải phương trình
'
Private Sub cmdChanLe_Click()
Dim delta, x, x1, x2 As Double
Dim kqua As String

delta = txtB * txtB - 4 * txtA * txtC
If delta = 0 Then
x = -txtB / (2 * txtA)
kq = "Nghiệm kép: x1 = x2 = " + Trim(Str(x))
Else
If dleta > 0 Then
x1 = (-txtB + Sqr(delta)) / (2 * txtA)
x1 = (-txtB - Sqr(delta)) / (2 * txtA)
kqua = "Có 2 nghiệm phân biệt:" + Chr(13) _
+ " X1 = " + Trim(Str(x1)) + Chr(13) _
+ " X2 = " + Trim(Str(x2))
Else
kqua = "Phương trình vô nghiệm"
End If
End If

MsgBox kqua

End Sub

'
'Lệnh cho nút Đóng
'
Private Sub cmdClose_Click()
DoCmd.Close
End Sub

Click to buy NOW!
P

D
F
-
X
C
h
a
n
g
e

V
i
e
w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c

k
.
c
o
m
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e

V
i
e
w
e
r
w
w
w
.
d
o

c
u
-
t
r
a
c
k
.
c
o
m
.
Giáo trình Microsoft Access 2000 Copyright
®
Nguyễn Sơn Hải
Trang 162

CHƯƠNG 7
LẬP TRÌNH CƠ SỞ DỮ LIỆU

Access không những là một hệ quản trị CSDL mạnh mà còn cung cấp những
công cụ mạnh cho phép phát triển một CSDL đơn thuần thành một sản phẩm đóng
gói thương mại. Chúng ta đã được học Queries, Forms, Report – đó là những công
cụ khá mạnh và dễ học dùng để xây dựng các truy vấn, biểu mẫu và báo cáo in ấn
trong Access. Chương 7 đã được làm quen với ngôn ngữ VBA- một ngôn ngữ lập
trình trực quan, hướng đối tượng trong các
ứng dụng Microsoft Office nói chung
cũng như trên Access. Đó là cơ sở quan trọng để trong chương này chúng ta tìm
hiểu những kỹ thuật lập trình CSDL bằng VBA- có thể nói là một mức chuyên sâu

tiếp theo những gì đã học VBA căn bản.
Các chủ đề sẽ được bàn đến trong chương này bao gồm:
 Lớp đối tượng truy cập dữ liệu (DAO- Data Access Objects);
 Bài toán tìm kiếm;
 Bài toán đặt lọc;
 Một số bài toán khác.

Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e

V
i
e
w
e
r
w
w
w
.

d
o
c
u
-
t
r
a
c
k
.
c
o
m
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e

V
i
e

w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
.
Giáo trình Microsoft Access 2000 Copyright
®
Nguyễn Sơn Hải
Trang 163



1. Kỹ thuật DAO

DAO (Data Access Objects – Các đối tượng truy xuất dữ liệu) là tập hợp bao
gồm lớp các đối tượng có thể dùng để lập trình truy cập và xử lý dữ liệu trong các
hệ CSDL. Ở đây CSDL Access, ngôn ngữ lập trình VBA.
DAO được phát triển khá sớm, gần đây nhất là phiên bản DAO 3.5 và 3.51- nó
có thể thực hiện tốt được trên các phiên bản Access từ 97 trở về trước. Với Access
2000, XP phải dùng phiên bản DAO 3.6. Với phiên bản mới này, DAO 3.6 sử dụ
ng
nền Microsoft Jet 4.0. Vì vậy, có thể làm việc được trên nền Unicode dễ dàng.
Để nạp thư viện DAO3.6 vào làm việc, hãy thực hiện như sau:
Bước 1: Mở cửa sổ lập trình VBA;
Bước 2: Chọn thực đơn Tools | References Hộp thoại sau xuất hiện:

Hãy chọn (tích) mục Microsoft DAO 3.6 Object Libraly trên danh sách
Available References; chọn xong, nhấn OK để đóng lại.
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e

V
i
e

w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
Click to buy NOW!
P
D
F
-
X
C
h
a

n
g
e

V
i
e
w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
.