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

Kinh nghiệm học lập trình VBA trong Access

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Kinh nghiệm học lập trình VBA trong Access
• Chủ đề đã đóng
• Kinh nghiệm học lập trình VBA trong Access

• Kinh nghiệm học lập trình VBA trong Access

  tranthanhan1962 > 20-04-20, 12:09 AM

  Đa phần các bạn lập trình access điều kinh qua lập trình excel. Thông thường bắt đầu ở chổ record new macro ở excel để hỗ trợ cho công việc xử lý excel nhanh hơn, tốt hơn. Thế là bắt đầu làm quen với các dòng code của VBA. Một vài người gom khái niệm VB và VBA thành một.
  Đầu tiên phải nói đến VB (Visual Basic) có trước, nó được Microsoft phát triển từ việc thừa kế ngôn ngữ lập trình Basic. Sau khi Microsoft phát triển các công cụ văn phòng (office) nó được đưa vào các ứng dụng này để hỗ trợ như một công cụ bổ sung. Vì là bộ phận bổ sung tích hợp nên cũng ta thấy một số lệnh của VBA access khác với lệnh VBA của excel, word hoặc powerpoint. Cái này do sự chủ quan của Microsoft + yêu cầu của người dùng. Điển hình là trên table của mdb không thể tạo sum, count, average nhưng đến accdb thì lại cho phép (tuy có hơi tào lao nhưng cũng có nhiều người thích và office dễ bán hơn, Microsoft nghĩ vậy).
  Trong khuôn khổ bài viết này, tôi không đưa ra hết, tất cả các đối tượng thành phần của VBA vì nó rất nhiều. Bản thân nó là một ngôn ngữ dựa trên tiếng Anh là chủ yếu, nên đa phần hơi từa tựa tiếng Anh, vì vậy bạn nào học tiếng Anh tiếp cận nó rất tốt, ngày xưa tôi là dân Pháp văn nên đụng vào nó thấy khó vô cùng. Sau này, xác định rằng nó là tiếng gì kệ nó miễn là khi viết máy hiểu thì thôi.
  Trở lại vấn đề học code VB trên Access, như đã nói trên đa phần anh em code VBA excel rồi mới thâm nhập qua access. Chính vì vậy, cái nào đã biết từ excel sẽ được khai thác triệt để còn không tìm thấy lệnh phù hợp là rối liền. Như đã trình bày ở trên, VBA là bộ bận bổ sung cho từng loại công cụ, nên khi nó bổ sung cho access, nó sẽ bổ sung lệnh nào phù hợp, lệnh nào chủ quan Microsoft thấy không cần thiết nó sẽ bỏ. Đó là lý do tại sao trên report có runningsum còn trên form lại không, đó là lý do tại sau trên table của access 2003 không tính được sum, count còn access 2007 trở đi thì làm được chuyên này.
  Nói lan man quá, xin trở lại với vấn đề kinh nghiệm học VBA trên access. Thực ra học VBA trên access 2003 dễ hơn access 2007 trở đi (mặc dầu ngày xưa rất cưc) vì: F1 hay Help của access 2003 là ofline, nằm ngay trên máy, còn hiện nay bộ phận này nằm trên mạng, để xem được nó nó còn kiểm tra đủ thứ mới cho xem mà có khi có đủ rồi nó trỏ vào trang tào lao, đọc cũng chẳng hiểu được gì.
  Giờ đi vào nội dung.
  
  
  
  1/ Chịu khó đọc hướng dẫn: Đây là cách đọc hướng dẫn trên access 2003, chỉ cần gõ vào Search Help nó sẽ ra ngay, sau đó chỉ cần quét toàn bộ nội dung đưa lên google search là hiểu đế 80-90% vấn đề. Cũng có cách khác là lên mạng tra nhưng chắng bao giờ nhanh bằng cái này.
  2/ Chịu khó duyệt danh sách Complete Word
  
  VBA hỗ trợ rất tốt danh sách Complete Word (hoàn chỉnh từ), nếu chưa biết lệnh để xử lý chính xác có thể sử dụng danh sách này để thử cho từng mã lệnh, danh sác này liệt kê các phương thức hoặc thuộc tính của các đối tượng, có thể sẽ có một mã lệnh vừa ý.
  Nắm bắt đầy đủ cấu trúc lệnh của VBA access.
  Có khi nào chúng ta để ý 2 dòng đầu tiên khi mở giao diện soạn thảo lệnh VBA
  Option Compare Database
  Option Explicit
  Option Compare Database: Tùy chọn So sánh Cơ sở dữ liệu. kết quả này là so sánh chuỗi dựa trên thứ tự sắp xếp được xác định bởi ID ngôn ngữ của cơ sở dữ liệu nơi xảy ra so sánh chuỗi. Không có mệnh đề này khả năng so sánh các ID chuỗi bị hạn chế
  Option Explicit: Tùy chọn Cơ sở dữ liệu rõ ràng. Đây là vấn đề tường minh trong CSDL, nễiu không có nó CSDL chấp nhận tất cả các biến khi nó chưa được khai báo. Tất nhiên, khi chạy nó sẽ bị lỗi. Khi có mệnh đề này nó sẽ báo lỗi ngay khi biên dịch (combile), để có thể nhanh chóng sửa chữa
  Hầu như tất cả các mã lệnh VBA của gắn liền với event (sự cố, biến cố): Các thủ tục (Sub) hoặc công thức (Function). Ngoại trừ Function còn được sử dụng như là một công thức trong query, form, report
  3/Xây dựng mã VBA trong module:
  Một đoạn mã code để thực thi một công việc gì đó được xây dựng như sau:
  a/ Bằng lệnh trực tiếp: Toán tử giữa các biến các function hệ thống hay tự viết : A+B;Sum();msgBox()…
  b/Các cấu trúc cơ bản: Nếu… thì (If…then); Chọn lựa (Select Case); Vòng lặp (Do…Loop; For…Next)
  Các cấu trúc này có thể sử dụng một mình hoặc lồng nhau. Tôi chỉ giới thiệu các cấu trúc cơ bản. Thực ra với từng loại cấu trúc cũng có nhiều kiểu khác nhau. Ví dụ: If …Then còn có If …Else If; Do…Loop có Do While, Do Until, While…Wend. Cái này các bạn tự nghiên cứu.
  c/ Một chuyên quan trọng khác là khi làm việc với các biến, hằng phải khai báo rõ ràng kiểu dữ liệu. Các biến, hằng cục bộ nằm trong module của đối tượng (form, report). Các biến hằng toàn cục nằm trong module toàn cục.
  Nếu nắm bắt được vấn đề chung này việc code VBA sẽ không còn là mối e ngại khi làm việc với VBA access

