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

Kiểm tra hàm True, False giúp mình với

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Kiểm tra hàm True, False giúp mình với
• Kiểm tra hàm True, False giúp mình với

• Kiểm tra hàm True, False giúp mình với

  hondatron > 15-04-12, 02:48 PM

  Mã:

  Public Function DK() As Boolean
  If (TxtA <= 0 Or TxtB > 100) Or (TxtB <= 0 Or TxtB > 100) Or (TxtC <= 0 Or TxtC > 100) Then
    MsgBox "Mot trong cac gia tri chi nam trong khoang 0-100", vbApplicationModal
    TxtA = 0: TxtB = 0: TxtC = 0
    Dk = False
Else
    Dk = True
End If
End Function

  
  

  Mã:

  Private Sub CmbTH_Click()
If DK() = False Then
    Exit Sub
End if
.........

  
  Trong đây
  TxtA,TxtB,TxtC là tên textbox.
  
  Nhờ anh, chị kiểm tra giúp xem trong đoạn code trên bị lỗi gì, mà khi em nhập dữ liệu vào txtA, dù không nằm trong khoảng rằng buộc từ 0--->100 Cũng xuất hiện Msgbox báo lỗi.

• RE: Kiểm tra giúp mình hàm True, False giúp mình với

  hoanglonglangtu > 15-04-12, 03:14 PM

  Do khi bạn nhập dữ liệu vào txta nó không hiểu là 1 số mà là 1 giá trị text.
  bạn thử với txta.value hoặc chuyển sang kiểu số bằng các hàm như Cint chẳng hạn --> cint(txta) ^^!
  Máy ko có access nên không test đc, không nhớ rõ nữa @@

• RE: Kiểm tra hàm True, False giúp mình với

  Noname > 15-04-12, 03:24 PM

  (15-04-12, 02:48 PM)hondatron Đã viết:

  Mã:

  Public Function DK() As Boolean
  If (TxtA <= 0 Or TxtB > 100) Or (TxtB <= 0 Or TxtB > 100) Or (TxtC <= 0 Or TxtC > 100) Then
    MsgBox "Mot trong cac gia tri chi nam trong khoang 0-100", vbApplicationModal
    TxtA = 0: TxtB = 0: TxtC = 0
    Dieukien = False
Else
    Dieukien = True
End If
End Function

  
  

  Mã:

  Private Sub CmbTH_Click()
If DK() = False Then
    Exit Sub
End if
.........

  
  Trong đây
  TxtA,TxtB,TxtC là tên textbox.
  
  Nhờ anh, chị kiểm tra giúp xem trong đoạn code trên bị lỗi gì, mà khi em nhập dữ liệu vào txtA, dù không nằm trong khoảng rằng buộc từ 0--->100 Cũng xuất hiện Msgbox báo lỗi.

  Khổ bạn ghê, function tên là DK mà kết quả trả về là Dieukien thì làm sao nó không báo!
  thay dieukien bằng chữ DK xem nào
  Hoặc làThêm dòng sau trước dòng end function
  DK= Dieukien

• RE: Kiểm tra hàm True, False giúp mình với

  Xuân Thanh > 15-04-12, 03:41 PM

  (15-04-12, 02:48 PM)hondatron Đã viết:

  Mã:

  Public Function DK() As Boolean
  If (TxtA <= 0 Or TxtB > 100) Or (TxtB <= 0 Or TxtB > 100) Or (TxtC <= 0 Or TxtC > 100) Then
    MsgBox "Mot trong cac gia tri chi nam trong khoang 0-100", vbApplicationModal
    TxtA = 0: TxtB = 0: TxtC = 0
    Dieukien = False
Else
    Dieukien = True
End If
End Function

  
  

  Mã:

  Private Sub CmbTH_Click()
If DK() = False Then
    Exit Sub
End if
.........

  
  Trong đây
  TxtA,TxtB,TxtC là tên textbox.
  
  Nhờ anh, chị kiểm tra giúp xem trong đoạn code trên bị lỗi gì, mà khi em nhập dữ liệu vào txtA, dù không nằm trong khoảng rằng buộc từ 0--->100 Cũng xuất hiện Msgbox báo lỗi.

  
  1/ Giống như Noname đã nói ở trên
  2/ Thông thường hàm nên có đối số
  
  

  Mã PHP:

  Public Function DieuKien(numA, numB, numC) As Boolean
    If IsNumeric(numA) = False Or IsNumeric(numB) = False Or IsNumeric(numC) = False Then
        MsgBox "Cac du lieu dua vao phai la so" , , "Chu y"
        Exit Function
    Else
        If 0 <= numA <=100 And 0 <= numB <=100 And 0 <= numC <=100 Then
            DieuKien = True
        Else
            MsgBox "Cac du lieu dua vao chi duoc nam trong khoang 0-100" , , "Chu y"
            numA = 0: numB = 0: numC=0: DieuKien = False
        End If
    End If
End Function 


  
  Phải dùng And trong trường hợp này, không thể dùng Or được. Bạn tự tìm hiểu vì sao nhé
  
  

  Mã PHP:

  Private Sub CmbTH_Click()
If DieuKien(txtA, txtB, txtC) = False Then
    Exit Sub
Else
    ...........
End if 


  
  Thân mến

• RE: Kiểm tra hàm True, False giúp mình với

  hondatron > 15-04-12, 05:58 PM

  Em chân thành cảm ơn các anh
  @hoanglonglangtu
  @NoName
  @Xuanthanh
  -

  Mã PHP:

  Public Function DieuKien(numA, numB, numC) As Boolean
    If IsNumeric(numA) = False Or IsNumeric(numB) = False Or IsNumeric(numC) = False Then
        MsgBox "Cac du lieu dua vao phai la so" , , "Chu y"
        Exit Function
    Else
        If 0 <= numA <=100 And 0 <= numB <=100 And 0 <= numC <=100 Then
            DieuKien = True
        Else
            MsgBox "Cac du lieu dua vao chi duoc nam trong khoang 0-100" , , "Chu y"
            numA = 0: numB = 0: numC=0: DieuKien = False
        End If
    End If
End Function 


  Em đã sửa code trên theo hướng dẫn của anh, nhưng khi chạy chương trình thử với ký tự Bảng chữ cái ABC thì chưng trình đứng 1 lúc và không trả về kết quả. Với anh cho em hỏi 1 tý, em dùng hàm public Funtion với mục đích sử dụng cho toàn chưng trình có thể sử dụng thì việc khai báo
  

  Mã PHP:

  Public Function DieuKien(numA, numB, numC) As Boolean 


  Thì chỉ thi hành với namA,NumB,NumC. Em nghĩ như vậy hơi hạn chế
• Bài trước Bài tiếp