Làm sao gán giá trị của text box cho text box

[othanhquango]

Mình đang muốn gán giá trị của 1 text box cho 1 text box khác. Mong các bạn giúp mình.
Mình ví dụ cho dễ hiểu thì thế này
mình có 4 text box
- txtmot
- txthai
- txttinh
- txtduocgan.

Mình muốn làm như sau: txttinh có control source = txtmot+txthai, sau khi tính xong tự động gán kết quả cho txtduocgan (có control source là trường luutru chẳng hạn). Sau đó giả xử mình thay đổi giá trị cảu txtmot và txthai, thì kết quả mới sẽ được thay đổi ngay và gán cho txtduocgan liền sau khi thay đổi.

Mong các bạn giúp mình nha, nếu được chỉ mình 2 cách luôn nha, xài macro hoặc modunce cũng được.

Chân thành cảm ơn các bạn.

 

[xuanthanh]

Ðề: Làm sao gán giá trị của text box cho text box

Mình đang muốn gán giá trị của 1 text box cho 1 text box khác. Mong các bạn giúp mình.
Mình ví dụ cho dễ hiểu thì thế này
mình có 4 text box
- txtmot
- txthai
- txttinh
- txtduocgan.

Mình muốn làm như sau: txttinh có control source = txtmot+txthai, sau khi tính xong tự động gán kết quả cho txtduocgan (có control source là trường luutru chẳng hạn). Sau đó giả xử mình thay đổi giá trị cảu txtmot và txthai, thì kết quả mới sẽ được thay đổi ngay và gán cho txtduocgan liền sau khi thay đổi.

Mong các bạn giúp mình nha, nếu được chỉ mình 2 cách luôn nha, xài macro hoặc modunce cũng được.

Chân thành cảm ơn các bạn.

Đơn giản nhất là thế này :

Private Sub txtmot_AfterUpdate()
      txtduocgan = txtmot + txthai
End Sub

Private Sub txthai_AfterUpdate()
      txtduocgan = txtmot + txthai
End Sub

Làm như vậy mỗi khi cập nhật hai txt mot va hai thi phép tính được gán ngay

 

[viettienedu]

Ðề: Làm sao gán giá trị của text box cho text box

Bạn dung Even after update cho textbox txtmot và txthai như sau
me.txtduocgan.value = me.txtmot.value * Me.txthai.value
-----------------------------------------------------------------------------------------
Bạn dung Even after update cho textbox txtmot và txthai như sau
me.txtduocgan.value = me.txtmot.value + Me.txthai.value

 

[othanhquango]

Ðề: Làm sao gán giá trị của text box cho text box

Chân thành cảm ơn 2 bạn, mình sẽ làm thử có gì mình hỏi tiếp nha
-----------------------------------------------------------------------------------------

Bạn dung Even after update cho textbox txtmot và txthai như sau
me.txtduocgan.value = me.txtmot.value * Me.txthai.value
-----------------------------------------------------------------------------------------
Bạn dung Even after update cho textbox txtmot và txthai như sau
me.txtduocgan.value = me.txtmot.value + Me.txthai.value

Cách này không được bạn ơi
-----------------------------------------------------------------------------------------

Đơn giản nhất là thế này :

Private Sub txtmot_AfterUpdate()
      txtduocgan = txtmot + txthai
End Sub

Private Sub txthai_AfterUpdate()
      txtduocgan = txtmot + txthai
End Sub

Làm như vậy mỗi khi cập nhật hai txt mot va hai thi phép tính được gán ngay

Cách này cũng ko được luôn, làm 1 form thì được, nhưng vô form chính thì ko

 

[xuanthanh]

Ðề: Làm sao gán giá trị của text box cho text box

Chân thành cảm ơn 2 bạn, mình sẽ làm thử có gì mình hỏi tiếp nha
-----------------------------------------------------------------------------------------


Cách này không được bạn ơi
-----------------------------------------------------------------------------------------


Cách này cũng ko được luôn, làm 1 form thì được, nhưng vô form chính thì ko

Vậy thì bó tay với bạn luôn. Bạn cần nêu cụ thể vấn đề ra để mọi người có thể giúp bạn được

 

[othanhquango]

Ðề: Làm sao gán giá trị của text box cho text box