• RE: Kinh nghiệm học lập trình VBA trong Access

  Xuân Thanh > 20-04-20, 01:39 AM

  Đang có thời gian rảnh, viết tiếp đi

• RE: Kinh nghiệm học lập trình VBA trong Access

  tranthanhan1962 > 20-04-20, 07:21 AM

  Hì hì! Cùng nhau khai thác. Các bác hỗ trợ tí

• RE: Kinh nghiệm học lập trình VBA trong Access

  Xuân Thanh > 20-04-20, 08:03 AM

  Với tôi thì chẳng biết tiếng Anh tiếng U gì ráo trọi á. Mặt chữ còn chưa thuộc nữa kìa Nhưng bù lại được cái ham học. Thấy cái gì "lạ" là phải "mò" cho bằng được. Còn nhớ ngày xưa ngày thì đi làm, tối về ôm cuốn sách của Ông Văn Thông đọc ngấu nghiến. Hồi đó làm gì biết VBA là cái chi chi. Toàn làm bằng Query không hà. Mấy nút bấm CommandButton một là dùng Wizard, hai là Macro chứ nói đến Sub với Function thì tịt ngắc. May nhờ có mấy cuốn sách này mà biết được thế nào là hàm, thế nào là hằng với biến...Có thời gian thức thâu đêm tới sáng mất hơn một tháng tay ôm cuốn sách, tay gõ bàn phím cũng làm được một cái nho nhỏ theo sách. Hồi đó đâu biết VBA, cứ đọc theo sách rồi làm theo. Thấy chỗ nào khó hiểu là phải tìm bằng ra tại sao lại viết như thế này mà không viết theo thế kia. Được một thời gian có cuốn sách của Ông giải thích rất cặn kẽ và chi tiết một số hàm trong sách(tất nhiên là không phải là toàn bộ). Từ đó dần dần vỡ lẽ ra nhiều điều. Rồi tập viết hàm theo suy nghĩ của mình. Lúc đầu nó lỗi tùm lum hết may là nhờ mấy dòng tô vàng của Access nên dần dần cũng hiểu đươc vấn đề. Từ đó ham viết hàm lắm. Tự nghĩ ra điều kiện để viết. Từ từ rồi nối cháo nó cũng nhừ. Vậy đó. Lúc đầu còn bỡ ngõ, khó khăn nhưng học riết rồi cũng làm được. Bây giờ ngồi đọc hàm người ta viết là biết rồi học theo. Nói thật không có gì bằng sách. Bây giờ Internet phát triển mạnh lại càng có nhiều điều kiện để học. 
  Cái khó nhất khi viết VBA là phải định hình được giải thuật của nó. Giải thuật là mấu chốt cơ bản để giải quyết bài toán. Giải thuật chính là cái xương sống của bài toán. Giải thuật chính là hướng đi. Tìm được hướng đi tối ưu nhất thì bài toán được giải quyết nhanh gọn. Cũng giống như ta đi từ điểm A tới điểm B vậy. Tìm được đường đi ngắn nhất mà không gặp trở ngại gì trên đường đi thì đó chính là VBA

