• 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ủ
•   SQL
  

  Viết bởi: Nguyen SVN 29-11-19, 09:45 AM Chuyên mục: Forms - Bài trả lời (1)

• '--------------------------------------------------------------------
  '---CREATE DATE : 2019/11/29 Nguyen
  '---------------------------------------------------------------
  
  CREATE PROCEDURE [dbo].[Combo_01]
  (
  @Table    VARCHAR(100),
  @Column VARCHAR(100)
  )
  AS
  
  DECLARE @SORT VARCHAR(100)
  
  IF @Column LIKE '%Year' OR @Column LIKE '%Day%'
        SET @SORT = '1 DESC'
  ELSE
        SET @SORT = '1'
  --
  EXEC( '
  SELECT *
  FROM (
  SELECT CASE WHEN ISDATE( ' + @Column+ ' ) = 0 THEN ' + @Column+ ' ELSE CONVERT( VARCHAR(10), ' + @Column + ', 111 ) END AS [' + @Column + ']
  FROM ' + @Table + '
  WHERE ' + @Column + ' IS NOT NULL
  ) AS AA
  GROUP BY [' + @Column + ']
  ORDER BY ' + @SORT
  )
  
  RETURN
  


•   Query is corrupted - Cannot update record
  

  Viết bởi: tuliemhanoi 27-11-19, 12:49 AM Chuyên mục: Query - Không có hồi đáp

• Anh em bạn bè nào đang gặp vấn đề sử dụng database Access lỗi "Query is corrupted” có thể sửa bằng link này nhé
  
  Hiện Microsoft đang gặp lỗi sau khi cập nhật vá lỗi Office
  
  Before: UPDATE Table1 SET Field1 = "x" WHERE (Field2=1); 'Generates error
  
  After: UPDATE (SELECT * FROM Table1) SET Field1 = "x" WHERE (Field2=1); 'No error
  
  
  https://stackoverflow.com/questions/5883...1#58833831
  


•   TRUY VẤN ĐẾN FORM KHÁC FORM HIỆN HÀNH
  

  Viết bởi: yamakashi2003 26-11-19, 11:52 PM Chuyên mục: Forms - Bài trả lời (2)

• Em chào các bác ạ,
  HIện em có 2 form,
  trong form 1 em có 1 textbox: text1,
  và em muốn text1 này sẽ hiển thị tổng số tiền của cột "TIEN" trong form khác tên là: F_DULIEU , nên ở phần control source của text1 em viết lệnh như sau
  =Sum([Forms]![F_DULIEU]![TIEN])
  
  vậy mà sao text1 nó lại hiện thông báo lỗi #Error
  Mong các bác chỉ giáo em viết code cho đúng là
  Em xin cảm ơn các bác ạ
  


•   Hướng dẫn chi tiết thiết kế Ribbon ứng dụng Access II
  

  Viết bởi: tranthanhan1962 25-11-19, 06:43 PM Chuyên mục: Thư Viện Ứng Dụng - Không có hồi đáp

