Tùy chọn
Tạo query trong Module
- Tạo query trong Module
-
RE: Thay Query bằng SQL trong VBA
maidinhdan > 20-03-15, 12:49 PM
(20-03-15, 12:08 PM)minhhang02081992 Đã viết: Dạ file em sửa đây ah: http://www.mediafire.com/download/a0pct8...BH2003.rar
Anh giúp em đoạn code sao cho kết quả ở form1 và form2 được như ở frmBH
Thanks!
-Tôi đã tạo Form quan sát theo bước 1 phía trên cho bạn trong file đính kèm
- Đến bước 2 bạn nhập đoạn lệnh này để tạo cho form nhập liệu ( xem code đầy đủ phía trên ở bước 2
Mã PHP:Private Sub cmdcapnhat_Click()
If Me.txtid3 <> "" And Me.txtnoidung <> "" Then
Dim txta As String
Dim txtb As String
txta = Me.txtid3
txtb = Me.txtnoidung
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Table3", dbOpenTable)
rs.AddNew
rs!ID = txta
rs![Noi dung] = txtb
rs.Update
rs.Close
Me.txtid3 = ""
Me.txtnoidung = ""
MsgBox "Da nhap"
Forms("frmHienthi").Requery
Else
MsgBox "Truong ID va Noi dung khong dc bo trong"
End If
End Sub
Private Sub cmdthem_Click()
If Me.txtid1 <> "" And Me.txtten <> "" Then
Dim txta As String
Dim txtb As String
txta = Me.txtid1
txtb = Me.txtten
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Table1", dbOpenTable)
rs.AddNew
rs!ID = txta
rs!Ten = txtb
rs.Update
rs.Close
Me.txtid1 = ""
Me.txtten = ""
MsgBox "Da nhap"
Forms("frmHienthi").Requery
Else
MsgBox "Truong ID va Ten khong dc bo trong"
End If
End Sub -
RE: Thay Query bằng SQL trong VBA
maidinhdan > 20-03-15, 01:44 PM
Bạn nên chạy file Demo đính kèm trên để nắm lấy kinh nghiệm những lỗi phát sinh.
Và đây là Demo cuối cùng cho tất cả câu hỏi của bạn.
Thân ái! -
RE: Tạo query trong Module
Xuân Thanh > 20-03-15, 03:43 PM
Góp ý đôi chút
1/ Trong CSDL của bạn minhhang02081992 sao không tối ưu lại cho gọn và dễ thao tác. Ban có thể gộp table1 và table2 vào làm một. Và như vậy trong khi truy vấn có lẽ đơn giản hơn rất nhiều
Vd : Form nhập liệu có thể dùng subform để cập nhật....
2/ Trong câu lệnh cập nhật của bạn maidinhdan hình như thiếu lệnh thoát khi không đáp ứng điều kiện If...Else...End If. Và sao không gán thẳng giá trị mà đặt biến làm chi cho dài dòng?
Vd : rs!ID = Me.txtid3.....
Thân mến
Xuân Thanh -
RE: Tạo query trong Module
minhhang02081992 > 20-03-15, 10:18 PM
1. Gửi anh Xuan Thanh: Em để Đơn giá ra 1 bảng khác vì cửa hàng nhà em nhập hàng về đôi lúc giá nhập sẽ thay đổi = > em bán hàng tồn giá sẽ thấp hơn giá hàng mới nhập. Thank anh góp ý ah.
2. Gửi anh maidinhdan: Như mục đích câu hỏi em nói lần đầu thì em mong được các anh chỉ dạy em tạo query = vba và từ đó em có thể gọi kết quả mà query kia đã tạo ra cho bất cứ form hay report nào em muốn (kiểu hàng dùng chung anh ah). Em thấy trong demo anh gửi cho em thì mỗi form có 1 đoạn code khác nhau và em e rằng khi em sag form2 thì không thể alo cho code ở form1 được ah.
Kết lại câu hỏi của em: Em mong được anh, các anh chỉ dạy em viết 1 đoạn code VBA để tạo ra 1query dùng chung cho tất cả các form ạ.
Em xin cảm ơn! -
RE: Tạo query trong Module
maidinhdan > 21-03-15, 12:02 AM
(20-03-15, 10:18 PM)minhhang02081992 Đã viết: 2. Gửi anh maidinhdan: Như mục đích câu hỏi em nói lần đầu thì em mong được các anh chỉ dạy em tạo query = vba và từ đó em có thể gọi kết quả mà query kia đã tạo ra cho bất cứ form hay report nào em muốn (kiểu hàng dùng chung anh ah). Em thấy trong demo anh gửi cho em thì mỗi form có 1 đoạn code khác nhau và em e rằng khi em sag form2 thì không thể alo cho code ở form1 được ah.
Kết lại câu hỏi của em: Em mong được anh, các anh chỉ dạy em viết 1 đoạn code VBA để tạo ra 1query dùng chung cho tất cả các form ạ.
Em xin cảm ơn!
Thì ra ý bạn là chỉ cần 1 đoạn code SQL duy nhất: để áp dụng cho tất cả các form, report...
Xin trả lời là: Vô phương.
Bởi thường form, report sẽ truy xuất đến table khác nhau và có quan hệ (ralationship) trói buộc nên ý tưởng của bạn đề ra phía trên là Khao khát của các nhà lập trình code mà đến nay chưa 1 nhà bác học nào làm được.
Thân ái, chào bạn! -
RE: Tạo query trong Module
minhhang02081992 > 21-03-15, 08:13 AM
Dạ vâng, em cảm ơn hai anh đã giúp em hiểu rõ vấn đề.
Trong trường hợp 1 đoạn code đó thì có trong 1form thì có dùng cho report được không ah (report lấy kết quả theo điều kiện đã đặt trên form kia, ngoại trừ copy code đó từ form sang report) -
RE: Tạo query trong Module
maidinhdan > 21-03-15, 11:34 PM
(21-03-15, 08:13 AM)minhhang02081992 Đã viết: Dạ vâng, em cảm ơn hai anh đã giúp em hiểu rõ vấn đề.
Trong trường hợp 1 đoạn code đó thì có trong 1form thì có dùng cho report được không ah (report lấy kết quả theo điều kiện đã đặt trên form kia, ngoại trừ copy code đó từ form sang report)
Xin trả lời bạn từng câu như sau:
1) Hỏi: Trong trường hợp 1 đoạn code đó thì có trong 1form thì có dùng cho report được không?
- Được : y như bạn đã nói ( copy code đó từ form sang report)
2) Hỏi: report lấy kết quả theo điều kiện đã đặt trên form kia?
- Dưa trên code đã tạo trên form ở câu hỏi phía trên ta chèn thêm điệu kiện cần lọc. Thường ta sẽ sử dụng các mệnh đề Where, Inner Join...On, Union, Having... để lồng vào code.
Thân ái! -
RE: Tạo query trong Module
minhhang02081992 > 21-03-15, 11:59 PM
Em cảm ơn anh nhiều ah. -
RE: Tạo query trong Module
thucgia > 22-03-15, 02:29 AM
(20-03-15, 12:49 PM)maidinhdan Đã viết:
(20-03-15, 12:08 PM)minhhang02081992 Đã viết: Dạ file em sửa đây ah: http://www.mediafire.com/download/a0pct8...BH2003.rar
Anh giúp em đoạn code sao cho kết quả ở form1 và form2 được như ở frmBH
Thanks!
-Tôi đã tạo Form quan sát theo bước 1 phía trên cho bạn trong file đính kèm
- Đến bước 2 bạn nhập đoạn lệnh này để tạo cho form nhập liệu ( xem code đầy đủ phía trên ở bước 2
Mã PHP:Private Sub cmdcapnhat_Click()
If Me.txtid3 <> "" And Me.txtnoidung <> "" Then
Dim txta As String
Dim txtb As String
txta = Me.txtid3
txtb = Me.txtnoidung
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Table3", dbOpenTable)
rs.AddNew
rs!ID = txta
rs![Noi dung] = txtb
rs.Update
rs.Close
Me.txtid3 = ""
Me.txtnoidung = ""
MsgBox "Da nhap"
Forms("frmHienthi").Requery
Else
MsgBox "Truong ID va Noi dung khong dc bo trong"
End If
End Sub
Private Sub cmdthem_Click()
If Me.txtid1 <> "" And Me.txtten <> "" Then
Dim txta As String
Dim txtb As String
txta = Me.txtid1
txtb = Me.txtten
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Table1", dbOpenTable)
rs.AddNew
rs!ID = txta
rs!Ten = txtb
rs.Update
rs.Close
Me.txtid1 = ""
Me.txtten = ""
MsgBox "Da nhap"
Forms("frmHienthi").Requery
Else
MsgBox "Truong ID va Ten khong dc bo trong"
End If
End Sub
hic cho mình góp ý tí:
1, Nhìn cái relationship của bạn mình thấy tối nghĩa quá, đã dùng access hay nói chung là lập trình với cơ sở dữ liệu thì cái này là điều tiên quyết nếu không làm rõ thì không đi đến đâu được
2, Vè vấn đề để xài lại code thì phải tổ chức lại - trong lập trình người ta gọi là mô hình 3 lớp
Bạn nên làm thế này nhé:
tạo object hoadon
hoadon_obj=(id,ngay,id_khach)....
tạo một module: hoadon_module
và thiết kế các phương thức như sau
hoadon_module.them(hd_obj)
hoadon_module.xoa(hd_obj)
hoadon_module.sua(hd_obj)
....
Rồi cứ thế mà đai tới, bảo đảm tính "xài lại" rất cao
hic, vài lời thế nhưng mình nhắc lại cái relationship là tiên quyết, nếu không thì dễ tẩu hỏa lém -
RE: Tạo query trong Module
maidinhdan > 22-03-15, 12:39 PM
(22-03-15, 02:29 AM)thucgia Đã viết: hic cho mình góp ý tí:
1, Nhìn cái relationship của bạn mình thấy tối nghĩa quá, đã dùng access hay nói chung là lập trình với cơ sở dữ liệu thì cái này là điều tiên quyết nếu không làm rõ thì không đi đến đâu được
2, Vè vấn đề để xài lại code thì phải tổ chức lại - trong lập trình người ta gọi là mô hình 3 lớp
Bạn nên làm thế này nhé:
tạo object hoadon
hoadon_obj=(id,ngay,id_khach)....
tạo một module: hoadon_module
và thiết kế các phương thức như sau
hoadon_module.them(hd_obj)
hoadon_module.xoa(hd_obj)
hoadon_module.sua(hd_obj)
....
Rồi cứ thế mà đai tới, bảo đảm tính "xài lại" rất cao
hic, vài lời thế nhưng mình nhắc lại cái relationship là tiên quyết, nếu không thì dễ tẩu hỏa lém
Bạn thucgia thân mến!
Khi bạn góp ý những điều trên là mình biết kiến thức của mình đã không bằng bạn. Mình xin cảm ơn lời góp ý chân thành của bạn.
Mình cũng giống như bạn minhhang bắt đầu học Access qua sách vở không được đào tạo bài bản qua trường lớp nên cái khái niệm về mô hinh 3 lớp có lẽ là rất xa xỉ.
Nếu biết chạy thì người ta sẽ không tập đi, để đỡ mất thời gian. Cũn giống như phải tập đạp xe đạp trước rồi mới tớ chạy bằng xe gắn máy ấy mà.
Một lần nửa xin cảm ơn bạn!
Thân ái!