Chào mừng, Khách
Bạn cần phải đăng ký trước khi bạn có thể đăng trên trang web của chúng tôi.

Tên người dùng
  

Mật khẩu
  





Diễn đàn Tìm kiếm

(Tìm kiếm nâng cao)

Diễn đàn Thống kê
» Thành viên: 3,053
» Thành viên mới nhất: nguyenquihon
» Các chủ đề diễn đàn: 8,357
» Các bài viết diễn: 35,374

Thống kê đầy đủ

Thành viên online
Hiện đang có 26 người dùng trực tuyến.
» 0 Thành viên | 26 Khách

Chủ đề Mới nhất
NHẬP DỮ LIỆU VÀO Ô TRÊN F...
Chuyên mục: Bài tập Access
Đăng bởi lần cuối: trungn077
6 Giờ trước
» Bài trả lời: 0
» Lượt xem: 13
Đóng gói sản phẩm access
Chuyên mục: Bài tập Access
Đăng bởi lần cuối: ntt
9 Giờ trước
» Bài trả lời: 20
» Lượt xem: 507
Chọn kho theo điều kiện m...
Chuyên mục: Vấn đề chung
Đăng bởi lần cuối: feeling
, 12:09 PM
» Bài trả lời: 0
» Lượt xem: 21
tự điền vào field khi thỏ...
Chuyên mục: Forms
Đăng bởi lần cuối: Godspear
, 11:41 AM
» Bài trả lời: 0
» Lượt xem: 24
Khai báo function
Chuyên mục: Thủ thuật VBA
Đăng bởi lần cuối: mrsiro
, 09:51 AM
» Bài trả lời: 4
» Lượt xem: 148
Trích ngấu nhiên dữ liệu ...
Chuyên mục: Tương tác Chương trình ngoài
Đăng bởi lần cuối: vuthaiha90
, 08:43 AM
» Bài trả lời: 2
» Lượt xem: 55
Xin được hướng dẫn khắc p...
Chuyên mục: Vấn đề chung
Đăng bởi lần cuối: ongke0711
, 12:48 AM
» Bài trả lời: 35
» Lượt xem: 1,220
Làm sao liên kết access v...
Chuyên mục: Forms
Đăng bởi lần cuối: tranthanhan1962
19-04-18, 06:18 PM
» Bài trả lời: 1
» Lượt xem: 45
Phân quyền (Phần IV) - Ph...
Chuyên mục: Share Code
Đăng bởi lần cuối: ongke0711
18-04-18, 09:22 AM
» Bài trả lời: 2
» Lượt xem: 79
Xuất dữ liệu từ Access ra...
Chuyên mục: Thủ thuật VBA
Đăng bởi lần cuối: Minh Tiên
17-04-18, 03:06 PM
» Bài trả lời: 5
» Lượt xem: 171

 
  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!
[Hình: ngaydautien.jpg]

Đá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)

[Hình: ngaydautien.rar?attredirects=0&d=1]

In mục này

  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:
[Hình: startup.jpg]

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.

In mục này

  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

In mục này

  Đồng Bộ hai table
Viết bởi: Noname - 26-08-10, 08:43 PM - Chuyên mục: Table - Không có hồi đáp

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

In mục này

  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

In mục này

Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line