• RE: Kinh nghiệm học lập trình VBA trong Access

  tranthanhan1962 > 20-04-20, 02:27 PM

  Theo lời dề nghị của bác Xuân Thanh. Mình sẽ đào sâu hơn các vấn đề chung trong việc tiếp cận lận trình VBA nhằm hệ thống hoá một cách tương đối về nó. Mong các bạn bổ sung thêm. Trước tiên ta sẽ đi vào phần Cấu trúc.
  Ngoài các lệnh trực tiếp phần cấu trúc sẽ hỗ trợ nhiều trong việc xử lý, chọn lựa, đặt các điều kiện cho các lệnh.
  1/Cấu trúc Nếu ...Thì:
  a/Kiểu 1: If <điều kiện> Then <lệnh>. Đây là cách xử lý cấu trúc này đơn giản nhất và nó được viết trên một dòng:
  If tôi rảnh Then tôi sẽ đi chơi
  If  A>0 Then B=A+5
  b/Kiểu 2: Trong trường hợp nhiêu điều kiện đúng thực hiện nhiều lệnh thì không được đưa các lệnh chung một dòng phía sau từ khoá Then mà phải đưa nó xuống thành nhiều dòng giữa các tứ khoá:
  If tôi rảnh Then
        Tôi sẽ đi chợ
        Tôi sẽ mua cá
        Tôi sẽ mua rau
  End If
  If A>50 Then
        B=A+6
        D=B*2
        E=A/2
  End If
  
  Chú ý, máy tính khống như chúng ta, mỗi lệnh phải được viết trên một dòng chứ không thể gom chung tôi sẽ đi chợ, mua cá, mua rau như cách nói của chúng ta. Ngược lại nếu có nhiều điều kiện thì tất cả các điều kiện phải được viết thành một dòng chứ không được tách ra như các lệnh.
  If tôi rảnh và trời không mưa Then tôi sẽ đi chợ
  If A>0 And B>5 Then C=A+B
  Khi có nhiều điều kiện phải xử lý các điều kiện thành một biểu thức rồi đưa biểu thức đó thành điều kiện.
  Vì vậy khi chỉ có một lệnh cho điều kiện đúng chúng ta chỉ cầm xử lý nó thành một dòng chứ không cần phải đưa nó vào giữa cập từ khoá:
  If...Then
  ...
  End If
  Thay vì viết
  If Nhap.Value = True Then
  ThanhTien.Value = SoLuong.Value * DonGia.Value
  End If
  Ta chỉ cần viết:
  If Nhap.Value = True Then ThanhTien.Value = SoLuong.Value * DonGia.Value
  Trường hợp cùng điều kiện khi có lệnh cho cách xử lý cả 2 trường hợp đúng và sai ta ta dùng thêm từ khoá Else
  Ví dụ:
  If Nhap.Value = True Then ThanhTien.Value = SoLuong.Value * DonGia.Value
  If Xuat.Value = True Then ThanhTien.Value = -SoLuong.Value * DonGia.Value
  => Vì Xuat.Value = True cũng có nghĩa nhap.Value = False
  =>
  If Nhap.Value = True Then ThanhTien.Value = SoLuong.Value * DonGia.Value
  If Nhap.Value = False Then ThanhTien.Value = -SoLuong.Value * DonGia.Value
  =>
  If Nhap.Value = True Then
  ThanhTien.Value = SoLuong.Value * DonGia.Value
  Else
  ThanhTien.Value = -SoLuong.Value * DonGia.Value
  End If
  Khi nhiều có trường hợp + nhiều lệnh và khó thể đưa các trường hợp vào một biểu thức thì ta lồng các cấu trúc If ... End If vào nhau
  If <điều kiện> Then
     <Lệnh>
     Else If <điều kiện> Then
               <Lệnh> 
            End If
  End If
  Nếu các điều kiện có cùng chung đối tượng, ta có thể chuyển sang cấu trúc chọn lựa:
  Select Case
       Case...
           <Lệnh>
            ...
       Case...
            <Lệnh>
            ...
  End Select

