• Thư viện hàm cần biết cho người mới học
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 12-06-16, 03:12 PM

    37- Hàm mở File
    Dim pathString As String
    'Text Duongdan là text box hien thi duong dan cua tên tin
    Me.Duongdan.SetFocus
    pathString = Me.Duongdan.Text
     
    If Dir(pathString) = "" Then
    MsgBox "Duong dan hoac tep tin khong ton tai"
    Else
    'Goi hàm mo file
    OpenFileWordOrExcel (pathString)
    End If
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 12-06-16, 05:56 PM

    38- Hàm đếm số người có học hàm
    =Sum(IIf([Hocham]="02",1)) Hàm này để đếm số PGS
    =Sum(IIf([Hocham]="03",1)) Hàm này để đếm số GS
     
    39- Hàm đếm số người có học vị
    =Sum(IIf([Hocvi]="02",1)) Hàm này để đếm số có trình độ Trung cấp
    =Sum(IIf([Hocvi]="03",1)) Hàm này để đếm số có trình độ Đại học
    =Sum(IIf([Hocvi]="04",1)) Hàm này để đếm số có trình độ Thạc sĩ
    =Sum(IIf([Hocvi]="05",1)) Hàm này để đếm số có trình độ Tiến sĩ
    =Sum(IIf([Hocvi]="06",1)) Hàm này để đếm số có trình độ TSKH
    Chú thích: Trong bảng Học vị tôi qui ước 01=Không, 02=Trung cấp, 03=Đại học
    04=Thạc sĩ, 05=Tiến sĩ, 06=TSKH
     
     
    40-Hàm đếm Nam, Nữ
    +Nhập hàm =Count(IIf([Gioi]="01",1))
    +Nhập hàm =Count(IIf([Gioi]="02",1))
    Trong thí dụ này 01 là Nam, 02 là Nữ
     
    41-Hàm đếm số người ở độ tuổi dưới 30 tuổi
    =Sum(IIf(Year(Date())-Year([Ngaysinh])<30,1,0))
    Hàm này sẽ lấy những người có độ tuổi dưới 30 ở ô (Trường dữ liệu Ngaysinh)
     
     
    42-Hàm Sumiif đếm số người ở độ tuổi từ 30 đến 45 tuổi
    =Sum(IIf(Year(Date())-Year([Ngaysinh])<=45 And Year(Date())-Year([Ngaysinh])>=30,1,0))
    Hàm này sẽ lấy những người có độ tuổi dưới 30 ở ô (Trường dữ liệu Ngaysinh)
     
    43-Hàm CountIIf đếm số người ở độ tuổi từ 30 đến 45 tuổi
    =Count(IIf(Year(Date())-Year([ngaysinh])<=45 And Year(Date())-Year([ngaysinh])>=30,0))
     
    44-Hàm đếm số người ở độ tuổi từ 46 đến 50 tuổi
    =Count(IIf(Year(Date())-Year([ngaysinh])<=50 And Year(Date())-Year([ngaysinh])>=46,0))
     
    45-Hàm đếm số người ở độ tuổi từ 51 đến 60 tuổi
    =Count(IIf(Year(Date())-Year([ngaysinh])<=60 And Year(Date())-Year([ngaysinh])>=51,0))
     
    46-Hàm đếm số người ở độ tuổi từ 61 tuổi trở lên
    =Sum(IIf(Year(Date())-Year([Ngaysinh])>=61,1,0))
     
     
    47-Hàm chuyển ngày 23-12-2013 xen lẫn chữ
    +Tại vị trí phía trên chức vụ là vị trí địa danh và ngày tháng năm bạn nhập:
    ="Hà Nội, ngày " & Day([NgaykiQD]) & " tháng " & Month([NgaykiQD]) & " năm " & Year([NgaykiQD])
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 12-06-16, 05:58 PM

    50-Hàm lấy ra số ngày ở trọ trong Access
    =IIf(([Denngay]-[Ngayotungay])<1,1,([Denngay]-[Ngayotungay]))
     
     
     
     
    51-Hàm đếm số SV đang trọ và chỗ ở còn trống trong 1 phòng Access
    +Ở Subform vẽ hộp TextBox và nhập =Sum(IIf([Hientrang]="05",1,0))
    +Trên Form chính vẽ hộp TextBox và nhập để đếm số SV đang ở trong phòng
    =[Bang_Thu_Tien_KTX subform].Form!Text28
    +Trên Form chính vẽ hộp TextBox và nhập để đếm số ở còn trống
    =([Succhua])-[Bang_Thu_Tien_KTX subform].Form!Text28
    Chú giải: Có 1 hộp ghi sức chứa số người của phòng nhập thủ công cố định
    05 hiện trạng là Đang ở, Texbox này là Text28
     
     
     
    52-Hàm để chuyển điểm từ số sang chữ trong Report của Access
    +Vẽ 1 hộp TexBox và nhập
    =IIf([tbmon]>=9,"A+",IIf([tbmon]>=8.5,"A",IIf([tbmon]>=8,"B+",IIf([tbmon]>=7,"B",IIf([tbmon]>6.5,"C+",IIf([tbmon]>=5.5,"C",IIf([tbmon]>=5,"D+",IIf([tbmon]>=4,"D","F"))))))))
     
     
    53-Hàm IIF để chuyển xếp loại tốt nghiệp sang tiếng Anh trong Report
    =IIf([Loaitn]="01","Excellent",IIf([LoaiTN]="02","Very good",IIf([LoaiTN]="03","Good",IIf([LoaiTN]="04","Average good","Ordinary"))))
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 12-06-16, 05:59 PM

     
    62-Module cắt bỏ dấu tiếng Việt và chuyển sang chữ HOA
    Option Compare Database
    Option Explicit
    Private Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim Mang(13, 17) As String
    Sub NapBoDau()
       Dim i As Byte, j As Byte, n As Byte
       Dim chuoi As String
       Dim Thga As String, Thge As String, Thgo As String, Thgu As String, Thgi As String, Thgd As String, Thgy As String
       Dim HoaA As String, HoaE As String, HoaO As String, HoaU As String, HoaI As String, HoaD As String, HoaY As String
       chuoi = "aAeEoOuUiIdDyY"
       Thga = UnicodeChar(";E1;E0;1EA1;1EA3;E3;E2;1EA5;1EA7;1EAD;1EA9;1EAB;103;1EAF;1EB1;1EB7;1EB3;1EB5")
       HoaA = UnicodeChar(";C1;C0;1EA0;1EA2;C3;C2;1EA4;1EA6;1EAC;1EA8;1EAA;102;1EAE;1EB0;1EB6;1EB2;1EB4")
       Thge = UnicodeChar(";E9;E8;1EB9;1EBB;1EBD;EA;1EBF;1EC1;1EC7;1EC3;1EC5;65;65;65;65;65;65")
       HoaE = UnicodeChar(";C9;C8;1EB8;1EBA;1EBC;CA;1EBE;1EC0;1EC6;1EC2;1EC4;45;45;45;45;45;45")
       Thgo = UnicodeChar(";F3;F2;1ECD;1ECF;F5;F4;1ED1;1ED3;1ED9;1ED5;1ED7;1A1;1EDB;1EDD;1EE3;1EDF;1EE1")
       HoaO = UnicodeChar(";D3;D2;1ECC;1ECE;D5;D4;1ED0;1ED2;1ED8;1ED4;1ED6;1A0;1EDA;1EDC;1EE2;1EDE;1EE0")
       Thgu = UnicodeChar(";FA;F9;1EE5;1EE7;169;1B0;1EE9;1EEB;1EF1;1EED;1EEF;75;75;75;75;75;75")
       HoaU = UnicodeChar(";DA;D9;1EE4;1EE6;168;1AF;1EE8;1EEA;1EF0;1EEC;1EEE;55;55;55;55;55;55")
       Thgi = UnicodeChar(";ED;EC;1ECB;1EC9;129;69;69;69;69;69;69;69;69;69;69;69;69")
       HoaI = UnicodeChar(";CD;CC;1ECA;1EC8;128;49;49;49;49;49;49;49;49;49;49;49;49")
       Thgd = UnicodeChar(";111;64;64;64;64;64;64;64;64;64;64;64;64;64;64;64;64")
       HoaD = UnicodeChar(";110;44;44;44;44;44;44;44;44;44;44;44;44;44;44;44;44")
       Thgy = UnicodeChar(";FD;1EF3;1EF5;1EF7;1EF9;79;79;79;79;79;79;79;79;79;79;79;79")
       HoaY = UnicodeChar(";DD;1EF2;1EF4;1EF6;1EF8;59;59;59;59;59;59;59;59;59;59;59;59")
       For i = 0 To 13
          Mang(i, 0) = Mid(chuoi, i + 1, 1)
       Next
       For j = 1 To 17
          For i = 1 To 17
             Mang(0, i) = Mid(Thga, i, 1)
             Mang(1, i) = Mid(HoaA, i, 1)
             Mang(2, i) = Mid(Thge, i, 1)
             Mang(3, i) = Mid(HoaE, i, 1)
             Mang(4, i) = Mid(Thgo, i, 1)
             Mang(5, i) = Mid(HoaO, i, 1)
             Mang(6, i) = Mid(Thgu, i, 1)
             Mang(7, i) = Mid(HoaU, i, 1)
             Mang(8, i) = Mid(Thgi, i, 1)
             Mang(9, i) = Mid(HoaI, i, 1)
             Mang(10, i) = Mid(Thgd, i, 1)
             Mang(11, i) = Mid(HoaD, i, 1)
             Mang(12, i) = Mid(Thgy, i, 1)
             Mang(13, i) = Mid(HoaY, i, 1)
          Next
       Next
    End Sub
    Function UnicodeChar(UniCharCode As String) As String
       On Error GoTo er
       Dim str
       Dim desStr As String
       Dim i
       If Mid(UniCharCode, 1, 1) = ";" Then
          UniCharCode = Mid(UniCharCode, 2)
       End If
       If Right(UniCharCode, 1) = ";" Then
          UniCharCode = Mid(UniCharCode, 1, Len(UniCharCode) - 1)
       End If
       str = UniCharCode
       str = Split(str, ";")
       For i = LBound(str) To UBound(str)
          desStr = desStr & ChrW$("&H" & str(i))
       Next
       UnicodeChar = desStr
    er:
       If Len(Error) > 0 Then
          MsgBox Error
       End If
    End Function
    Function BoDau(MyText As String) As String
       Dim Tam1 As String, Tam2 As String
       Dim i As Byte, j As Byte, n As Byte
       NapBoDau
       Tam1 = MyText
       For j = 0 To 13
          For i = 1 To 17
             Tam2 = Replace(Tam1, Mang(j, i), Mang(j, 0), 1, -1, vbBinaryCompare)
             Tam1 = Tam2
          Next
       Next
       BoDau = Tam1
    End Function
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 12-06-16, 06:00 PM

    63-Hàm phân quyền cho nút OK và Label (Nhãn)
    If IsNull(Me.Combo109) Or Me.Combo109 = "" Then
            MsgBox "Ten dang nhap khong co trong danh muc. Xin hay chon lai trong danh sach.", vbOKOnly, "Thong bao!"
            Me.Combo109.SetFocus
            Exit Sub
        End If
     
    'Kiem tra password box
    If IsNull(Me.Txtmatkhau) Or Me.Txtmatkhau = "" Then
        MsgBox "Xin moi ban nhap lai mat khau", vbOKOnly, "Thong bao!"
        Me.Txtmatkhau.SetFocus
    Exit Sub
    End If
     
    If Me.Txtmatkhau.Value = DLookup("Matkhau", "Thay_MK", "[Tendangnhap]='" & Me.Combo109.Value & "'") Then
        DoCmd.OpenForm "Form_Tuy_Chon", acNormal
        Forms!form_Tuy_Chon.TxtUsername = Me.Combo109.Value
        If Me.Combo109 = "Admin" Then
            Forms!form_Chon.cmdNut1.Enabled = True
            Forms!form_Chon.cmdNut2.Enabled = True
            Forms!form_Chon.lbTraTim.Visible = True
        Else
            Forms!form_Chon.cmdNut1.Enabled = False
            Forms!form_Chon.cmdNut2.Enabled = False
            Forms!form_Chon.lbTraTim.Visible = False
        End If
        DoCmd.Close acForm, "frmDemo", acSaveNo
    Else
        MsgBox "Ban phai nhap dung mat khau", vbOKOnly, "Thong bao!"
        Me.Txtmatkhau.SetFocus
    End If
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 12-06-16, 06:01 PM

    64-Ba mức phân quyền cho nút OK và Label (Nhãn)
    If IsNull(Me.Combo109) Or Me.Combo109 = "" Then
            MsgBox "Ten dang nhap khong co trong danh muc. Xin hay chon lai trong danh sach.", vbOKOnly, "Thong bao!"
            Me.Combo109.SetFocus
            Exit Sub
        End If
     
    'Kiem tra password box
    If IsNull(Me.Txtmatkhau) Or Me.Txtmatkhau = "" Then
        MsgBox "Xin moi ban nhap lai mat khau", vbOKOnly, "Thong bao!"
        Me.Txtmatkhau.SetFocus
    Exit Sub
    End If
     
    If Me.Txtmatkhau.value = DLookup("Matkhau", "Thay_MK", "[Tendangnhap]='" & Me.Combo109.value & "'") Then
        DoCmd.OpenForm "Form_Tuy_Chon", acNormal
        Forms!form_Tuy_Chon.TxtUsername = Me.Combo109.value
        Dim MaQuyen As String
        MaQuyen = DLookup("Quantri", "Thay_MK", "[Tendangnhap]='" & Me.Combo109.value & "'")
        ' Neu la nguoi quan tri he thong thi thuc hien duoc nhung chuc nang duoi day
        If MaQuyen = "1" Then
            Forms!form_Chon.cmdNut1.Enabled = True
            Forms!form_Chon.cmdNut2.Enabled = True
            Forms!form_Chon.lbTraTim.Visible = True
        ' Neu quyen la nguoi quan tri thi thuc hien duoc nhung chuc nang duoi day
        ElseIf MaQuyen = "2" Then
            Forms!form_Chon.cmdNut1.Enabled = False
            Forms!form_Chon.cmdNut2.Enabled = False
            Forms!form_Chon.lbTraTim.Visible = True
            ' Neu la cac quyen khac thi thuc hien chuc nang duoi day
        Else
             Forms!form_Chon.lbTraTim.Visible = False
             Forms!form_Chon.cmdNut1.Enabled = False
             Forms!form_Chon.cmdNut2.Enabled = False
        End If
        DoCmd.Close acForm, "frmDemo", acSaveNo
    Else
        MsgBox "Ban phai nhap dung mat khau", vbOKOnly, "Thong bao!"
        Me.Txtmatkhau.SetFocus
    End If
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 12-06-16, 06:02 PM

    66-Phân quyền theo hộp TextBox cách mới
    Form_Tuy_Chon
    +Nút 1 có tên là btnMatKhau
    +Nút 2 có tên là btnNhapLieu
    +Nút 3 có tên là btnNuocNgoai
    +Nút 4 có tên là btnHocTap
    +Nút 5 có tên là btnKhach
    +Vẽ 1 hộp Text và đặt tên txtUser
     
    Form_Dang_Nhap
    +Hộp tên người dùng txtUserName
    +Hộp tên mật khẩu Txtmatkhau
    +Hàm ở nút OK
    If IsNull(Me.txtUserName) Or Me.txtUserName = "" Then
            MsgBox "Ten dang nhap khong co trong danh muc. Xin hay chon lai trong danh sach.", vbOKOnly, "Thong bao!"
           Me.txtUserName.SetFocus
            Exit Sub
        End If
     
    'Kiem tra password box
    If IsNull(Me.Txtmatkhau) Or Me.Txtmatkhau = "" Then
        MsgBox "Xin moi ban nhap lai mat khau", vbOKOnly, "Thong bao!"
        Me.Txtmatkhau.SetFocus
    Exit Sub
    End If
    Dim mk As String
    mk = DLookup("Matkhau", "Thay_MK", "[Tendangnhap]='" & Me.txtUserName & "'")
    If Me.Txtmatkhau.Value = mk Then
        DoCmd.OpenForm "Form_Tuy_Chon", acNormal
           
        Dim MaQuyen As String
        MaQuyen = DLookup("Quantri", "Thay_MK", "[Tendangnhap]='" & Me.txtUserName & "'")
     
        ' Neu la nguoi quan tri he thong thi thuc hien duoc nhung chuc nang duoi day
        If MaQuyen = "1" Then
            Forms!Form_Chon.btnMatKhau.Enabled = True
            Forms!Form_Chon.btnNhapLieu.Enabled = True
            Forms!Form_Chon.btnNuocNgoai.Enabled = True
            Forms!Form_Chon.btnHocTap.Enabled = True
            Forms!Form_Chon.btnKhach.Enabled = True
        ' Neu quyen la nguoi quan tri thi thuc hien duoc nhung chuc nang duoi day
        ElseIf MaQuyen = "2" Then
            Forms!Form_Chon.btnNuocNgoai.Enabled = True
              Forms!Form_Chon.btnKhach.Enabled = True
        ' Neu la quyen la nguoi dung
        ElseIf MaQuyen = "3" Then
             Forms!Form_Chon.btnHocTap.Enabled = True
               Forms!Form_Chon.btnKhach.Enabled = True
             ' Neu la cac quyen khach thi thuc hien chuc nang duoi day
             ElseIf MaQuyen = "4" Then
               Forms!Form_Chon.btnKhach.Enabled = True
        End If
        DoCmd.Close acForm, "Form_Dang_Nhap", acSaveNo
    Else
        MsgBox "Ban phai nhap dung mat khau", vbOKOnly, "Thong bao!"
        Me.Txtmatkhau.SetFocus
    End If
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 12-06-16, 06:03 PM

    67-Phân quyền theo hộp ComboBox cách mới
    Form_Chon
    +Nút 1 có tên là btnMatKhau
    +Nút 2 có tên là btnNuocNgoai
    +Nút 3 có tên là btnHocTap
    +Nút 4 có tên là btnLuong
    +Nút 5 có tên là btnBHXH
    +Nút 6 có tên là btnThidua
    +Vẽ 1 hộp ComboBox và đặt tên cboUserName
     
    Form_Dang_Nhap
    +Hộp ComboBox chứa tên người dùng cboUserName
    +Hộp tên mật khẩu txtMatKhau
    +Hàm ở nút OK
    If IsNull(Me.cboUserName) Or Me.cboUserName = "" Then
            MsgBox "Ten dang nhap khong co trong danh muc. Xin hay chon lai trong danh sach.", vbOKOnly, "Thong bao!"
           Me.cboUserName.SetFocus
            Exit Sub
        End If
     
    'Kiem tra password box
    If IsNull(Me.Txtmatkhau) Or Me.Txtmatkhau = "" Then
        MsgBox "Xin moi ban nhap lai mat khau", vbOKOnly, "Thong bao!"
        Me.Txtmatkhau.SetFocus
    Exit Sub
    End If
    Dim mk As String
    mk = DLookup("Matkhau", "Thay_MK", "[ID]='" & Me.cboUserName.Value & "'")
    If Me.Txtmatkhau.Value = mk Then
        DoCmd.OpenForm "Form_Chon", acNormal
           
        Dim MaQuyen As String
        MaQuyen = DLookup("Quantri", "Thay_MK", "[ID]='" & Me.cboUserName & "'")
     
        ' Neu la nguoi quan tri he thong thi thuc hien duoc nhung chuc nang duoi day
        If MaQuyen = "1" Then
            Forms!Form_Chon.btnMatKhau.Enabled = True
            Forms!Form_Chon.btnNuocNgoai.Enabled = True
            Forms!Form_Chon.btnHocTap.Enabled = True
            Forms!Form_Chon.btnLuong.Enabled = True
            Forms!Form_Chon.btnBHXH.Enabled = True
            Forms!Form_Chon.btnThidua.Enabled = True
        ' Neu quyen la nguoi quan tri thi thuc hien duoc nhung chuc nang duoi day
        ElseIf MaQuyen = "2" Then
            Forms!Form_Chon.btnNuocNgoai.Enabled = True
               ' Neu la quyen la nguoi dung
        ElseIf MaQuyen = "3" Then
             Forms!Form_Chon.btnHocTap.Enabled = True
               ' Neu la cac quyen khach thi thuc hien chuc nang duoi day
             ElseIf MaQuyen = "4" Then
               Forms!Form_Chon.btnLuong.Enabled = True
            ' Neu la cac quyen khach thi thuc hien chuc nang duoi day
             ElseIf MaQuyen = "5" Then
               Forms!Form_Chon.btnBHXH.Enabled = True
               ' Neu la cac quyen khach thi thuc hien chuc nang duoi day
             ElseIf MaQuyen = "6" Then
               Forms!Form_Chon.btnThidua.Enabled = True
                       
              
        End If
        DoCmd.Close acForm, "Form_Login", acSaveNo
    Else
        MsgBox "Ban phai nhap dung mat khau", vbOKOnly, "Thong bao!"
        Me.Txtmatkhau.SetFocus
    End If
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 13-06-16, 11:43 AM

    77-Hàm xếp loại tốt nghiệp sang tiếng Anh
    =IIf([TNLoai]="01","Excellent",IIf([TNLoai]="02","Very good",IIf([TNLoai]="03","Good",IIf([TNLoai]="04","Average good","Ordinary"))))
     
     
    78-Hàm chuyển đổi ngành sang tiếng Anh
    =IIf([Nganh]="01","Library Science",IIf([Nganh]="02","Office Management",IIf([Nganh]="03","Archival Science",IIf([Nganh]="04","Human Resource Management",IIf([Nganh]="05","State Management",IIf([Nganh]="06","Cultural Management"))))))
     
     
    79-Hàm chuyển đổi hệ sang tiếng Anh
    =IIf([He]="01","Full time",IIf([He]="02","Part time",IIf([He]="03","Distance learning",IIf([He]="04","Guided Self-learning"))))
     
    80-Hàm cắt lấy 2 số cuối của năm
    =Mid(Year([NgayQD]),3.2)
     
     
    81-Hàm chuyển địa danh ngày tháng theo ngày kí Quyết định
    ="Hà Nội, ngày " & Day([NgaykiQD]) & " tháng " & Month([NgaykiQD]) & " năm " & Year([NgaykiQD])
     
     
    82-Hàm chuyển địa danh ngày tháng theo ngày hiện tại
    ="Hà Nội, ngày " & Day(Date()) & " tháng " & Month(Date()) & " năm " & Year(Date())
     
    83-Hàm chuyển Chưa giải quyết thành Nợ, đã giải quyết thành Xong
    =IIf([Hientai]="01","Nợ","Xong")
     
    84-Hàm cắt lấy các số của văn bản trước gạch chéo
    Cách 1: Vẽ 1 hộp Text Box và đặt tên cho hộp ngày là Text55
    +Mở Report nháy Detail chọn On Format chọn Code Builder dán mã
    Dim strParts() As String
    strParts = Split(Me.SoQDTN.Value, "/")
    Me.Text55.Value = strParts(0)
     
    Cách 2: Tạo hộp Text Box và nhập =Val(Left([QDso],4))
     
     
     
     
    85-Hàm hiện, ẩn các nút trên Form
    1-Hàm ở nút Hiện các nút ở mục on Click
    If Me.Cb01.Visible = True Then Me.Cb01.Visible = False Else Me.Cb01.Visible = True
    If Me.Cb02.Visible = True Then Me.Cb02.Visible = False Else Me.Cb02.Visible = True
    If Me.Cb03.Visible = True Then Me.Cb03.Visible = False Else Me.Cb03.Visible = True
    If Me.Cb04.Visible = True Then Me.Cb04.Visible = False Else Me.Cb04.Visible = True
    If Me.Cb05.Visible = True Then Me.Cb05.Visible = False Else Me.Cb05.Visible = True
    If Me.Cb06.Visible = True Then Me.Cb06.Visible = False Else Me.Cb06.Visible = True
    If Me.Cb07.Visible = True Then Me.Cb07.Visible = False Else Me.Cb07.Visible = True
    If Me.Cb08.Visible = True Then Me.Cb08.Visible = False Else Me.Cb08.Visible = True
     
    2-Hàm để ẩn các nút với Properties mục On Loard các nút
    Me.Cmd01.Visible = False
    Me.Cmd02.Visible = False
    Me.Cmd03.Visible = False
    Me.Cmd04.Visible = False
    Me.Cmd05.Visible = False
    Me.Cmd06.Visible = False
    Me.Cmd07.Visible = False
    Me.Cmd08.Visible = False
  • RE: Thư viện hàm cần biết cho người mới học

    truongtrungviet > 13-06-16, 11:44 AM

    92-Hiện và ấn ảnh khi đưa con trỏ vào nút
    +Có 3 nút và chèn 3 ảnh liên quan tới 3 nút
    +Nháy chuột phải vào nút chọn Properties
    +Chọn nhãn Event chọn mục On Mouse Move chọn Code Builder bấm OK
    Me.Image01.Visible = True
    Me.Image02.Visible = False
    Me.Image03.Visible = False
    Ý nghĩa: Hiện Image01
                   Ẩn 2 ảnh còn lại Image02 và Image03
     
     
    93-Nháy vào nút xổ ra nhiều nút
    Để làm gọn Form người ta bố trí 1 nút chính và các nút phụ, khi nháy chuột vào nút chính thì các nút phụ xổ ra, nháy vào 1 lần nữa các nút phụ thu lại
    +Tạo 1 nút chính và đặt tên là Cmd0
    +Tạo các nút phụ và đặt tên là Cmd01 đến Cmd13 chẳng hạn
    +Nháy chuột phải vào nút chính Cmd0 chọn Properties
    +Chọn nhãn Event ở mục On Click chọn Code Builder bấm OK
    +Gán đoạn mã dưới đây vào
    If Me.cmd01.Visible = True Then Me.cmd01.Visible = False Else Me.cmd01.Visible = True
    If Me.cmd02.Visible = True Then Me.cmd02.Visible = False Else Me.cmd02.Visible = True
    If Me.cmd03.Visible = True Then Me.cmd03.Visible = False Else Me.cmd03.Visible = True
    If Me.cmd04.Visible = True Then Me.cmd04.Visible = False Else Me.cmd04.Visible = True
    If Me.cmd05.Visible = True Then Me.cmd05.Visible = False Else Me.cmd05.Visible = True
    If Me.cmd06.Visible = True Then Me.cmd06.Visible = False Else Me.cmd06.Visible = True
    If Me.cmd07.Visible = True Then Me.cmd07.Visible = False Else Me.cmd07.Visible = True
    If Me.cmd08.Visible = True Then Me.cmd08.Visible = False Else Me.cmd08.Visible = True
    If Me.cmd09.Visible = True Then Me.cmd09.Visible = False Else Me.cmd09.Visible = True
    If Me.cmd10.Visible = True Then Me.cmd10.Visible = False Else Me.cmd10.Visible = True
    If Me.cmd11.Visible = True Then Me.cmd11.Visible = False Else Me.cmd11.Visible = True
    If Me.Cmd12.Visible = True Then Me.Cmd12.Visible = False Else Me.Cmd12.Visible = True
    If Me.Cmd13.Visible = True Then Me.Cmd13.Visible = False Else Me.Cmd13.Visible = True