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

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Tìm ngày có thứ đầu tiên trong tháng
  

  Viết bởi: Noname 27-08-10, 12:56 AM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp

• Hỏi: Công ty tôi họp thường kỳ vào thứ 3 tuần đầu tiên của tháng. Xin giúp 1 đoạn code để tôi biết chính xác thứ 3 đầu tiên của tháng là ngày mấy!
  
  
  Đáp: bạn có thể tạo 1 function như sau:
  
  
  Mã:

  Public Function FirstDayofMonth(intYr As Integer, intMth As Integer, intWeekday As Integer) As Date
    Dim dteMonthStart As Date
    Dim intDayofWeek As Integer, intIncrement As Integer

    dteMonthStart = DateSerial(intYr, intMth, 1)
    intDayofWeek = Weekday(dteMonthStart)

    If intDayofWeek <= intWeekday Then
       intIncrement = intWeekday - intDayofWeek
       FirstDayofMonth = DateAdd("d", intIncrement, dteMonthStart)
    Else
       intIncrement = (7 - intDayofWeek) + intWeekday
       FirstDayofMonth = DateAdd("d", intIncrement, dteMonthStart)
    End If
    End Function
  
  Bây giờ bạn có thể gọi function trên, truyền tham số
  FirstDayofMonth(Năm xem xét, tháng xem xét, Thứ trong tuần)
  Ví dụ muốn biết ngày thứ 3 của tháng 1 năm 2010 bạn gọi:
  msgbox FirstDayofMonth(2010,1,3)
  
  
  


•   Thuộc tính Startup MS Access toàn tập với VBA
  

  Viết bởi: Noname 26-08-10, 08:49 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (2)