• RE: Kinh nghiệm học lập trình VBA trong Access

  mrsiro > 20-04-20, 09:32 PM

  Câu lệnh có cấu trúc sau:
  

  Mã:

  If tôi có tiền then
  If msgbox("bạn có chắc muốn mua",vbYesNo) = vbYes then
    tôi mua
  End if
Else
  tôi mua
End if

  
  Có cách nào rút ngắn cú pháp của code trên không, bởi vì "tôi mua" xuất hiện 2 lần, mính muốn rút ngắn lại.

• RE: Kinh nghiệm học lập trình VBA trong Access

  tranthanhan1962 > 20-04-20, 09:36 PM

  (20-04-20, 09:32 PM)mrsiro Đã viết: Câu lệnh có cấu trúc sau:
  

  Mã:

  If tôi có tiền then
  If msgbox("bạn có chắc muốn mua",vbYesNo) = vbYes then
    tôi mua
  End if
Else
  tôi mua
End if

  
  Có cách nào rút ngắn cú pháp của code trên không, bởi vì "tôi mua" xuất hiện 2 lần, mính muốn rút ngắn lại.

  Câu trả lời là
  

  Mã:

  If tôi có tiền then tôi mua

• RE: Kinh nghiệm học lập trình VBA trong Access

  Xuân Thanh > 20-04-20, 09:39 PM

  If tôi có tiền Then tôi mua
  
  Khổi mất công hỏi chị cho dài dòng văn tự vì đằng nào tôi cũng mua
  
  Èo. Post xong mới thấy bài của tranthanhan1962

• RE: Kinh nghiệm học lập trình VBA trong Access

  tranthanhan1962 > 20-04-20, 09:52 PM

  (20-04-20, 09:39 PM)Xuân Thanh Đã viết: If tôi có tiền Then tôi mua
  
  Khổi mất công hỏi chị cho dài dòng văn tự vì đằng nào tôi cũng mua
  
  Èo. Post xong mới thấy bài của tranthanhan1962

  
  Đây là vấn đề quan trọng trong code. Làm sao cho máy hiểu công việc của mình một cách ngắn nhất. Viết code là làm toán chứ không phải làm thơ

• RE: Kinh nghiệm học lập trình VBA trong Access

  mrsiro > 20-04-20, 10:18 PM

  Nếu tôi có tiền thì không chắc chắn là tôi sẽ mua, nếu tôi đồng ý tôi mới mua:
  If tôi có tiền then
    If msgbox("bạn có chắc muốn mua",vbYesNo) = vbYes then
      tôi mua
    End if
  
  
  Vế sau:
  Else
    tôi mua
  End if
  Có thể có nhiều tiền hoặc ít tiền, lúc này tôi chắc chắn mua khỏi hỏi.
  
  
  Nếu số lương 1 lớn hơn số lượng 2 thì ấn đồng ý mới lưu.
  Nếu số lượng 1 bẳng số lượng 2, hoặc số lương 1 nhỏ hơn số lượng 2 thì lưu luôn khỏi hỏi:
  

  Mã:

  If txtSoluong1.value > txtSoluong2.value then
  If msgbox("bạn có chắc muốn lưu",vbYesNo) = vbYes then
    Lưu
  End if
Else
  Lưu
End if
• Bài trước Bài tiếp