Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo query trong Module
#11
(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 


File đính kèm
.zip   BH2003(thayQrybangSqltrongVBAl2).zip (Kích cỡ: 19.69 KB / Tải về: 5)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn minhhang02081992
#12
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!


File đính kèm
.zip   BH2003(thayQrybangSqltrongVBAl3).zip (Kích cỡ: 25.16 KB / Tải về: 8)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn minhhang02081992
#13
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#14
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!
Chữ ký của minhhang02081992 Xin chào, mình là minhhang02081992, Tham gia http://thuthuataccess.com/forum từ ngày 16-03 -15.
Reply
Những người đã cảm ơn
#15
(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.040

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.040

Thân ái, chào bạn!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn minhhang02081992
#16
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)
Chữ ký của minhhang02081992 Xin chào, mình là minhhang02081992, Tham gia http://thuthuataccess.com/forum từ ngày 16-03 -15.
Reply
Những người đã cảm ơn
#17
(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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn minhhang02081992
#18
Em cảm ơn anh nhiều ah.
Chữ ký của minhhang02081992 Xin chào, mình là minhhang02081992, Tham gia http://thuthuataccess.com/forum từ ngày 16-03 -15.
Reply
Những người đã cảm ơn
#19
(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
Chữ ký của thucgia Hix, Access quả nhiên lợi hại !!!! http://vibigaba.esy.es/
ღღღღღTài sản của thucgia (View All Items) ღღღღღ
Reply
Những người đã cảm ơn minhhang02081992
#20
(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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn minhhang02081992


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hỏi về bắt lỗi trong accc thanlaem 20 682 05-09-16, 10:53 PM
Bài mới nhất: thanlaem
  xuống dòng trong textbox report tieuho828 3 266 08-05-16, 09:22 PM
Bài mới nhất: maidinhdan
  Module cộng trừ số lẻ vodainhan 4 395 25-11-15, 04:09 PM
Bài mới nhất: vodainhan
  [Help] Giúp đỡ về dàn dữ liệu trong phần Detail của Report!! phatdtcdsp 9 957 07-08-15, 09:50 AM
Bài mới nhất: tranthanhan1962
  [Help] Giúp tạo form tìm kiếm các file trong windows aitinh2005 1 533 25-07-15, 10:40 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