Tùy chọn
Nhờ Giúp Code Cộng trừ nhân chia
- Nhờ Giúp Code Cộng trừ nhân chia
-
Nhờ Giúp Code Cộng trừ nhân chia
tyov > 20-12-19, 02:21 PM
Có có 1 form muốn viết code cho nút cộng trừ nhân chia khi nhập số và 2 textbox Số 1 và Số 2 bấm nút lệnh Cộng thì textbox Kết quả sẻ hiển thị !nhờ Anh chị giúp Cảm ơn trước ! -
RE: Nhờ Giúp Code Cộng trừ nhân chia
cpucloi > 20-12-19, 03:13 PM
Ừ thì nz(textbox1,0) + nz(textbox2,0)
Thử đi rồi nói tiếp -
RE: Nhờ Giúp Code Cộng trừ nhân chia
Nguyen SVN > 20-12-19, 03:29 PM
bác tham khảo đoạn code dưới của em .
ngày xưa thi vào công ty nó bắt thiết kế cái form tính + - * /
bỏ qua đoạn tiếng nhật đi
Mã PHP:Option Compare Database
Option Explicit
'新作成 2018/12/25 NGUYEN
Dim kazu1 As Double
Dim kazu2 As Double
Dim X As String '1が足る、2が引く、3が掛ける、4が割る
'---数字[0～9]を表示する為
Private Sub number0_Click()
kazu1 = kazu1 & 0
Me.hyouji = kazu1
End Sub
Private Sub number1_Click()
kazu1 = kazu1 & 1
Me.hyouji = kazu1
End Sub
Private Sub number2_Click()
kazu1 = kazu1 & 2
Me.hyouji = kazu1
End Sub
Private Sub number3_Click()
kazu1 = kazu1 & 3
Me.hyouji = kazu1
End Sub
Private Sub number4_Click()
kazu1 = kazu1 & 4
Me.hyouji = kazu1
End Sub
Private Sub number5_Click()
kazu1 = kazu1 & 5
Me.hyouji = kazu1
End Sub
Private Sub number6_Click()
kazu1 = kazu1 & "6"
Me.hyouji = kazu1
End Sub
Private Sub number7_Click()
kazu1 = kazu1 & 7
Me.hyouji = kazu1
End Sub
Private Sub number8_Click()
kazu1 = kazu1 & 8
Me.hyouji = kazu1
End Sub
Private Sub number9_Click()
kazu1 = kazu1 & 9
Me.hyouji = kazu1
End Sub
'---足す
'---クリック時
Private Sub tasu_Click()
If IsNull(kazu1) Then
Exit Sub
End If
If kazu2 = 0 Then
kazu2 = kazu1
Else
Call keisan
End If
kazu1 = 0
X = 1
End Sub
'---引く
'---クリック時
Private Sub hiku_Click()
If IsNull(kazu1) Then
Exit Sub
End If
If kazu2 = 0 Then
kazu2 = kazu1
Else
Call keisan
End If
kazu1 = 0
X = 2
End Sub
'---掛ける
'---クリック時
Private Sub kakeru_Click()
If IsNull(kazu1) Then
Exit Sub
End If
If kazu2 = 0 Then
kazu2 = kazu1
Else
Call keisan
End If
kazu1 = 0
X = 3
End Sub
'---割る
'---クリック時
Private Sub waru_Click()
If IsNull(kazu1) Then
Exit Sub
End If
If kazu2 = 0 Then
kazu2 = kazu1
Else
Call keisan
End If
kazu1 = 0
X = 4
End Sub
'---イコール
'---クリック時
Private Sub ikouru_Click()
On Error GoTo Err_Routine
If IsNull(kazu1) Then
Exit Sub
End If
Call keisan
Me.Requery
X = 0
Exit_Routine:
Exit Sub
Err_Routine:
MsgBox Err.Description
Resume Exit_Routine
End Sub
'---クリア
'---クリック時
Private Sub クリア_Click()
kazu1 = 0
kazu2 = 0
Me.hyouji = Null
Me.Requery
End Sub
'---終了
'---クリック時
Private Sub 終了_Click()
DoCmd.Close
End Sub
'---その他コード
Public Sub keisan()
On Error GoTo Err_Routine
Select Case X
Case 1
kazu2 = kazu2 + kazu1
Case 2
kazu2 = kazu2 - kazu1
Case 3
kazu2 = kazu2 * kazu1
Case 4
If Nz(kazu1, "") = 0 Then
MsgBox "確認" & vbCrLf & "計算できません"
Exit Sub
kazu1 = 0
kazu2 = 0
Me.hyouji = 0
Else
kazu2 = kazu2 / kazu1
End If
End Select
Me!hyouji = kazu2
Exit_Routine:
Exit Sub
Err_Routine:
MsgBox Err.Description
Resume Exit_Routine
End Sub -
RE: Nhờ Giúp Code Cộng trừ nhân chia
tyov > 20-12-19, 03:31 PM
(20-12-19, 03:29 PM)Nguyen SVN Đã viết: bác tham khảo đoạn code dưới của em .
ngày xưa thi vào công ty nó bắt thiết kế cái form tính + - * /
bỏ qua đoạn tiếng nhật đi
Mã PHP:Option Compare Database
Option Explicit
'新作成 2018/12/25 NGUYEN
Dim kazu1 As Double
Dim kazu2 As Double
Dim X As String '1が足る、2が引く、3が掛ける、4が割る
'---数字[0～9]を表示する為
Private Sub number0_Click()
kazu1 = kazu1 & 0
Me.hyouji = kazu1
End Sub
Private Sub number1_Click()
kazu1 = kazu1 & 1
Me.hyouji = kazu1
End Sub
Private Sub number2_Click()
kazu1 = kazu1 & 2
Me.hyouji = kazu1
End Sub
Private Sub number3_Click()
kazu1 = kazu1 & 3
Me.hyouji = kazu1
End Sub
Private Sub number4_Click()
kazu1 = kazu1 & 4
Me.hyouji = kazu1
End Sub
Private Sub number5_Click()
kazu1 = kazu1 & 5
Me.hyouji = kazu1
End Sub
Private Sub number6_Click()
kazu1 = kazu1 & "6"
Me.hyouji = kazu1
End Sub
Private Sub number7_Click()
kazu1 = kazu1 & 7
Me.hyouji = kazu1
End Sub
Private Sub number8_Click()
kazu1 = kazu1 & 8
Me.hyouji = kazu1
End Sub
Private Sub number9_Click()
kazu1 = kazu1 & 9
Me.hyouji = kazu1
End Sub
'---足す
'---クリック時
Private Sub tasu_Click()
If IsNull(kazu1) Then
Exit Sub
End If
If kazu2 = 0 Then
kazu2 = kazu1
Else
Call keisan
End If
kazu1 = 0
X = 1
End Sub
'---引く
'---クリック時
Private Sub hiku_Click()
If IsNull(kazu1) Then
Exit Sub
End If
If kazu2 = 0 Then
kazu2 = kazu1
Else
Call keisan
End If
kazu1 = 0
X = 2
End Sub
'---掛ける
'---クリック時
Private Sub kakeru_Click()
If IsNull(kazu1) Then
Exit Sub
End If
If kazu2 = 0 Then
kazu2 = kazu1
Else
Call keisan
End If
kazu1 = 0
X = 3
End Sub
'---割る
'---クリック時
Private Sub waru_Click()
If IsNull(kazu1) Then
Exit Sub
End If
If kazu2 = 0 Then
kazu2 = kazu1
Else
Call keisan
End If
kazu1 = 0
X = 4
End Sub
'---イコール
'---クリック時
Private Sub ikouru_Click()
On Error GoTo Err_Routine
If IsNull(kazu1) Then
Exit Sub
End If
Call keisan
Me.Requery
X = 0
Exit_Routine:
Exit Sub
Err_Routine:
MsgBox Err.Description
Resume Exit_Routine
End Sub
'---クリア
'---クリック時
Private Sub クリア_Click()
kazu1 = 0
kazu2 = 0
Me.hyouji = Null
Me.Requery
End Sub
'---終了
'---クリック時
Private Sub 終了_Click()
DoCmd.Close
End Sub
'---その他コード
Public Sub keisan()
On Error GoTo Err_Routine
Select Case X
Case 1
kazu2 = kazu2 + kazu1
Case 2
kazu2 = kazu2 - kazu1
Case 3
kazu2 = kazu2 * kazu1
Case 4
If Nz(kazu1, "") = 0 Then
MsgBox "確認" & vbCrLf & "計算できません"
Exit Sub
kazu1 = 0
kazu2 = 0
Me.hyouji = 0
Else
kazu2 = kazu2 / kazu1
End If
End Select
Me!hyouji = kazu2
Exit_Routine:
Exit Sub
Err_Routine:
MsgBox Err.Description
Resume Exit_Routine
End Sub -
RE: Nhờ Giúp Code Cộng trừ nhân chia
tyov > 20-12-19, 03:49 PM
Cảm ơn nhiều có Bác nào có cái file Access không giúp em với ! -
RE: Nhờ Giúp Code Cộng trừ nhân chia
tyov > 20-12-19, 05:13 PM
Anh chị nào có file Access vè tính tổng 2 số cho em xin ! Cảm ơn ! -
RE: Nhờ Giúp Code Cộng trừ nhân chia
ongke0711 > 20-12-19, 05:30 PM
-
RE: Nhờ Giúp Code Cộng trừ nhân chia
tranthanhan1962 > 20-12-19, 05:59 PM
(20-12-19, 05:30 PM)ongke0711 Đã viết:
(20-12-19, 05:13 PM)tyov Đã viết: Anh chị nào có file Access vè tính tổng 2 số cho em xin ! Cảm ơn !
Phải rự lực cánh sinh một phần chứ bạn.
Cái form có 3 cái textbox và 1 nút lệnh mà bạn không tự làm được thì tính gì tới code nữa đây.
Thôi mà ông kẹ! Tội nghiệp em nó.
Vứt bỏ luôn cái code Japan kia đi nó cổ quá rồi, có 2 cái textbox: 2 textbox Số 1 và Số 2, vậy cái tổng hiện thị ở đâu, Nó phải có 3 textbox: So1, So2 và KetQua (Kết quả)
4 nút lệnh: Cong, Tru, Nhan, Chia.
Cộng:
Private Sub Cong_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Trừ
Private Sub Tru_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value - So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Nhân
Private Sub Nhan_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value * So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Chia:
Private Sub Chia_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Nếu có dính đến table thì đưa RecordSource và ControlSource vào.
Chấm hết. -
RE: Nhờ Giúp Code Cộng trừ nhân chia
tyov > 21-12-19, 08:08 AM
(20-12-19, 05:59 PM)tranthanhan1962 Đã viết:
(20-12-19, 05:30 PM)ongke0711 Đã viết:
(20-12-19, 05:13 PM)tyov Đã viết: Anh chị nào có file Access vè tính tổng 2 số cho em xin ! Cảm ơn !
Phải rự lực cánh sinh một phần chứ bạn.
Cái form có 3 cái textbox và 1 nút lệnh mà bạn không tự làm được thì tính gì tới code nữa đây. Thôi mà ông kẹ! Tội nghiệp em nó.
Vứt bỏ luôn cái code Japan kia đi nó cổ quá rồi, có 2 cái textbox: 2 textbox Số 1 và Số 2, vậy cái tổng hiện thị ở đâu, Nó phải có 3 textbox: So1, So2 và KetQua (Kết quả)
4 nút lệnh: Cong, Tru, Nhan, Chia.
Cộng:
Private Sub Cong_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Trừ
Private Sub Tru_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value - So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Nhân
Private Sub Nhan_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value * So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Chia:
Private Sub Chia_Click()
On Error GoTo Biloi
KetQua.Value = So1.Value + So2.Value
BiLoi:
MsgBox "Bi loi roi, kiem tra lai"
End Sub
Nếu có dính đến table thì đưa RecordSource và ControlSource vào.
Chấm hết. -
RE: Nhờ Giúp Code Cộng trừ nhân chia
tyov > 21-12-19, 08:09 AM
Cảm ơn mọi người đã giúp đỡ !