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

Code vba không có tác dụng khi dùng year(now() và hàm right

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Code vba không có tác dụng khi dùng year(now() và hàm right
• Code vba không có tác dụng khi dùng year(now() và hàm right

• Code vba không có tác dụng khi dùng year(now() và hàm right

  mrsiro > 05-03-18, 10:02 AM

  Chào các bạn, mình có 1 form trên đó có 2 textbox: txt1 và txt2 và 1 cmdbutton.
  + Txt2: có control source =right(txt1,4)
  + Cmdbutton: If me.txt2 < year(now()) then
                          msgbox "abd"
                       End if
  
  Nhưng code ko có tác dụng. Mình không hiểu lí do tại sao. Ai biết có thể vui lòng giúp mình.

• RE: Code vba không có tác dụng khi dùng year(now() và hàm right

  cpucloi > 05-03-18, 03:24 PM

  Bạn xem me.txt2 có phải dạng number không (có cắt chuỗi của txt1 mà)

• RE: Code vba không có tác dụng khi dùng year(now() và hàm right

  maidinhdan > 05-03-18, 10:13 PM

  (05-03-18, 10:02 AM)mrsiro Đã viết: Chào các bạn, mình có 1 form trên đó có 2 textbox: txt1 và txt2 và 1 cmdbutton.
  + Txt2: có control source =right(txt1,4)
  + Cmdbutton: If me.txt2 < year(now()) then
                          msgbox "abd"
                       End if
  
  Nhưng code ko có tác dụng. Mình không hiểu lí do tại sao. Ai biết có thể vui lòng giúp mình.

  
  Sửa Cmdbuttonlại như sau
  

  Mã PHP:

  If Val(me.txt2) < year(now()) then
     msgbox "abd"
End if 


  
  
  Hàm Val có tác dụng đổi chuỗi thành số. Có như thế mới so sánh với năm được.

• RE: Code vba không có tác dụng khi dùng year(now() và hàm right

  mrsiro > 06-03-18, 09:49 AM

  Cám ơn bạn mình đã giải quyết xong vấn đề, tiện đây mình xin hỏi thêm 1 vấn đế nữa
  Mình có 1subform và 1mainform:
  
  + Subform: Có txt1 với controlsource =count(mahd)
  + Mainform:  - Có txt2 với controlsource = subform.form!txt1
                      - Có txttim: Subform sẽ lọc record theo giá trị của txt này
                      - 1 commandbutton
  Mình cấu hình afterupdate của txt2 như sau: If me.txt2 = 0 then
                                                                     me.commanbutton.enabled = false
                                                                  Else
                                                                     me.commanbutton.enabled = true
                                                                   End if
  => code này không có tác dụng
  Nhưng nếu mình thay code vào event click của command button:
    If me.txt2 = 0 then
      msbgox"abd"
    Else
       thực hiện lệnh tiếp theo
    End if
  Thì lại có tác dụng
  
  https://www.dropbox.com/s/lf1g2pm2qkmfk6h/db29.rar?dl=0

• RE: Code vba không có tác dụng khi dùng year(now() và hàm right

  maidinhdan > 06-03-18, 10:41 PM

  (06-03-18, 09:49 AM)mrsiro Đã viết: Cám ơn bạn mình đã giải quyết xong vấn đề, tiện đây mình xin hỏi thêm 1 vấn đế nữa
  Mình có 1subform và 1mainform:
  
  + Subform: Có txt1 với controlsource =count(mahd)
  + Mainform:  - Có txt2 với controlsource = subform.form!txt1
                      - Có txttim: Subform sẽ lọc record theo giá trị của txt này
                      - 1 commandbutton
  Mình cấu hình afterupdate của txt2 như sau: If me.txt2 = 0 then
                                                                     me.commanbutton.enabled = false
                                                                  Else
                                                                     me.commanbutton.enabled = true
                                                                   End if
  => code này không có tác dụng
  Nhưng nếu mình thay code vào event click của command button:
    If me.txt2 = 0 then
      msbgox"abd"
    Else
       thực hiện lệnh tiếp theo
    End if
  Thì lại có tác dụng
  
  https://www.dropbox.com/s/lf1g2pm2qkmfk6h/db29.rar?dl=0

  
  Theo bài bạn thì  sửa lại như sau
  

  Mã PHP:

  If IsNull(me.txt2) then         ' Nếu txt2 rỗng thì 
  me.commanbutton.enabled = false        ' Nút chìm xuuống không nhấn được và ngược lại
Else
 me.commanbutton.enabled = true
End if 


• RE: Code vba không có tác dụng khi dùng year(now() và hàm right

  mrsiro > 06-03-18, 11:02 PM

  Không được bạn ơi, txt2 đang nhận giá trị từ txt1 trên subform, mà txt1 thì có controlsource là count(mahd). Vì thế txt2 chỉ có giá trị hoặc là 0 hoặc là số khác 0.
  Mình muốn khi txt2 có giá trị = 0 thì commanbutton enabled = false, còn nếu txt2 có giá trị khác thì cmdbutton enabled = true.

• RE: Code vba không có tác dụng khi dùng year(now() và hàm right

  ongke0711 > 06-03-18, 11:42 PM

  - Theo bạn nói còn có textbox tìm kiếm. Vậy bạn đưa code đó vô sự kiện AfterUpdate của textbox tìm kiếm này.
  - Khi form mở lên (On Open), kiểm tra xem có record nào không, nếu không cũng disabled cái cmdbutton đó luôn.
  Tóm lại đưa code vào 2 sự kiện trên.

• RE: Code vba không có tác dụng khi dùng year(now() và hàm right

  mrsiro > 07-03-18, 08:50 AM

  (06-03-18, 11:42 PM)ongke0711 Đã viết: - Theo bạn nói còn có textbox tìm kiếm. Vậy bạn đưa code đó vô sự kiện AfterUpdate của textbox tìm kiếm này.
  - Khi form mở lên (On Open), kiểm tra xem có record nào không, nếu không cũng disabled cái cmdbutton đó luôn.
  Tóm lại đưa code vào 2 sự kiện trên.

  
  Đã đưa vào afterupdate của txttimkiem vẫn không có tác dụng bạn à.

• RE: Code vba không có tác dụng khi dùng year(now() và hàm right

  ongke0711 > 07-03-18, 11:04 AM

  Trên file demo của bạn có cái textbox [txtmahd] dùng để tìm kiếm đúng không?
  - Tôi sẽ code cho cái textbox đó như bên dưới.
  - RecordSource của Sub form bạn bỏ cái điều kiện [mahd] = Forms!....
  
  

  Mã PHP:

  Private Sub txtmahd_AfterUpdate()
   
   If Len(Nz(Me.txtmahd, "")) = 0 Then   'Khi xóa nội dung [txtmahd] thì sẽ hiển thị lại toàn bộ record.'
       Me.form1_sub.Form.FilterOn = False
       Me.form1_sub.Requery
   Else
       Me.form1_sub.Form.Filter = "[mahd]='" & Me.txtmahd & "'"
       Me.form1_sub.Form.FilterOn = True
       Me.form1_sub.Requery
   End If
   
   If Me.Text2 = 0 Then
       Me.Command6.Enabled = False
   Else
       Me.Command6.Enabled = True
   End If

End Sub 

• Bài trước Bài tiếp