Tùy chọn
Tính toán trong Textbox
- Tính toán trong Textbox
-
Tính toán trong Textbox
phamngocsang > 17-09-15, 08:40 PM
Xin chào các bác.
em đang làm bài tập nhỏ trên ms access2010 nhưng bị vướn mắt vài thứ. xin các bác hướng dẫn em với. em thì dốt vba lắm.
1./. em có Textbox, em muốn tính toán các bài toán cơ bản như: cộng, trừ, nhân, chia và (); đồng thời trả luôn kết quả trên Textbox đó luôn khi nhấn enter.
2./. em có 3 Textbox: Textbox1 chứa dữ liệu dạng Text; Textbox2 chứa dữ liệu dạng value (kiểu interger); Textbox3 chứa kết quả
ví dụ:
Textbox1=80,00
Textbox2=Tiền
kết quả ở Textbox3=Tiền: 80,00
em chỉ làm được như vậy thôi: Tiền: 80 (80 thiếu 2 số 0 phía sau dấu phẩy thập phân)
Rất mong các bác hồi âm.
xin chân thành cảm ơn các bác nhiều !!! -
RE: Tính toán trong Textbox
tranthanhan1962 > 17-09-15, 10:33 PM
(17-09-15, 08:40 PM)phamngocsang Đã viết: Xin chào các bác.
em đang làm bài tập nhỏ trên ms access2010 nhưng bị vướn mắt vài thứ. xin các bác hướng dẫn em với. em thì dốt vba lắm.
1./. em có Textbox, em muốn tính toán các bài toán cơ bản như: cộng, trừ, nhân, chia và (); đồng thời trả luôn kết quả trên Textbox đó luôn khi nhấn enter.
2./. em có 3 Textbox: Textbox1 chứa dữ liệu dạng Text; Textbox2 chứa dữ liệu dạng value (kiểu interger); Textbox3 chứa kết quả
ví dụ:
Textbox1=80,00
Textbox2=Tiền
kết quả ở Textbox3=Tiền: 80,00
em chỉ làm được như vậy thôi: Tiền: 80 (80 thiếu 2 số 0 phía sau dấu phẩy thập phân)
Rất mong các bác hồi âm.
xin chân thành cảm ơn các bác nhiều !!!
Nếu như bạn nói: tất cả các số hạng nằm trên Textbox2 kết quả cũng nằm trên Textbox2 nhấn enter ra kết quả thì bạn nên xem lại viết code thì cũng được đó nhưng bạn quản có nỗi không khi viết sai. Rất nhiều trường hợp xảy ra nếu bạn gỏ dính phím 2 dấu cộng hoặc hai dấu khác nhau. Còn nếu bạn muốn làm một form máy tính tay. Thì nó không đơn giản như bạn nghĩ đâu. Tặng bạn một ứng dụng máy tính tay để bạn nghiên cứu
http://www.mediafire.com/download/9a9hss...ulator.mdb -
RE: Tính toán trong Textbox
phamngocsang > 18-09-15, 02:40 PM
cảm ơn Anh tranthanhan1962 rất nhiều vì đã trả lời.
trong bài em đăng có 2 ý lận ạ, đó là 2 bài riêng biệt nhau.
Đối với câu hỏi 1./. em thấy cũng rất khó, không dễ làm. Thôi em dùng hàm để gọi Caculator của Windown lên để xài đỡ thôi.
Đối với câu hỏi số 2./. thì nhờ các Anh (Chị) giúp em với. Em cảm ơn nhiều.
Chúc Anh (Chị) thật khỏa mạnh và công tác tốt
-
RE: Tính toán trong Textbox
tranthanhan1962 > 18-09-15, 04:40 PM
(17-09-15, 08:40 PM)phamngocsang Đã viết: 2./. em có 3 Textbox: Textbox1 chứa dữ liệu dạng Text; Textbox2 chứa dữ liệu dạng value (kiểu interger); Textbox3 chứa kết quả
ví dụ:
Textbox1=80,00
Textbox2=Tiền
kết quả ở Textbox3=Tiền: 80,00
Không biết bạn có lẫn lộn gì không?
Textbox1 chứa dữ liệu dạng Text (Textbox1=80,00). Cái này tạm được.
Textbox2 chứa dữ liệu dạng value (kiểu interger) (Textbox2=Tiền). Mình chào thua. Kiểu dữ liệu Interger mà = "Tiền" thì mình nghĩ bạn xem lại lý thuyết trước đã.
cái này phải là
Textbox1 chứa dữ liệu dạng interger; Textbox2 chứa dữ liệu dạng Text
Hàm Textbox3.
Tại control Textbox3/Form.
=[Textbox2] & ": " & Format([Textbox1];"0.00")
Trong VBA
Textbox3.Value = Textbox2.Value & ": " & Format(Textbox1.Value;"0.00") -
RE: Tính toán trong Textbox
thucgia > 19-09-15, 01:50 PM
(17-09-15, 08:40 PM)phamngocsang Đã viết: Xin chào các bác.
em đang làm bài tập nhỏ trên ms access2010 nhưng bị vướn mắt vài thứ. xin các bác hướng dẫn em với. em thì dốt vba lắm.
1./. em có Textbox, em muốn tính toán các bài toán cơ bản như: cộng, trừ, nhân, chia và (); đồng thời trả luôn kết quả trên Textbox đó luôn khi nhấn enter.
2./. em có 3 Textbox: Textbox1 chứa dữ liệu dạng Text; Textbox2 chứa dữ liệu dạng value (kiểu interger); Textbox3 chứa kết quả
ví dụ:
Textbox1=80,00
Textbox2=Tiền
kết quả ở Textbox3=Tiền: 80,00
em chỉ làm được như vậy thôi: Tiền: 80 (80 thiếu 2 số 0 phía sau dấu phẩy thập phân)
Rất mong các bác hồi âm.
xin chân thành cảm ơn các bác nhiều !!!
Cái này khó à nghen, nếu muốn luyện code phải làm bài dể hơn đi bạn...
Bời vì để làm bài này phải xài tới một cái stack đó bạn. -
RE: Tính toán trong Textbox
thucgia > 19-09-15, 01:57 PM
(18-09-15, 04:40 PM)tranthanhan1962 Đã viết:
(17-09-15, 08:40 PM)phamngocsang Đã viết: 2./. em có 3 Textbox: Textbox1 chứa dữ liệu dạng Text; Textbox2 chứa dữ liệu dạng value (kiểu interger); Textbox3 chứa kết quả
ví dụ:
Textbox1=80,00
Textbox2=Tiền
kết quả ở Textbox3=Tiền: 80,00
Không biết bạn có lẫn lộn gì không?
Textbox1 chứa dữ liệu dạng Text (Textbox1=80,00). Cái này tạm được.
Textbox2 chứa dữ liệu dạng value (kiểu interger) (Textbox2=Tiền). Mình chào thua. Kiểu dữ liệu Interger mà = "Tiền" thì mình nghĩ bạn xem lại lý thuyết trước đã.
cái này phải là
Textbox1 chứa dữ liệu dạng interger; Textbox2 chứa dữ liệu dạng Text
Hàm Textbox3.
Tại control Textbox3/Form.
=[Textbox2] & ": " & Format([Textbox1];"0.00")
Trong VBA
Textbox3.Value = Textbox2.Value & ": " & Format(Textbox1.Value;"0.00")
Nhân tiện cho mình hỏi anh tranthanhan1962 tí:
Trong vba có cái hàm nào giống cái bên dưới không?
printf("Họ tên: %s,Lớp: %s,Địa chỉ : %s","thucgia","13","Cầu 3 cẳng")
Vừa hỏi anh nhưng lại tìm thấy cái này
No but you can create a naive one simply enough by adding the following to a VBA module
Mã:public function printf(mask As String, ParamArray tokens()) as String
dim i as Long
for i = 0 To ubound(tokens)
mask = replace$(mask, "{" & i & "}", tokens(i))
next
printf = mask
end Function
...
Mã:=printf("Some text '{0}', more text: '{1}'", A1, A2) -
RE: Tính toán trong Textbox
tranthanhan1962 > 20-09-15, 12:10 AM
(19-09-15, 01:57 PM)thucgia Đã viết: Nhân tiện cho mình hỏi anh tranthanhan1962 tí:
Trong vba có cái hàm nào giống cái bên dưới không?
printf("Họ tên: %s,Lớp: %s,Địa chỉ : %s","thucgia","13","Cầu 3 cẳng")
Vừa hỏi anh nhưng lại tìm thấy cái này
No but you can create a naive one simply enough by adding the following to a VBA module
Mã:public function printf(mask As String, ParamArray tokens()) as String
dim i as Long
for i = 0 To ubound(tokens)
mask = replace$(mask, "{" & i & "}", tokens(i))
next
printf = mask
end Function
...
Mã:=printf("Some text '{0}', more text: '{1}'", A1, A2)
Bạn hỏi mình nhưng bạn đã tự trả lời rồi. Hàm nội tại của VBA không có hàm nào tên là printf, mà chỉ có một cú pháp lệnh print. Nó đi kèm với Debug dùng để in văn bản trong cửa sổ Immediate.
Cú pháp như sau:
Debug.Print "Họ tên: %s,Lớp: %s,Địa chỉ : %s","thucgia","13","Cầu 3 cẳng"
Tất nhiên nếu bạn viết lệnh này trong VBA các ký tự có dấu sẽ chuyển sang dấu ?.
Còn User function thì ai muốn đặt tên gì cũng được.
Ví dụ tôi có quyền tạo một hàm printf như sau:
Tất nhiên kết quả hàm printf của tôi khác với kết quả hàm printf của bạnMã:Function printf(ong_ngoai as String, me_toi as String)
ong_ngoai = "Ông ngoại"
me_toi = "mẹ tôi"
printf = ong_ngoai + " là cha của " + me_toi
End Function -
RE: Tính toán trong Textbox
phamngocsang > 21-09-15, 08:16 AM
(18-09-15, 04:40 PM)tranthanhan1962 Đã viết:
(17-09-15, 08:40 PM)phamngocsang Đã viết: 2./. em có 3 Textbox: Textbox1 chứa dữ liệu dạng Text; Textbox2 chứa dữ liệu dạng value (kiểu interger); Textbox3 chứa kết quả
ví dụ:
Textbox1=80,00
Textbox2=Tiền
kết quả ở Textbox3=Tiền: 80,00
Không biết bạn có lẫn lộn gì không?
Textbox1 chứa dữ liệu dạng Text (Textbox1=80,00). Cái này tạm được.
Textbox2 chứa dữ liệu dạng value (kiểu interger) (Textbox2=Tiền). Mình chào thua. Kiểu dữ liệu Interger mà = "Tiền" thì mình nghĩ bạn xem lại lý thuyết trước đã.
cái này phải là
Textbox1 chứa dữ liệu dạng interger; Textbox2 chứa dữ liệu dạng Text
Hàm Textbox3.
Tại control Textbox3/Form.
=[Textbox2] & ": " & Format([Textbox1];"0.00")
Trong VBA
Textbox3.Value = Textbox2.Value & ": " & Format(Textbox1.Value;"0.00")
Cảm ơn tranthanhan1962 rất nhiều. Do mình nhầm; hihiii. Lỗi trầm trọng đấy nhỉ; để mình thử xem. Cảm ơn rất nhiều.