• Hướng dẫn thiết kế Ribbon ứng dụng Access (phần 2)
       Như đã dự định, phần này tôi sẽ trình bày về cách đưa lệnh vào các button của ribbon. Nhưng do một số anh em hỏi về cách ảnh tab file tôi sẽ nói về việc này trước.
      Trong đoạn khai báo mã XML có đoạn:
        <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
      Có nghĩa là đoạn XML này dành cho office 2010 trở đi.
      Nếu bạn nào sử dụng access 2007 nó sẽ là:
        <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
      Trong bài viết này tôi chỉ thực hiện cho access 2010 trở đi. Riêng access 2007, nếu có dịp tôi sẽ thực hiện một bài khác vì cả hai có nhiều khác biệt. Vã lại, giờ mấy ai còn sử dụng access 2007, thà access 2003 còn hơn.
      Hôm trước tôi có một bài viết về cách ẩn nút option để khóa người sử dụng có thể vào sử option của access để thâm nhập và chỉnh sửa.
      Xin nhắc lại Tab File không dấu được. Cho đến hiện nay dù tìm kiếm khá lâu nhưng tôi cũng chưa tìm thấy đoan mã nào xử lý điều này.
      Về phần cách dấu các idmso lệnh trên Tab File (tôi sử dụng  thuật ngữ idmso để xử dụng chung cho các điều khiển này vì đôi khi nó là button đôi khi nó là tab)
      Các idmso vẫn thể hiện các nhãn tương tự nhưng trong từng vesion của access các idmso cũng khác nhau nên các đoạn mã XML có thể không đúng khi chạy trên các version và xuất hiện việc 1 idmso ẩn trên version này và không ẩn trên version khác và đôi khi gặp lỗi. Một điều may mắn là tên của idmso “Option” không thay đổi trên các version, nó luôn luôn là “ApplicationOptionsDialog”, vì vậy để dấu chỉ mình “Option”, ta có thể sử dụng chung đoạn mã cho tất cả các version (2010-->2019).
    <backstage>
          <button idMso="ApplicationOptionsDialog" visible="false"/>
      </backstage>
      Thực hiện điều này bằng cách đưa đoạn mã backstage này vào phần cuối của đoạn mã XML (trên từ khóa </customUI>):
      <?xml version="1.0" encoding="utf-8"?>
      <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
        <ribbon startFromScratch="true">
          <tabs>
            <tab id="TabSo1" label="Tab số 1" visible="true">
              <group id="GroupSo1" label="Group Số 1">
                <button id="BT01" imageMso="HappyFace" size="large" label="Nút số 1" onAction="mcr01" />
              </group>
            </tab>
          </tabs>
        </ribbon>
     <backstage>
          <button idMso="ApplicationOptionsDialog" visible="false"/>
      </backstage>
      </customUI>
      Cách bố trí các idmso trên các version của access (từ 2010 đến 2019)
  
  Tên các idmso của từng version access (Do không thể tạo được table trên bài viết các bạn chịu khó nhìn vậy)
  Nhãn             |    idMso 2010    |    idMso 2013    |    idMso 2016+2019        
  Account          |    Không có          |    TabHelp           |    TabHelp        
  Close              |    FileClose    (không thay đổi)   
  Exit                |    FileExit             |    Không có          |    Không có        
  Export            |    Không có         |    TabPublish         |    TabPublish        
  Help               |    TabHelp          |    Không có            |    Không có       
  History           |    Không có         |    Không có            |    HistoryTab        
  Home             |    Không có        |    Không có            |    PlaceTabHome        
  Info                |    TabInfo    (không thay đổi)   
  New               |    TabNew          |    TabOfficeStart    |    TabOfficeStart        
  Open              |    FileOpen         |    TabRecent         |    TabRecent       
  Options           |    ApplicationOptionsDialog    (không thay đổi)   
  Print               |    TabPrint    (không thay đổi)   
  Recent            |    TabRecent      |    Không có           |    Không có        
  Save               |    FileSave    (không thay đổi)   
  Save & Send    |    TabShare       |    Không có           |    Không có        
  Save As           |    FileSaveAs     |    Không có           |    TabSave        
  Share              |    Không có       |    TabShare           |    TabShare        
  Export             |    Không có      |    TabPublish          |    TabPublish        
  Publish            |    Không có      |    Không có            |    Publish2Tab        
  Close              |    FileClose    (không thay đổi)   
  Account          |    Không có       |    TabHelp              |    TabHelp        
  Feedback        |    Không có       |    Không có            |    TabOfficeFeedback  |   
  Do máy mình không cài đầy đủ các version nên mình test trên access 2019 thì rất OK. Bạn nào có cài đầy đủ test thử xem nếu đưa vào tất cả các lệnh idmso thì có thể sử dụng chung một bản mã xml cho tất cả các version được không.
  Ví dụ khi đưa đoạn mã XML này vào field RibbonXML của record Ribbon1 của table UsysRibbons của tập tin Demo (access 2019):
  <?xml version="1.0" encoding="utf-8"?>
  <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="true">
      <tabs>
        <tab id="TabSo1" label="Quản lý Giao diện" visible="true">
          <group id="GroupSo1" label="Form">
            <button id="BT01" imageMso="PictureInsertMenu" size="large" label="Nút số 1" onAction="mcr01" />
          </group>
        </tab>
      </tabs>
    </ribbon>
  <backstage>
          <button idMso="FileSave" visible="false"/>
          <button idMso="FileSaveAs" visible="false"/>
          <button idMso="FileOpen" visible="false"/>
          <button idMso="FileClose" visible="false"/>
          <button idMso="ApplicationOptionsDialog" visible="false"/>
          <button idMso="FileExit" visible="false"/>
          <button idMso="HistoryTab" visible="false"/>
          <button idMso="OfficeFeedback" visible="false"/>
          <button idMso="ShareDocument" visible="false"/>
          <button idMso="FileCloseDatabase" visible="false"/>
          <tab idMso="TabInfo" visible="false"/>
          <tab idMso="TabRecent" visible="false"/>
          <tab idMso="TabNew" visible="false"/>
          <tab idMso="TabPrint" visible="false"/>
          <tab idMso="TabShare" visible="false"/>
          <tab idMso="TabHelp" visible="false"/>
          <tab idMso="TabPublish" visible="false"/>
          <tab idMso="TabSave" visible="false"/>
          <tab idMso="TabOfficeStart" visible="false"/>
  <tab idMso="Publish2Tab" visible="false"/>
  <tab idMso="TabOfficeFeedback" visible="false"/>
  <tab idMso="PlaceTabHome" visible="false"/>
      </backstage>
  </customUI>
      Nó sẽ hiển thị như thế này (ẩn tất cả các control idmso).
  
  Giờ đến phần chính: đưa lệnh vào các button của ribbon.
      Có 2 cách đưa lệnh vào button XLM: 1/ Dùng macro. 2/Dùng VBA:
      Để hợp lý hơn tôi sẽ chỉnh sửa một chút field RibbonXML của record Ribbon1:
  <?xml version="1.0" encoding="utf-8"?>
  <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="true">
      <tabs>
        <tab id="TabSo1" label="Quản lý Giao diện" visible="true">
          <group id="GroupSo1" label="Form">
            <button id="BT01" imageMso="PictureInsertMenu" size="large" label=" Mở Form " onAction="mcr01" />
          </group>
        </tab>
      </tabs>
    </ribbon>
  <backstage>
          <button idMso="FileSave" visible="false"/>
          <button idMso="FileSaveAs" visible="false"/>
          <button idMso="FileOpen" visible="false"/>
          <button idMso="FileClose" visible="false"/>
          <button idMso="ApplicationOptionsDialog" visible="false"/>
          <button idMso="FileExit" visible="false"/>
          <button idMso="HistoryTab" visible="false"/>
          <button idMso="OfficeFeedback" visible="false"/>
          <button idMso="ShareDocument" visible="false"/>
  <button idMso="FileCloseDatabase" visible="false"/>
          <tab idMso="TabInfo" visible="false"/>
          <tab idMso="TabRecent" visible="false"/>
          <tab idMso="TabNew" visible="false"/>
          <tab idMso="TabPrint" visible="false"/>
          <tab idMso="TabShare" visible="false"/>
          <tab idMso="TabHelp" visible="false"/>
          <tab idMso="TabPublish" visible="false"/>
          <tab idMso="TabSave" visible="false"/>
          <tab idMso="TabOfficeStart" visible="false"/>
  <tab idMso="Publish2Tab" visible="false"/>
  <tab idMso="TabOfficeFeedback" visible="false"/>
  <tab idMso="PlaceTabHome" visible="false"/>
      </backstage>
  </customUI>
      Lúc này hình ảnh của Ribbon khi mở CSDL như sau:
  
  Lúc này nếu ấn vào nút [Mở Form] chắc chắn nó sẽ báo lỗi, Vì không tìm ra cái lệnh mcr01 (onAction="mcr01")
      Để tạo lệnh cho onAction có thể sử dụng macro hoặc VBA. Trước hết tạo thêm một cái form để test lệnh này ( lệnh mở form). Tạo một form, để tên mặc định là Form1 hoặc đặt tên gì cũng được.
      1/Dùng macro: Tạo một macro có tên là mcrOpenForm
  
  Thay đoạn mã:
            <button id="BT01" imageMso="PictureInsertMenu" size="large" label=" Mở Form " onAction="mcr01" />
      Thành:
            <button id="BT01" imageMso="PictureInsertMenu" size="large" label=" Mở Form " onAction="mcrOpenForm" />
      Khi đóng và mở lại CSDL, khi bấm vào button [Mở Form], lệnh mở form sẽ được thực hiện.
      1/Dùng VBA:
      Trước khi tạo module phải kiểm tra references. Mở một module, mở tool, reference. Kiểm tra [Microsoft Ofice 16.0 Object Library]. Nếu nó chưa được set thì chọn nó. Không set cái này nó sẽ không chạy VBA cho lệnh ribbon.
  
  Tạo một module toàn cục (ở đây tôi sẽ đặt tên nó là Global).
      Tạo một đoạn mã VBA mở Form1:
  
  
  Mã:

  Sub OpenForm()
    DoCmd.OpenForm "Form1"
