• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

SỰ CỐ HÀM VALUE

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • SỰ CỐ HÀM VALUE
• SỰ CỐ HÀM VALUE

• SỰ CỐ HÀM VALUE

  xuannguyen13 > 02-07-15, 01:03 PM

  http://upfile.vn/IdFQMQBCZ~Xt/value-accdb.html
  CÁC BẠN XEM DÙM MÌNH PHÉP TÍNH CỘNG VỚI MÌNH CỘNG KHÔNG ĐƯỢC.

• RE: SỰ CỐ HÀM VALUE

  Xuân Thanh > 02-07-15, 05:18 PM

  1/ Bạn set các textbox về number rồi :
  Cong_click : KQ = Val(A) + Val(B)
  ....
  
  2/ Cong_Click()
  If IsNumeric(A) = True And IsNumeric(B) = True Then
  KQ = A + B
  Else
  MsgBox "So khong hop ly"
  End If
  
  Lưu ý dùng hàm Val chứ không phải Value nhé

• RE: SỰ CỐ HÀM VALUE

  Xuân Thanh > 02-07-15, 05:43 PM

  Nhân tiện đây kết hợp vói bài viết hàm tính tổng hai số của bạn, tôi giới thiệu với bạn hàm tính tổng, hiệu, tích, thương của hai số như sau :
  

  Mã PHP:

  Function KetQua(a As Double, b As Double, Loai As Integer) As Double
    If IsNumeric(a) = True And IsNumeric(b) = True Then
        Select Case Loai
            Case Is = 1
                KetQua = a + b
            Case Is = 2
                KetQua = a - b
            Case Is = 3
                KetQua = a * b
            Case Is = 4
                If b < 0 Then MsgBox "Khong chia duoc cho so 0": Exit Function
                KetQua = a / b
        End Select
    Else
        MsgBox "Khong thuc hien duoc phep tinh khikhong phai la so": Exit Function
    End If
End Function 


  
   Áp dụng vào bài của bạn
  
  

  Mã PHP:

  Private Sub CONG_Click()
         KQ = KetQua(a, b, 1)
End Sub 


  
  Thân mến

• RE: SỰ CỐ HÀM VALUE

  tranthanhan1962 > 02-07-15, 06:28 PM

  Nếu bạn xuannguyen13 để ý khi làm phép + ví dụ 12 + 8 nó sẽ ra kết quả là 128. Vì trong texbox không ràng buộc (unbound) mặt định format là kiểu chuỗi. Mà trong VBA thì  "ABC" + "DEF" = "ABC" & "DEF" = "ABCDEF", 123+456 sẽ bị ép kiểu thành chuỗi 123+456 = 123 & 456 =123456. Với các phép tính khác vì không có tương đồng nên -, *, / sẽ bị ép thành kiểu số và tính như sau 6*3=18, 20/10=2, 12-3=9. Bạn có thể làm giống cách bạn Xuân Thanh cũng được hoặc đơn giản hơn format property cho textbox một kiểu số nào đó là xong.  Tất nhiên lúc này trong code.
  
  
  

  Mã PHP:

  Private Sub CHIA_Click()
 If B.Value <> 0 Then
    KQ.Value = A.Value / B.Value
 Else
    Exit Sub
 End If
End Sub 


  
  
  Hoặc
  
  
  

  Mã PHP:

  Private Sub CHIA_Click()
 If B.Value <> 0 Then
            KQ.Value = A.Value / B.Value
 Else
MsgBox "Số bị chia phải khác 0"
            Exit Sub
 End If
End Sub 


  
  
  Sory bạn đêm qua buồn ngủ quá nên mình thiếu đoạn này

• RE: SỰ CỐ HÀM VALUE

  xuannguyen13 > 02-07-15, 10:27 PM

  Được 2 idol chỉ dạy em vui lắm, cám ơn 2 idol nhiều nhiều...
• Bài trước Bài tiếp