Ví dụ như thế này:
txtmot (cái này thuộc subform): nhập liệu, txthai: mình dùng hàm iif trả về giá trị, txtketqua: sum(txtmot)-txthai.
Trong tất cả các textbox còn lại mình đều gán enable=no. chỉ có txt một là nhập được và nó nằm trong form sub. Vậy nếu mình muốn gán giá trị txtketqua cho txtduocgan để lưu trữ (cái này có control source riêng). Và kết quả sẽ thay đổi ngay lặp tức khi txtmot thay đổi thì làm cách nào?

Ví dụ như vậy, bạn hiểu không?
Rất chân thành cảm ơn các bạn.

 

[xuanthanh]

Ðề: Làm sao gán giá trị của text box cho text box

Ví dụ như thế này:
txtmot (cái này thuộc subform): nhập liệu, txthai: mình dùng hàm iif trả về giá trị, txtketqua: sum(txtmot)-txthai.
Trong tất cả các textbox còn lại mình đều gán enable=no. chỉ có txt một là nhập được và nó nằm trong form sub. Vậy nếu mình muốn gán giá trị txtketqua cho txtduocgan để lưu trữ (cái này có control source riêng). Và kết quả sẽ thay đổi ngay lặp tức khi txtmot thay đổi thì làm cách nào?

Ví dụ như vậy, bạn hiểu không?
Rất chân thành cảm ơn các bạn.

Nếu vậy thì các textbox còn lại nằm ở đâu? trong subform hay maiform? Có vậy mới biết được chứ

 

[othanhquango]

Ðề: Làm sao gán giá trị của text box cho text box

Nếu vậy thì các textbox còn lại nằm ở đâu? trong subform hay maiform? Có vậy mới biết được chứ

Hic, nàm trong mainform hết bạn, chỉ có 1 cái txtmot là nằm trong sub thôi.

 

[Access2k]

Ðề: Làm sao gán giá trị của text box cho text box

Ví dụ như thế này:
txtmot (cái này thuộc subform): nhập liệu, txthai: mình dùng hàm iif trả về giá trị, txtketqua: sum(txtmot)-txthai.
Trong tất cả các textbox còn lại mình đều gán enable=no. chỉ có txt một là nhập được và nó nằm trong form sub. Vậy nếu mình muốn gán giá trị txtketqua cho txtduocgan để lưu trữ (cái này có control source riêng). Và kết quả sẽ thay đổi ngay lặp tức khi txtmot thay đổi thì làm cách nào?

Ví dụ như vậy, bạn hiểu không?
Rất chân thành cảm ơn các bạn.

Để kết quả hiển thị ngay lập tức:
- Bạn viết code cho AfterUpdate cho Txtmot.
- Gán giá trị lên Mainform (Lưu ý textbox tại mainform có liên kết cha con với Subform thì đặt Me!Parent...)
- Cập nhật kết quả bằng dòng lệnh

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

 

[othanhquango]

Ðề: Làm sao gán giá trị của text box cho text box

Để kết quả hiển thị ngay lập tức:
- Bạn viết code cho AfterUpdate cho Txtmot.
- Gán giá trị lên Mainform (Lưu ý textbox tại mainform có liên kết cha con với Subform thì đặt Me!Parent...)
- Cập nhật kết quả bằng dòng lệnh

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Bạn có thể nói rõ hơn không bạn, liên kết cha con với subform thì làm sao và làm chỗ nào?
CÒn cập nhật kết quả bằng dòng lệnh đó đặt ở even afterupdate à?

Chân thành cảm ơn bạn.

 

[quochoi_05]

Ðề: Làm sao gán giá trị của text box cho text box

Ví dụ như thế này:
txtmot (cái này thuộc subform): nhập liệu, txthai: mình dùng hàm iif trả về giá trị, txtketqua: sum(txtmot)-txthai.
Trong tất cả các textbox còn lại mình đều gán enable=no. chỉ có txt một là nhập được và nó nằm trong form sub. Vậy nếu mình muốn gán giá trị txtketqua cho txtduocgan để lưu trữ (cái này có control source riêng). Và kết quả sẽ thay đổi ngay lặp tức khi txtmot thay đổi thì làm cách nào?

Ví dụ như vậy, bạn hiểu không?
Rất chân thành cảm ơn các bạn.

Bạn tạo 1 textbox tạm ở mainform: txtTmp để nhận giá trị từ txtmot

Phần code này ở subform
Private Sub txtmot_AfterUpdate()
Forms!Mainform!txtTmp.Value = txtmot.Value
Forms!Mainform!txtketqua.Value = txtmot.Value - Forms!Mainform!txthai.value
End Sub