End Sub
  
  Đây là mã VBA mở form quen thuộc mà khi bạn đặt nó ở bất kỳ nút lệnh nào nó cũng sẽ thực hiện công việc mở Form1 giống như macro mcrOpenForm mới vừa thực hiện.
      Thay tên macro ở onAction="mcrOpenForm" bằng tên sub onAction=" OpenForm "
      Ta có
            <button id="BT01" imageMso="PictureInsertMenu" size="large" label=" Mở Form " onAction=" OpenForm " />
      Khi khởi động lại CSDL bấm vào Button [Mở form]. Một bảng báo lỗi hiện ra
  
  Vấn đề là nó còn thiếu một số mã VBA để thực hiện lệnh.
      Giờ ta thêm vào đoạn mã như sau:
  Option Compare Database
  Option Explicit
  Public IRibbonControl As IribbonUI
  ----------------
  Public Sub OnRibbonLoad(objRibbon As IRibbonUI)
  On Error GoTo Err_OnRibbonLoad
  Set IRibbonControl = objRibbon
  Exit_OnRibbonLoad:
      Exit Sub
  Err_OnRibbonLoad:
      MsgBox Err.Description
      Resume Exit_OnRibbonLoad
  End Sub
  ---------------------
  Sub OpenForm(control As IRibbonControl)
      DoCmd.OpenForm "Form1"
  End Sub
      Đoạn mã màu đỏ là đoạn mã gốc để thực hiện các lệnh VBA của các sub và function cho các button trên ribbon thực hiện lệnh VBA.
      Giờ ta khởi động lại. Khi bấm vào Button [Mở form], thì form 1 được mở theo lệnh mà không báo lỗi.
      Thay đổi Sub OpenForm thành Function OpenForm.
  
  
  Mã:

  Function OpenForm(control As IRibbonControl)
    DoCmd.OpenForm "Form1"
