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

Code VBA tìm kiếm cho Form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Code VBA tìm kiếm cho Form
• Code VBA tìm kiếm cho Form

• Code VBA tìm kiếm cho Form

  lethuongton > 04-10-13, 10:53 AM

  database của mình gồm có 2 bảng:
  Sample (STT, NAME , IDSOURCE, DETAIL)
  Source (IDSOURCE , NAME, INFORMATION )
  Mình có tạo 2 form
  FrmSample và FrmSource.
  Trên FrmSample có một ComboxSource ( lấy nguồn từ bãng Source). Ý mình ở đầy là khi người ta bấn nút Save trên FrmSample thì nó sẽ kiểm tra giá trị ở ComboxSource có trong bãng Source chưa ( vì đôi khi người khác hong chọn mà họ gõ một giá trị nào đó ). Nếu chưa có giá trị thì nó mở FrmSource lên để nhập giá trị đó vào bãng Source trước, còn nếu có rồi thì cho ghi vô bãng table.
  Mình không biết viết Code ở chổ làm sao chể check giá trị của ComboxSource đã có ở bãng Source hay chưa, bạn nào giúp mình với

• RE: Code VBA tìm kiếm cho Form

  paulsteigel > 05-10-13, 12:40 AM

  Bạn cần 1 combo, tại sự kiện NotIntheList bạn tham chiếu đến một thủ tục khác để bật ra form nhập liệu (dạng như ở đây)
  

  Mã PHP:

  Private Sub ExternalResponsiblity_NotInList(NewData As String, Response As Integer)
    ' Gọi thủ tục mở form
    NotIntheList ExternalResponsiblity, "ExternalResponsiblity", 2, Response
End Sub 


  Mã PHP:

  Private Sub NotIntheList(iObj As ComboBox, iActName As String, iParam As Long, tResponse As long)
    ' Gọi form để cập nhập
    objOutList = True
    MsgBox "Khong co trong danh muc", vbCritical
    DoCmd.OpenForm "FormName", acNormal, , , , acDialog
    tResponse = 0
    iObj = ""
    iObj.Requery
    objOutList = False
End Sub 


  Tôi chỉ cung cấp dạng ví dụ, bạn có thể sửa thêm cho đúng

• RE: Code VBA tìm kiếm cho Form

  MTNQ > 05-10-13, 01:32 AM

  Bác paulsteigel đúng là "Thành Viên đẳng cấp". Mình thích đọc các câu trả lời của bác (học hỏi dc nhiều kinh nghiệm )

• RE: Code VBA tìm kiếm cho Form

  lethuongton > 05-10-13, 04:52 PM

  (05-10-13, 12:40 AM)paulsteigel Đã viết: Bạn cần 1 combo, tại sự kiện NotIntheList bạn tham chiếu đến một thủ tục khác để bật ra form nhập liệu (dạng như ở đây)
  

  Mã PHP:

  Private Sub ExternalResponsiblity_NotInList(NewData As String, Response As Integer)
    ' Gọi thủ tục mở form
    NotIntheList ExternalResponsiblity, "ExternalResponsiblity", 2, Response
End Sub 


  Mã PHP:

  Private Sub NotIntheList(iObj As ComboBox, iActName As String, iParam As Long, tResponse As long)
    ' Gọi form để cập nhập
    objOutList = True
    MsgBox "Khong co trong danh muc", vbCritical
    DoCmd.OpenForm "FormName", acNormal, , , , acDialog
    tResponse = 0
    iObj = ""
    iObj.Requery
    objOutList = False
End Sub 


  Tôi chỉ cung cấp dạng ví dụ, bạn có thể sửa thêm cho đúng

  Thanks bạn nhiều nha.
  Mình đã làm được rồi.
  Mình có tìm được một link tham khảo ở đây:
  Support Microsoft
  Tuy nhiên, mình cũng chưa hiểu về sao lại có đoạn:
  
  

  Mã PHP:

  Private Sub Form_Load () 
If Not IsNull(Me.OpenArgs) Then
      ' If form's OpenArgs property has a value, assign the contents
      ' of OpenArgs to the CompanyName field. OpenArgs will contain
      ' a company name if this form is opened using the OpenForm
      ' method with an OpenArgs argument, as done in the Orders
      ' form's CustomerID_NotInList event procedure.
      Me![CompanyName] = Me.OpenArgs
   End If
End Sub 


  Mình vẫn chưa hiểu về lệnh Me.OpenArgs lắm ( do mới tìm hiểu thời gian gần đây ). Nếu bạn biết thì giải thích giúp mình nha. [/php]

• RE: Code VBA tìm kiếm cho Form

  paulsteigel > 05-10-13, 06:44 PM

  (05-10-13, 04:52 PM)lethuongton Đã viết: Mình vẫn chưa hiểu về lệnh Me.OpenArgs lắm ( do mới tìm hiểu thời gian gần đây ). Nếu bạn biết thì giải thích giúp mình nha. [/php]

  
  Me.OpenArgs được sử dụng để truyền tham số cho một form. Trong quá trình làm việc, người ta cần một form thực hiện thao tác nào đó trong lúc tải vào bộ nhớ và các thao tác này có thể khác nhau. Để làm điều này, người ta có 2 cách:
  1. Định nghĩa một biến toàn cục và khi form tải lên thì đọc biến đó để biết là phải làm gì ví dụ tải lên 1 bản ghi, tạo bản ghi mới, thay đổi tiêu đề form ...vv
  Cách này không an toàn và thường chỉ ứng dụng khi phải có một nhóm các tham số phức tạp.
  
  2. Truyền qua câu lệnh gọi form
  docmd.OpenForm "Tên form",acNormal,,,,acDialog,"Tham_so"
  
  Với dạng này, ta có thể lấy tham số từ việc đọc thuộc tính Me.OpenArgs lúc tải form để: lấy thông tin bản ghi, thiết lập bộ lọc ....vv mà không cần phải có biến nào cả.
  Trong câu hỏi của bạn thì Textbox Tên công ty sẽ được truyền vào giá trị tham số của lệnh gọi form trước đó.
  Me![CompanyName] = Me.OpenArgs
  Xin có vài dòng chia sẻ như vậy!

• RE: Code VBA tìm kiếm cho Form

  lethuongton > 05-10-13, 06:47 PM

  Thanks bạn nhiều
• Bài trước Bài tiếp