Phần này ở mainform (vì txthai nằm ở mainform)

Private Sub txthai_AfterUpdate()
txtketqua.value=txtTmp.value - txthai.value
End sub

 

[othanhquango]

Ðề: Làm sao gán giá trị của text box cho text box

Bạn tạo 1 textbox tạm ở mainform: txtTmp để nhận giá trị từ txtmot

Phần code này ở subform
Private Sub txtmot_AfterUpdate()
Forms!Mainform!txtTmp.Value = txtmot.Value
Forms!Mainform!txtketqua.Value = txtmot.Value - Forms!Mainform!txthai.value
End Sub

Phần này ở mainform (vì txthai nằm ở mainform)

Private Sub txthai_AfterUpdate()
txtketqua.value=txtTmp.value - txthai.value
End sub

Hic, cái mình cần là kết quả cuối cùng gán vô txtduocgan (có source riêng để lưu), còn txtketqua chỉ là kết quả của những phép tính trên thôi bạn.

Nhân tiện mình hỏi thêm, làm sao gắn cho textbox nhiều dòng ta, ví dụ dòng 1 gán xyz, lần 2 gán vô tự xuống dòng, và tiếp tục như vậy.

 

[quochoi_05]

Ðề: Làm sao gán giá trị của text box cho text box

Hic, cái mình cần là kết quả cuối cùng gán vô txtduocgan (có source riêng để lưu), còn txtketqua chỉ là kết quả của những phép tính trên thôi bạn.

Nhân tiện mình hỏi thêm, làm sao gắn cho textbox nhiều dòng ta, ví dụ dòng 1 gán xyz, lần 2 gán vô tự xuống dòng, và tiếp tục như vậy.

Thì bạn thay txtketqua = txtduocgan trong dòng code
vậy thì bạn bỏ textbox txtketqua luôn đi chon gọn.
Gắn textbox có nhiều dòng làm gì vậy? mình chưa nghe bao giờ. Người ta thường dùng listbox hoặc comboxbox.

 

[othanhquango]

Ðề: Làm sao gán giá trị của text box cho text box

Cảm ơn bạn thực tế mình cần txtketqua để hiện thị tổng số tiền còn nợ. Còn txtduocgan để hiện thị ghi chú là: "còn nợ học phí" do đó, nếu sau khi txtmot nhập dữ liệu thì hoàng loạt sự kiện xảy ra, rồi nếu txtketqua >0 thì gán vô txtconno. Bạn cho mình xin cái mail, nếu mình ko làm được sẽ gởi file đó cho bạn nhờ bạn giúp nhe .

Mình muốn text box nhiều dòng để ghi chú thôi, ví dụ: nếu còn nợ học phí thì hiện "còn nợ xx tiền học", nếu đăng ký thi thì xuống dòng ghi: "đã đăng ký thi", nói chung gán những ghi chú vô txtghichu. Nếu sử dụng combo box hoặc list box thì ko hợp lý tí nào.

 

[muontennguoi]

Ðề: Làm sao gán giá trị của text box cho text box

Cảm ơn bạn thực tế mình cần txtketqua để hiện thị tổng số tiền còn nợ. Còn txtduocgan để hiện thị ghi chú là: "còn nợ học phí" do đó, nếu sau khi txtmot nhập dữ liệu thì hoàng loạt sự kiện xảy ra, rồi nếu txtketqua >0 thì gán vô txtconno. Bạn cho mình xin cái mail, nếu mình ko làm được sẽ gởi file đó cho bạn nhờ bạn giúp nhe .

Mình muốn text box nhiều dòng để ghi chú thôi, ví dụ: nếu còn nợ học phí thì hiện "còn nợ xx tiền học", nếu đăng ký thi thì xuống dòng ghi: "đã đăng ký thi", nói chung gán những ghi chú vô txtghichu. Nếu sử dụng combo box hoặc list box thì ko hợp lý tí nào.

me.txtghichu.value = me.txtghichu.value & "còn nợ xx tiền học" & chr(13) & chr (10)
me.txtghichu.value = me.txtghichu.value & "đã đăng ký thi" & chr(13) & chr (10)

chr(13) : hết 1 dòng, xuống dòng.
chr(10) : bắt đầu 1 dòng mới.
Nhớ chr(13) trước rồi chr(10) tiếp theo sau.