Function Sub
  
      Mã VBA vẫn được thực hiện.
  Demo
      Thực ra ở các tập tin accdb khi khóa Display Navigation Pan, Option, và Shift thì không có cách nào vào được các đối tượng nguồn trong CSDL, Nên việc giữ bí mật cho macro cũng giống như module việc thực hiện các lệnh do sở thích tác giả (đối vời những lệnh tương tự) chứ không bị bắt buột vì lý do kỹ thuật nào cả.
      Trên đây gần như tất cả kỹ thuật cơ bản tạo ribbon đã được trình bày một cách tương đối. Các bạn nếu có gì hỗ trợ thêm thì xin mời tham gia để chủ đề này phong phú hơn
  


• TẠO SPIN BUTTON
  

  Viết bởi: yamakashi2003 25-11-19, 12:21 AM Chuyên mục: Forms - Bài trả lời (2)

• Em chào anh, chị ạ
  Anh chị cho em hỏi trong form excel có công cụ: Spin button
  Nhưng em lại tìm trên form access mà không thấy có nút này
  Vậy các bác cho em hỏi làm sao tạo công cụ Spin button trên form access ạ
  Hoặc 1 công cụ có tác dụng tương tự thế (ấn mũi tên lên thì số chạy liên tục, ấn xuống thì giảm liên tục)
  Em xin cảm ơn các Bác
  



Chủ đề Mới nhất

Thơ Họa Nguyễn Thành Sáng... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 12:14 AM- » Bài trả lời: 350- » Lượt xem: 13,232

Kiểm tra kiểu kết nối ODB... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AnNguyen-06-12-19, 06:05 PM- » Bài trả lời: 2- » Lượt xem: 75

changkhoonline77 có Ứng d... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: thuyyeu99-06-12-19, 03:59 PM- » Bài trả lời: 17- » Lượt xem: 290

thêm tính năng cho diễn đ... -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: Noname-06-12-19, 09:32 AM- » Bài trả lời: 1- » Lượt xem: 85

Hiển thi % khi xuat dữ li... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyen SVN-05-12-19, 04:09 PM- » Bài trả lời: 3- » Lượt xem: 75

class module cho Form và ... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-05-12-19, 12:07 PM- » Bài trả lời: 6- » Lượt xem: 122

Cach đưa 1 đoạn code lên ... -Chuyên mục: Vấn đề chung-Đăng bởi lần cuối: Xuân Thanh-04-12-19, 11:21 AM- » Bài trả lời: 3- » Lượt xem: 94

Dùng DAO để thêm, xóa, sử... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: ongke0711-03-12-19, 09:34 PM- » Bài trả lời: 9- » Lượt xem: 2,126

[Demo-Phần 2] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: thuyyeu99-03-12-19, 06:10 PM- » Bài trả lời: 55- » Lượt xem: 8,025

[Demo Phần 1] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: thuyyeu99-03-12-19, 06:02 PM- » Bài trả lời: 32- » Lượt xem: 4,594




Diễn đàn Thống kê

» Thành viên: 3,476 » Thành viên mới nhất: adatsm85 » Các chủ đề diễn đàn: 8,916 » Các bài viết diễn: 40,151 Thống kê đầy đủ