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,090
» Thành viên mới nhất: quylego0611
» Các chủ đề diễn đàn: 8,530
» Các bài viết diễn: 36,866

Thống kê đầy đủ

Thành viên online
Hiện đang có 40 người dùng trực tuyến.
» 3 Thành viên | 33 Khách
Bing, Cốc Cốc, Google, Google-AdSense, bằng lăng, dangninh, ongke0711

Chủ đề Mới nhất
Update theo chuỗi VBA
Chuyên mục: Forms
Đăng bởi lần cuối: ongke0711
Ít hơn1 Phút trước
» Bài trả lời: 2
» Lượt xem: 13
code đánh số báo danh
Chuyên mục: Vấn đề chung
Đăng bởi lần cuối: bằng lăng
14 Phút trước
» Bài trả lời: 23
» Lượt xem: 825
Nhờ xây dựng Query
Chuyên mục: Query
Đăng bởi lần cuối: Tranhung84ls
52 Phút trước
» Bài trả lời: 0
» Lượt xem: 9
Không chọn được nhiều Nhâ...
Chuyên mục: Forms
Đăng bởi lần cuối: tranthanhan1962
Hôm qua, 11:26 PM
» Bài trả lời: 8
» Lượt xem: 194
Nhờ giúp đỡ
Chuyên mục: Bài tập Access
Đăng bởi lần cuối: Tranhung84ls
Hôm qua, 08:30 PM
» Bài trả lời: 12
» Lượt xem: 329
Tắt cảnh báo Access khi x...
Chuyên mục: Vấn đề chung
Đăng bởi lần cuối: tranthanhan1962
Hôm qua, 06:51 PM
» Bài trả lời: 4
» Lượt xem: 80
Load dữ liệu từ table lên...
Chuyên mục: Forms
Đăng bởi lần cuối: bằng lăng
Hôm qua, 04:56 PM
» Bài trả lời: 2
» Lượt xem: 92
tự học Access đang bị vướ...
Chuyên mục: Query
Đăng bởi lần cuối: datma
Hôm qua, 03:23 PM
» Bài trả lời: 3
» Lượt xem: 126
Chia sẽ chương trình quản...
Chuyên mục: Thư Viện Ứng Dụng
Đăng bởi lần cuối: meocon11
Hôm qua, 03:17 PM
» Bài trả lời: 11
» Lượt xem: 463
[Góc thơ] THAO THỨC
Chuyên mục: Góc Thơ
Đăng bởi lần cuối: Nguyễn Thành Sáng
18-09-18, 08:55 PM
» Bài trả lời: 747
» Lượt xem: 55,363

 
  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