• Một số hàm C... trong Access
  • Một số hàm C... trong Access

    Xuân Thanh > 12-12-13, 03:42 PM

    Hôm trước giới thiệu với các bạn một số hàm D trong Access. Hôm nay giới thiệu tiép một số hàm C thường dùng


    1/ CBoll Function

    1.1/ Tên hàm: CBool
    1.2/ Mô tả:Cbool (expression)
    1.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu Boolean
    1.4/ Tham số:expression là Biểu thức cần chuyển đổi
    1.5/ Ví dụ:
    Mã:
    Option Explicit
    Private Sub Form_Load()
    Dim A, B
    Dim Check As Boolean
        A = 5: B = 5'Khoi tao bien
        Check = CBool(A = B)' Returns True
        A = 0' Define variable.
        Check = CBool(A)' Returns False
    End Sub


    2/ CDate Function
    2.1/ Tên hàm:CDate
    2.2/ Mô tả:Cdate (expression)
    2.3/ Công dụng :Chuyển đổi biểu thức expression sang kiểu Date
    2.4/ Tham số:expression là Biểu thức cần chuyển đổi
    2.5/ Ví dụ:
    Mã:
    Option Explicit
    Private Sub Form_Load()
    Dim MyDate, MyShortDate, MyTime, MyShortTime
        MyDate = "August 10, 2003"' Khoi tao
        MyShortDate = CDate(MyDate)'Returns 8/10/1003
        MyTime = "4:35:47 PM"' Khoi tao
        MyShortTime = CDate(MyTime)'Returns 4:35:47 PM
    End Sub


    3/ CDbl Function
    3.1/ Tên hàm:CDbl
    3.2/ Mô tả:CDbl (expression)
    3.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu Double
    3.4/ Tham số:expression là Biểu thức cần chuyển đổi
    3.5/ Ví dụ:
    Mã:
    Option Explicit
    Private Sub Form_Load()
    Dim MyCurr, MyDouble
        MyCurr = CCur(234.456784)
        MyDouble = CDbl(MyCurr * 8.2 * 0.01)
    End Sub


    4/ ChrW Function
    4.1/ Tên hàm:ChrW
    4.2/ Mô tả:ChrW(charcode)
    4.3/ Công dụng :Chuyển mã Ascii thành ký tự (Hỗ trợ Unicode)
    4.4/ Tham số:charcode là Mã cần chuyển
    4.5/ Ví dụ:
    Mã:
    Option Explicit
    Private Sub Form_Load()
    Dim MyChar
        MyChar = ChrW(65)' Returns A.
        MyChar = ChrW(97)' Returns a.
        MyChar = ChrW(62)' Returns >.
        MyChar = ChrW(37)' Returns %.
    End Sub




    (Còn tiếp)
  • RE: Một số hàm C... trong Access

    Xuân Thanh > 14-12-13, 10:43 AM

    5/ CInt Function
    5.1/ Tên hàm:CInt
    5.2/ Mô tả:Cint (expression)
    5.3/ Công dụng :Chuyển đổi biểu thức expression sang kiểu Integer
    5.4/ Tham số:expression là Biểu thức cần chuyển đổi
    5.5/ Ví dụ:
    Mã:
    Option Explicit
    Private Sub Form_Load()
    Dim MyDouble, MyInt
        MyDouble = 2345.5678' Khoi tao
        MyInt = CInt(MyDouble)' Returns 2346.
    End Sub


    6/ CLng Function
    6.1/ Tên hàm:CLng
    6.2/ Mô tả:CLng (expression)
    6.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu Long
    6.4/ Tham số:expression là Biểu thức cần chuyển đổi
    6.5/ Ví dụ:
    Mã:
    Option Explicit
    Private Sub Form_Load()
    Dim MyVal1, MyVal2, MyLong1, MyLong2
        MyVal1 = 25427.45: MyVal2 = 25427.55' Khoi tao
        MyLong1 = CLng(MyVal1)'Returns 25427.
        MyLong2 = CLng(MyVal2)'Returns 25428.
    End Sub


    7/ CSng Function
    7.1/ Tên hàm:CSng
    7.2/ Mô tả:CSng (expression)
    7.3/ Công dụng :Chuyển đổi biểu thức expression sang kiểu Single
    7.4/ Tham số:expression là Biểu thức cần chuyển đổi
    7.5/ Ví dụ:
    Mã:
    Option Explicit
    Private Sub Form_Load()
    Dim MyDouble1, MyDouble2, MySingle1, MySingle2
        MyDouble1 = 75.3421115: MyDouble2 = 75.3421555' khoi tao
        MySingle1 = CSng(MyDouble1)' Returns 75.34211.
        MySingle2 = CSng(MyDouble2)' Returns 75.34216.
    End Sub


    8/ CStr Function
    8.1/ Tên hàm:CStr
    8.2/ Mô tả:CStr (expression)
    8.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu String
    8.4/ Tham số:expression là Biểu thức cần chuyển đổi
    8.5/ Ví dụ:
    Mã:
    Option Explicit
    Private Sub Form_Load()
    Dim MyDouble, MyString
        MyDouble = 437.324' Khoi tao
        MyString = CStr(MyDouble)' Returns "437.324".
    End Sub


    9/ CVar Function
    9.1/ Tên hàm:CVar
    9.2/ Mô tả:Cvar (expression)
    9.3/ Công dụng : Chuyển đổi biểu thức expression sang kiểu Variant
    9.4/ Tham số:expression là Biểu thức cần chuyển đổi
    9.5/ Ví dụ:
    Mã:
    Option Explicit
    Private Sub Form_Load()
    Dim MyInt, MyVar
        MyInt = 4534' MyInt is an Integer.
        MyVar = CVar(MyInt & "000")' MyVar contains the string 4534000.
    End Sub
  • RE: Một số hàm C... trong Access

    khanghychu > 21-01-16, 11:06 AM

    Nhờ bạn giúp mình chút, cảm ơn trước nhé!
    mình làm 1 database về quản lí sức khỏe trong đó có:
    - t_nhanvien: Manv là khóa chính
    - t_lankham: Malankham là khóa chính
    - t_ khambenh: gồm Manv, Malankham là khóa chính và nội dung khám
    Mình tạo f_khambenh từ t_khambenh. Mình tạo button_Luu. khi Makhambenh rỗng thì thông báo"Ma kham benh rong, yeu cau nhap ma kham benh" phần này mình làm được. Lưu ý: 1 nhân viên có thể có nhiều lần khám. Nhờ bạn giúp mình code: nếu 1 nhân viên trùng Malankham thì sẽ thông báo"Ma kham benh bị trung, xin nhap ma khac". Trân trọng!