• Xin chào các tín đồ Access. Có lẽ nhiều người biết các ngăn chặn vọc phá cũng như tùy biến thuộc tính startup Access bằng cách vào Tool--> Startup.
  Tuy nhiên, không phải bao giờ điều đó cũng làm các bạn hài lòng, và chúng ta luôn luôn muốn hơn nữa với VBA.Sau đây, mình xin giới thiệu các lệnh sửa thuộc tính trong VBA. Có lẽ vài bạn đã từng thử với việc Disable phím shift. Nhưng trong phạm vi bài viết này, mình sẽ nêu đầy đủ hơn về các thuộc tính đó.Để thuận tiện hơn trong việc thay đổi thuộc tính, bạn nên tạo 1 module và copy hàm sau:
  
  
  
  Mã:

  Function ChangeProperty(strPropName, varPropType, varPropValue)
      Dim dbs As Database, prp As Property
      Const conPropNotFoundError = 3270
      Set dbs = CurrentDb
      On Error GoTo Change_XuLyLoi
      dbs.Properties(strPropName) = varPropValue
      ChangeProperty = True
    Change_KetThuc:
      Exit Function
    Change_XuLyLoi:
      'Thuộc tính không thấy
      If Err = conPropNotFoundError Then
      Set prp = dbs.CreateProperty(strPropName, _
      varPropType, varPropValue)
      dbs.Properties.Append prp
      Resume Next
      Else
      'Không có thuộc tính đó
      ChangeProperty = False
      Resume Change_KetThuc
      End If
    End Function
  
  Và dưới đây là tập hợp các thuộc tính trong (ngoài) form Startup mà bạn có thể gọi bất cứ đâu. Sau khi gọi, nó sẽ có hiệu lực từ lần mở chương trình kế tiếp:
  
  
  Mã:

  Sub SercurityDB(locker As Boolean)
    ' Gọi đoạn module này ở form lock hay chỗ nào bạn thích.
    'SecurityDB True ( False)
    ' Thuộc tính nào không cần dùng, abn5 chỉ việc cho dấu nháy (') đằng trước là được
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Đổi tên Tiêu đề ứng dụng
      ChangeProperty "Apptitle", dbText," Tên Tiêu Đề"
    ' Đặt lại Form gọi khi mở chương trình
      ChangeProperty "StartupForm", dbText, "MainForm"
    ' Cho nhìn thấy Khung Database hay không
      ChangeProperty "StartupShowDBWindow", dbBoolean, locker
    'Cho nhìn thấy thanh Status hay không
      ChangeProperty "StartupShowStatusBar", dbBoolean, True
    ' Cho phép hiển thị thanh  design hay không
      ChangeProperty "AllowBuiltinToolbars", dbBoolean, locker
    ' Cho phép thêm bớt 1 item vào các thanh công cụ hay không
      ChangeProperty "AllowToolbarChanges", dbBoolean, locker
    ' Cho phép hiện thanh bar khi nhấn chuột phải hay không
      ChangeProperty "AllowShortcutMenus", dbBoolean, locker
      ' Cho phép hiện toàn bộ thanh menu hay không
      ChangeProperty "AllowFullMenus", dbBoolean, locker
    'Cho phép ngừng chương trình lại bằng phím Ctrl+ Break khi đang run hay không
      ChangeProperty "AllowBreakIntoCode", dbBoolean, locker
    ' Vô hiệu hóa phím đặc biệt như F11
      ChangeProperty "AllowSpecialKeys", dbBoolean, locker
    ' Vô hiệu hóa phím shift
      ChangeProperty "AllowBypassKey", dbBoolean, locker
    'Cho phép design/ sửa thuộc tính form/ report khi đang mở hay không.
      ChangeProperty "AllowDesignChanges", dbBoolean, locker
    ' Set lại đường dẫn Icon cùng với nơi lưu chương trình
     ChangeProperty "AppIcon", dbText, Access.CurrentProject.Path & "Icon1.ico"
      ' Gắn lại tên menubar tự tạo:
    Application.MenuBar = "My menubar"
    'Gắn lại tên shotcuts menubar ( tạo bằng macro)
    Application.ShotcutMenuBar = "My ShotCut Menubar"
    End Sub
  
  Các đoạn mình tô màu xanh đậm, các bạn có thể thay đổi cho phù hợp với chương trình của bạn.
  Các thuộc tính không cần thay đổi, bạn có thể xóa bỏ hoặc đặt dấu nháy đơn (') đằng trước.
  


•   So sánh - tổng hợp 2 table với Union
  

  Viết bởi: Noname 26-08-10, 08:46 PM Chuyên mục: Query - Bài trả lời (4)

• Hỏi:Mình hiện nay có 2 table A và table B :
  Giờ mình muốn lọc bằng lệnh SQL hoặc query :
  điều kiện
  1_những record nào trùng file mahang và tenhang trùng giữa 2 table A và B .
  2_Lọc ra những record không trùng giữa 2 table A và B .
  3 -Làm thế nào để Hợp nhất hai table A và B: lấy tất cả những record trùng và không trùng của 2 table (các record trùng nhau sẽ thành 1 record)
  Đáp: Ví dụ bạn có 2 table
  tableA có các mahang: 001, 002, 003.
  TableB có các mahang: 001, 004, 005.
  
  1_những record nào trùng file mahang và tenhang trùng giữa 2 table A và B .
  
  
  Mã:

  SELECT ArticleNo FROM TableA WHERE ArticleNo In (select ArticleNo from TableB)
    Union
    SELECT ArticleNo FROM TableB WHERE ArticleNo In (select ArticleNo from TableA)
  
  kết quả ví dụ tabletonghop có mã: 001
  2_Lọc ra những record không trùng giữa 2 table A và B .
  
  
  Mã:

  SELECT ArticleNo FROM TableA WHERE ArticleNo Not In (select ArticleNo from TableB)
    Union
    SELECT ArticleNo FROM TableB WHERE ArticleNo Not In (select ArticleNo from TableA);
  
  kết quả ví dụ: 002,003,004,005
  3/ -Làm thế nào để Hợp nhất hai table A và B: lấy tất cả những record trùng và không trùng của 2 table (các record trùng nhau sẽ thành 1 record)
  
  Mã:

  SELECT ArticleNo FROM TableA
    Union
    SELECT ArticleNo FROM TableB ;
  
  kết quả ví dụ: 001,002,003,004,005
  4/ Làm thế nào lấy tổng hợp tất cả các record không quan tâm chúng có trùng mã hay không?
  
  
  Mã:

  SELECT ArticleNo FROM TableA
    Union All
    SELECT ArticleNo FROM TableB ;
  
  kết quả ví dụ: 001,001,002,003,004,005
  


•   Đồng Bộ hai table
  

  Viết bởi: Noname 26-08-10, 08:43 PM Chuyên mục: Table - Bài trả lời (2)

• Hỏi: Tôi có 2 table có cấu trúc gần giống nhau. Tuy nhiên có khác biệt 1 ít về dữ liệu. Xin hướng dẫn đồng bộ table1 sang table 2.
  Ví dụ: table1( Maso, ten). Table2(maso, ten, diachi, ...)
  Tôi muốn
  1/Thêm maso,ten từ table 1 sang table nếu trong table 2 thiếu.
  2/Update lại tên nếu cùng 1 mã số nhưng tên table1 khác trong table 2
  3/ xóa những recode trong table2 không có mã trong table1
  
  Đáp run các query sau:
  
  1/Thêm maso,ten từ table 1 sang table nếu trong table 2 thiếu
  
  
  Mã:

  INSERT INTO Table2 ( Maso, TEN )
    SELECT Table1.Maso, Table1.Ten
    FROM Table1
    WHERE (((Table1.Maso) Not In (select maso from table2)));
  
  2/Update lại tên nếu cùng 1 mã số nhưng tên table1 khác trong table 2
  
  
  Mã:

  UPDATE Table1 INNER JOIN Table2 ON Table1.Maso = Table2.Maso SET Table2.TEN = table1.ten
    WHERE (((Table2.TEN)<>[table1].[ten]));
  3/ xóa những recode trong table2 không có mã trong table1
  
  
  Mã:

  DELETE Table2.*
    FROM Table2
    WHERE (((Table2.Maso) Not In (select maso from table1)));
  
  DownLoaddemo
  


•   Lập Hàm có lượng tham số thay đổi
  

  Viết bởi: Noname 26-08-10, 08:38 PM Chuyên mục: Thư Viện Hàm - Không có hồi đáp

• Hỏi: Bạn HaQuocQuan có hỏi làm sao tạo một hàm có số lượng tham số tùy ý.
  Đáp: Điển hình của các hàm có tham số tùy ý ta có thể thấy ở Excel, nó thường ở dạng
  Hàm( mảng các tham số, hằng số 1, hằng số 2...)
  
  Với hằng số để cho ta biết trong trường hợp nào thì trả về giá trị nào.
  Dưới đây, mình xin tạo 1 hàm có số tham số thay đổi tương tự hàm sum của Excel
  
  
  Mã:

  Function SumC(A As Variant)
    Dim tong
       tong = 0
       For Each I In A
       tong = tong + I
       Next I
       SumC = tong
    End Function
  Và bây giờ ta có thể gọi hàm sum như sau:
  
  
  Mã:

  Private Sub Command7_Click()
       MsgBox "Tong cua 10,20,50,60 la " & SumC(Array(10,20,50,60))
    End Sub
  
  Kết quả hiện lên 1 messenge: 170
  



Chủ đề Mới nhất

<a href="https://gyn101.c... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SilverBlade-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,259

Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,127

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 5,947

Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 64

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,339

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 750

Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,051

(Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,460

Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,237




Diễn đàn Thống kê

» Thành viên: 8,033 » Thành viên mới nhất: PeterLiz » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,829 Thống kê đầy đủ